Ga naar inhoud

Aanbevolen berichten

Geplaatst:

Korte versie. :)

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1")) Is Nothing Then
        Range("A2:A11").EntireRow.Hidden = Not (Application.Weekday(Target) = 3)
    End If
End Sub

 

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.