Tabbladen verbergen door middel van een Macro

[Jurgen2807]

Dat klopt, MAAR............

Daar had ik alle kolommen in rij A en B staan. In het nieuwe overzicht heb ik ze verspreid over 4 kolommen om zodoende op mijn beeldscherm alle tabbladen te kunnen zien.

En ik krijg dat niet werkend om een deel van kolom A en B over te zetten naar kolom D en E.

Dat is het verschil. Zou jij mij dat ajb mee kunnen helpen?

 

[edmoor]

Zo zie je hoe belangrijk een goed voorbeeld is. Plaats je document zoals het in werklijkheid is.

 

[HSV]

Die staat er al in #16 en #17, met een reactie in #19.

 

[edmoor]

Ok. Niet gezien

 

[Jurgen2807]

Ik ook niet.

@ Harry: wat versta je onder moduleblad 1 plaatsen? Ik heb geen moduleblad. Ik heb alleen een overzicht met bladen en ThisWorkbook in VBA staan.

 

[HSV]

Die bedoel ik.
Dubbelklik op Blad1 (Blad1), en plak de code in het witte vlak.
Daar staat de code voor de Commandbutton ook.

 

[Jurgen2807]

Dan krijg ik deze code?

Private Sub CommandButton1_Click()
Dim cl As Range
Application.ScreenUpdating = False
For Each cl In Range("B3:b31,E3:E31")
If cl > 0 Then Sheets(CStr(cl.Value)).Visible = UCase(cl.Offset(, 1)) = "J"
Next cl
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3:b31,e3:e31")) Is Nothing Then
Sheets(CStr(Target.Offset(, -1).Value)).Visible = UCase(Target) = "J"
End If
End Sub

Deze werkt namelijk niet bij mij. How come?

 

[snb]

Neem wat meer tijd, probeer te begrijpen wat elke stap doet ( F8 ).
Als je het begrijpt weet je ook de 'oplossing'.

 

[Jurgen2807]

Ik heb hem werkend gekregen. Dank je wel Ed en Harry voor alle moeite die jullie genomen hebben. Ik zal er een slotje op gooien.

ps Harry: ik heb een VBA boek aangeschaft . Op dit moment is het nog veel abracadabra voor mij. Maar hopelijk over een tijdje kan ik dit alleen.

 

[HSV]

Mooi om te vernemen Jurgen.
Veel oefeningen maken en dan gaat het vast lukken. :thumb: