selectievakje gebruiken

[regf]

Hoi,
ik wil met een selectievakje dmv een macro gegevens ophalen en in een kolom zetten, dat is geen probleem.
ook wil ik de gegevens weer kunnen verwijderen uit de kolom maar dan als het selectievakje niet aangevinkt is, dit kan door een ander macro, maar hoe kan ik de 2 macros samen laten werken met 1 selectievakje, dus aanvinken is macro activeren en gegevens in kolom plaatsen.
2 selectievakje deselecteren en gevens uit die kolom weer wissen met de andere macro.
hoop dat het een beetje duidelijk is.
alvast bedankt voor jullie reacties.
Reg

 

[Roncancio]

If Checkbox1.Value = True Then Macro1 Else Macro2

Met vriendelijke groet,


Roncancio

 

[regf]

Beste Roncancio,
het wil niet erg lukken, zie bijlage, in kolom F staan al de nummers die ik graag in kolom B allemaal wil kopieren, (Macro 1), dit dmv van het selectievakje.
zodra dit niet meer aangevinkt is moeten de nummers weer verwijderd worden.
snappie?
hoop dat het duidelijk is, bedankt alvast.
Bekijk bijlage voorbeeld.xls

 

[Roncancio]

Sub Aanvinken()
If Worksheets(1).CheckBoxes(1).Value = 1 Then Range("F1:F28").Copy Range("B7") Else Range("B7:B50").ClearContents

End Sub

Je moet alleen nog de macro verbinden met het selectievakje.

Met vriendelijke groet,


Roncancio

 

[regf]

erg vervelend maar ik krijg het niet voor elkaar.
zou het op prijs stellen als je het wat gedetailleerder uit zou kunnen leggen.
ik weet ook niet hoe ik de macro aan het selectievakje kan koppelen.
alvast bedankt voor de moeite.
Reg

 

[Roncancio]

erg vervelend maar ik krijg het niet voor elkaar.
zou het op prijs stellen als je het wat gedetailleerder uit zou kunnen leggen.
ik weet ook niet hoe ik de macro aan het selectievakje kan koppelen.
alvast bedankt voor de moeite.
Reg

Ik neem aan dat je de macro Aanvinken al in het bestand hebt gezet.
Selecteer met de rechtermuisknop het selectievakje en kies voor: macro toewijzen ...
Selecteer de macro Aanvinken.
Druk op OK.

Met vriendelijke groet,


Roncancio

 

[regf]

Sub Selectievakje27_BijKlikken()
If Worksheets(4).CheckBoxes(27).Value = 1 Then Range("x1:x33").Copy Range("B7") Else Range("B7:B50").ClearContents

End Sub

de dik gedrukte geven dmv de gele invulling een fout aan, ik snap er echt geen bal van.
in ieder geval is de koppeling met het selectievakje (volgens mij) wel gelukt.

BVD
Reg

 

[Roncancio]

Het zou kunnen dat er geen 4 werkbladen in het bestand zijn of dat er geen 27 checkboxen in het werkblad zijn.
Je zou wellicht de naam van de checkbox kunnen gebruiken.

Bijvoorbeeld:

If Worksheets(4).CheckBoxes("Check box 1").Value = 1 Then Range("x1:x33").Copy Range("B7") Else Range("B7:B50").ClearContents

Met vriendelijke groet,


Roncancio

 

[regf]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("x1:x33").Copy Range("B7").PasteSpecial = PasteValues Else Range("B7:B50").ClearContents
End Sub

het gaat al een stuk beter het werkt nu wel met bovenstaande regels alleen moet er een paste special komen voor pastevalues aangezien de data uit een andere sheet opgehaald wordt en dus alleen de waarde geplakt moeten worden.
BVD, we komen er wel uit.

 

[Roncancio]

If CheckBox1.Value = True Then
    Range("x1:x33").Copy
    Range("B7").PasteSpecial Paste:=xlPasteValues
Else
    Range("B7:B50").ClearContents
End If

Met vriendelijke groet,


Roncancio

 

[regf]

Perfect, het werkt zoals ik het me voorstelde, en dat is altijd mooi.
bedankt voor de moeite en ik heb er weer wat van bijgeleerd.

sowieso knap dat je met VBA overweg kunt en dan zeker nog op afstand iemands vraag te beantwoorden.

gr. Reg