Silenttjeerd
Nieuwe gebruiker
- Lid geworden
- 12 jun 2017
- Berichten
- 1
[SQL][/SQL]Hallo mensen,
Long time reader, first time poster.
Ik heb een document (bladen met algemene informatie en bladen met begrotingen ) waarin constant nieuwe tabbladen worden toegevoegd en oude worden verwijderd/verborgen, nu heb ik een macro waarin ik steeds de oude en nieuwe namen aanpas maar dit blijft een gedoe.
Nu wil ik graag een macro die tabbladen selecteert als het woord "Resultaat" voorkomt op het blad EN moeten de Rijen waarin in kolom B "verbergen" staat verborgen worden.
( ik ben vrij nieuw in VBA en heb wat pogingen gedaan met macro opnemen maar dit leverde helaas weinig op.
Dit is wat ik heb: Zoekt op tabbladen die ik heb ingevoerd naar "verbergen" en verbergt deze, maar deze lijst moet ik steeds langslopen en aanpassen.
Sub verbergen()
Dim blad(93) As String
Dim i As Integer
blad(0) = "2002"
blad(1) = "2003"
.... hele lijst.
blad(93) = "8013"
For i = 0 To 93
Sheets(blad(i)).Select
For Each c In Range("$B$2:$B$" & Range("B65500").End(xlUp).Row)
If InStr(1, c.Text, "verbergen", 1) Then
Rows(c.Row).Hidden = True
End If
Next
Next i
End Sub
Mankeert er iets aan mijn post dan hoor ik het graag.
Alvast bedankt
Long time reader, first time poster.
Ik heb een document (bladen met algemene informatie en bladen met begrotingen ) waarin constant nieuwe tabbladen worden toegevoegd en oude worden verwijderd/verborgen, nu heb ik een macro waarin ik steeds de oude en nieuwe namen aanpas maar dit blijft een gedoe.
Nu wil ik graag een macro die tabbladen selecteert als het woord "Resultaat" voorkomt op het blad EN moeten de Rijen waarin in kolom B "verbergen" staat verborgen worden.
( ik ben vrij nieuw in VBA en heb wat pogingen gedaan met macro opnemen maar dit leverde helaas weinig op.
Dit is wat ik heb: Zoekt op tabbladen die ik heb ingevoerd naar "verbergen" en verbergt deze, maar deze lijst moet ik steeds langslopen en aanpassen.
Sub verbergen()
Dim blad(93) As String
Dim i As Integer
blad(0) = "2002"
blad(1) = "2003"
.... hele lijst.
blad(93) = "8013"
For i = 0 To 93
Sheets(blad(i)).Select
For Each c In Range("$B$2:$B$" & Range("B65500").End(xlUp).Row)
If InStr(1, c.Text, "verbergen", 1) Then
Rows(c.Row).Hidden = True
End If
Next
Next i
End Sub
Mankeert er iets aan mijn post dan hoor ik het graag.
Alvast bedankt