rijen voorwaardelijk verbergen

[StevenP]

Hallo

Ik heb links en rechts al wat gelezen over dit onderwerp, maar het lukt me niet om mijn gewenst resultaat te bereiken:

Wanneer in cel C26 een datum vanaf 01/01/2012 staat (01/01/2012 inclusief), dan moet rij 33 én rijen 38 t.e.m. 50 verborgen worden. Is de datum 31/12/2011 of vroeger, dan moeten deze rijen zichtbaar worden/blijven.

Kan iemand mij helpen?

Bedankt!!
Steven.

Hierbij het bestand: Bekijk bijlage VAAAAA.xlsx

 

[koster1984]

Is deze code achter het blad (met in cel E26 de datum 1-1-2012, zodat deze ook altijd aan te passen blijft) wat je zoekt?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = [C26] Then
        If Not Target Is Nothing And Target > ([E26] - 1) Then
            [33:33,38:50].EntireRow.Hidden = True
        Else
            [33:33,38:50].EntireRow.Hidden = False
        End If
    End If
End Sub

 

[Cobbe]

Of deze iets korter:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
 If Not Intersect(Target, Cells(26, 3)) Is Nothing Then
     [33:33,38:50].EntireRow.Hidden = Target < 40909
 End If
Application.ScreenUpdating = True
End Sub

 

[StevenP]

Bedankt voor de reacties!

Kan iemand het implementeren in de excel-file? Ik ben niet vertrouwd hiermee en ik krijg steeds een error...
Ik denk dat ik gewoon niet goed overweg kan met de codes 'end sub' enzo, dat er daar nog een foutje in zit.

Bedankt!

 

[Cobbe]

Omdat ge het zo braaf vraagt.