• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

rijen voorwaardelijk verbergen

Status
Niet open voor verdere reacties.
S

StevenP

Gebruiker
Lid geworden
3 sep 2009
Berichten
9
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
 
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?
Code: 
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
 
Of deze iets korter:

Code: 
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
 
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!
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan