macro afspelen door activex element

[woodhouse]

hallo,

Ik ben me wat aan het verdiepen in excel en ik kom het volgende probleem tegen:

ik heb een macro opgenomen welke ik laat afspelen door een vinkje te zetten in een activex element.

Als dat vinkje wordt gezet komen een aantal rijen die aanvankelijk verborgen waren te voorschijn.

Sub blauw()
'
' blauw Macro
' laat blauw zien en ga naar blauw
'

'
Rows("18:21").Select
Selection.EntireRow.Hidden = False
Range("A18").Select
End Sub

Wat ik nu wil is dat als je het vinkje weer weghaalt dat de rijen weer verborgen worden.
HOE DOE IK DAT??

hopelijk kan iemand me helpen.

 

[trucker10]

Oeps vergeten Welkom op het forum
Pas de range aan volgens jouw behoefte
Als je deze nou op "Selection.EntireRow.Hidden = True zou zetten

 

[trucker10]

hallo,



een vinkje te zetten in een activex element.

Als dat vinkje wordt gezet komen een aantal rijen die aanvankelijk verborgen waren te voorschijn.

In mijn eerste voorbeeldje had ik de checkbox weggelaten ,

Private Sub CheckBox1_Click()
Rows("18:21").Hidden = CheckBox1.Value
[A17].Select
End Sub

maak in het bestandje van [A19] >> [A17].Select

 

[woodhouse]

In mijn eerste voorbeeldje had ik de checkbox weggelaten ,

Private Sub CheckBox1_Click()
Rows("18:21").Hidden = CheckBox1.Value
[A17].Select
End Sub

maak in het bestandje van [A19] >> [A17].Select

Hoi Daniel,

Alvast super bedankt voor je reactie, ik ben al een stuk verder.

Ik heb nu geprobeerd om hier zo mee te werken. ik heb nu 2 checkboxen gemaakt met vergelijkbare code. nu doet de een het wel en de ander het niet. waar zit dit in?

Private Sub CheckBox1_Click()
Rows("10").Hidden = CheckBox1.Value

[A10].Select
End Sub

Private Sub CheckBox2_Click()
Rows("15").Hidden = CheckBox1.Value

[A15].Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Bij checkbox 1 verschijnt rij 10 als je aanvinkt en verdwijnt hij weer als je hem uitzet
Bij checkbox 2 verschijnt rij 15 wel maar verdwijnt hij daarna niet meer

en wat als ik het nu precies andersom wil? dus verschijnen bij geen vink en verbergen bij wel en visa versa...

Groet Martijn

 

[trucker10]

Hoi Daniel,

Alvast super bedankt voor je reactie, ik ben al een stuk verder.

Ik heb nu geprobeerd om hier zo mee te werken. ik heb nu 2 checkboxen gemaakt met vergelijkbare code. nu doet de een het wel en de ander het niet. waar zit dit in?

Private Sub CheckBox1_Click()
Rows("10").Hidden = CheckBox1.Value

[A10].Select
End Sub

Private Sub CheckBox2_Click()
Rows("15").Hidden = CheckBox1.Value ' zet hier een het nummer van je checkbox
[A15].Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Bij checkbox 1 verschijnt rij 10 als je aanvinkt en verdwijnt hij weer als je hem uitzet
Bij checkbox 2 verschijnt rij 15 wel maar verdwijnt hij daarna niet meer

en wat als ik het nu precies andersom wil? dus verschijnen bij geen vink en verbergen bij wel en visa versa...

Groet Martijn

Als je een copy van je Checkbox maakt dan nadien ook het nummer aanpassen

 

[woodhouse]

OHH STOM, goed bezig woodhouse! :thumb:


Maar het andere gedeelte van de vraag blijft staan:
wat als je het precies andersom wilt?

 

[trucker10]

OHH STOM, goed bezig woodhouse! :thumb:


Maar het andere gedeelte van de vraag blijft staan:
wat als je het precies andersom wilt?

Oeps sorry , ik ben ook wel nog op andere fora bezig , bij deze

Private Sub CheckBox2_Click()
If CheckBox2.Value = False Then
Rows("10:17").Hidden = True
Else
Rows("10:17").Hidden = False
End If
Range("A18").Select
End Sub

 

[trucker10]

OHH STOM, goed bezig woodhouse! :thumb:


Maar het andere gedeelte van de vraag blijft staan:
wat als je het precies andersom wilt?

Middels het gebruik van de zoekfunctie op dit forum had je de vraag ook gevonden
zie hier
of hier

 

[woodhouse]

Sorry ik zal volgende keer beter op het forum kijken. ik had daar wel allerlei posts gezien maar kwam er net niet helemaal uit. jouw voorbeeld bestandjes hebben mij net effe op weg gehalpen.

Thanx!

 

[trucker10]

Sorry ik zal volgende keer beter op het forum kijken. ik had daar wel allerlei posts gezien maar kwam er net niet helemaal uit. jouw voorbeeld bestandjes hebben mij net effe op weg gehalpen.

Thanx!

Het was een reactie op " Maar het andere gedeelte van de vraag blijft staan:
wat als je het precies andersom wilt? " er zaten slechts enkel minuten tussen U posting en die van mij en ik had inderdaad eerst de volledige vraag kunnen bekijken en afwerken , maar ergens moet je der ook nog iets aan overhouden , niet alles kant en klaar voorgeschoteld krijgen , maar jij had al de intentie gedaan van een macro op te nemen :thumb: voor mij is het ook niet alles uit mijn broekzak halen ik ben ook nog aan het leren excel onder de knie te krijgen .

 

[Roncancio]

OHH STOM, goed bezig woodhouse! :thumb:


Maar het andere gedeelte van de vraag blijft staan:
wat als je het precies andersom wilt?

Dan gebruik je NOT.
Bijv.:

Private Sub CheckBox2_Click()
Rows("10:17").Hidden = NOT(CheckBox2.Value)

End Sub

Met vriendelijke groet,


Roncancio

 

[trucker10]

Dan gebruik je NOT.

@ Roncancio de NOT staat al in mijn ONENOTE :thumb: vandaar dat ik de macro zichtbaar zet , omdat ik weet dat ............