'Excel-VBA/Rijen verbergen.VBA' toevoegen
This commit is contained in:
parent
d24b082448
commit
885ee78b65
1 changed files with 23 additions and 0 deletions
23
Excel-VBA/Rijen verbergen.VBA
Normal file
23
Excel-VBA/Rijen verbergen.VBA
Normal file
|
@ -0,0 +1,23 @@
|
|||
'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
|
Loading…
Reference in a new issue