Macro automatisch laten reageren op celwaarde (gegevensvalidatie)

[FrankdeJager]

Hallo allemaal,

ik heb in VBA het volgende script geschreven :


Sub Macro5()
'
' Macro5 Macro
'

'
Select Case Range("$F$71").Value
Case "Ja"
Rows("72:76").Select
Selection.EntireRow.Hidden = False
Case "Nee"
Rows("72:76").Select
Selection.EntireRow.Hidden = True
End Select
Application.Goto Reference:="Macro5"
Range("F71").Select
End Sub

Het doel van dit script is om ervoor te zorgen dat zodra de waarde van cel F71 op ja staat onderliggende rijen (72:76) zichtbaar zijn en als de waarde op nee staat onderliggende rijen (72:76) niet zichtbaar zijn. Het script werkt maar het probleem is dat ik de macro handmatig moet uitvoeren.

Wat ik graag zou willen zien is dat zodra de celwaarde veranderd de onderliggende rijen verdwijnen of verschijnen. Weet iemand hoe ik dit kan oplossen?

Samengevat: ik wil graag zien dat de macro actief reageert op de celwaarde.

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("72:76").Hidden = UCase([F71]) <> "JA"

End Sub

Zet bovenstaande code in het VBE voor het betreffende werkblad en dus niet in een module.

Met vriendelijke groet,


Roncancio

 

[Tiborv]

Wellicht helpt http://www.automateexcel.com/2004/09/13/excel_vba_run_a_macro_when_a_cell_change/ je verder.