MS-Office/Excel-VBA/Rijen verbergen afhangkelijk van kolom A.vba

17 lines
No EOL
438 B
Text

'Rijen met een "1" in kolom A verbergen
Sub verbergenrijen()
Dim X As Variant
Rows("13:112").Select
Selection.EntireRow.Hidden = False
Dim c As Range
For Each c In Range("A13:A112").Cells
If c.Value = "1" Then
c.EntireRow.Hidden = True
End If
Next c
Sheets("Samenvatting").Activate
MsgBox ("De verborgen rijen zijn aangepast")
End Sub