17 lines
No EOL
438 B
Text
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 |