Goedemorgen,
Een tijdje terug ben ik op dit forum heel erg geholpen met een macro, welke ik daarna verder ben gaan uitbreiden.
Nu vraag ik me af of deze code sneller zou kunnen door bijvoorbeeld het instellen van een range, of dat er een andere manier is om deze sneller te kunnen laten lopen.
Zelf is het mij met het instellen van een range niet helemaal goed gelukt en ik hoop dat jullie mij verder kunnen helpen.
Dit is de code:
Mvg,
Mike
Een tijdje terug ben ik op dit forum heel erg geholpen met een macro, welke ik daarna verder ben gaan uitbreiden.
Nu vraag ik me af of deze code sneller zou kunnen door bijvoorbeeld het instellen van een range, of dat er een andere manier is om deze sneller te kunnen laten lopen.
Zelf is het mij met het instellen van een range niet helemaal goed gelukt en ik hoop dat jullie mij verder kunnen helpen.
Dit is de code:
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With CommandButton1
Select Case .Caption
Case "Zichtbaar maken"
For Each cl In Columns(8).SpecialCells(-4123)
If cl = "A" Or cl.Offset(0, -6) = "" Then cl.Offset(0).Resize(4, 1).EntireRow.Hidden = False
Next cl
.Caption = "Zichtbaar maken"
End Select
End With
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
With CommandButton2
Select Case .Caption
Case "Vernieuwen"
For Each cl In Columns(8).SpecialCells(-4123)
If cl = "L" Or cl = "FA" Or cl = "MA" Then cl.Offset(0).Resize(4, 1).EntireRow.Hidden = False
If cl = "A" Or cl.Offset(0, -6) = "" Then cl.Offset(0).Resize(4, 1).EntireRow.Hidden = True
Next cl
.Caption = "Vernieuwen"
End Select
End With
End Sub
Mvg,
Mike