23 lines
No EOL
525 B
Text
23 lines
No EOL
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 |