23 lines
525 B
Text
23 lines
525 B
Text
|
'Rijen verbergen op meedere tabbladen
|
||
|
|
'Van rij x t/m 109
|
||
|
|
|
||
|
|
Sub rijenverbergen()
|
||
|
|
|
||
|
|
Dim I
|
||
|
|
Dim X As Variant
|
||
|
|
X = ActiveSheet.Range("a4").Value
|
||
|
|
If MsgBox("Dit kan even duren, weet je het zeker? Bij akkoord graag wachten tot volgende popup!", vbYesNo) = vbNo Then Exit Sub
|
||
|
|
For I = 1 To 100
|
||
|
|
|
||
|
|
Sheets("(" & I & ")").Activate
|
||
|
|
|
||
|
|
'Onderstaande aanpassen
|
||
|
|
Rows("9:109").Select
|
||
|
|
|
||
|
|
Selection.EntireRow.Hidden = False
|
||
|
|
|
||
|
|
'Onderstaande aanpassen
|
||
|
|
Rows(X & ":109").Select
|
||
|
|
|
||
|
|
Selection.EntireRow.Hidden = True
|
||
|
|
Range("F9").Select
|