'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