Tabbladen verbergen2

[don42]

Beste specialisten


Ik ben helemaal nieuw hier, nouja nieuw ik neus hier heel wat rond en vind vaak de antwoorden op mijn vragen,
Nu heb ik echter zelf een vraag voor iets wat ik niet kan vinden
Ben namelijk op zoek naar een code om een aantal tabbladen te verbergen die ik tijdelijk niet nodig heb
met onderstaande code lukt het niet helemaal (deze code is van gebruiker Numan en lang geleden geplaats)
er komen steeds 2 tabbladen bij als ik alles op J Tonen zet dat betekend voor mij 40 keer moet klikken
om al mijn verborgen tabbladen weer te tonen
dus mijn vraag wat moet ik doen als ik bv 20 tabbladen met een bepaalde waarde wil verbergen en ook weer zichtbaar kan maken
zoek een code voor de hele map
hoop dat iemand een oplossing voor mij heeft
Deze code staat op het forum

Sub onzichtbaar()
For x =2 To 88
Dim sheetname As String
sheetname = Cells(x, 1)
If Cells(x, 2) = "J" Then
Sheets(sheetname).Visible = True
Else
If Cells(x, 2) = "N" Then
Sheets(sheetname).Visible = False
End If
End If
Next
End Sub

Nu is het zo gemaakt als ik alle bladen op N zet worden alle tabbladen meteen verborgen (super)
echter anders om zet ik alle bladen op J dan komen er per keer dat ik de macro activeer maar 2 tabbladen te voorschijn
ik zou graag willen dat ook nu met een klik weer alle bladen zichtbaar werden

wie kan mij hier mee helpen?

 

[Cobbe]

Dan is dit toch voldoende denk ik zo:

Sub zichtbaar()
For Each ws In ThisWorkbook.Sheets
 ws.Visble = True
Next
End Sub

 

[don42]

Zo wat een snelle reactie bedankt zeg.

Oké maar net niet wat ik zoek zal het uitleggen
heb een werkmap met 80 tabbladen van een vereniging
daar staan er een aantal (ongeveer 35) op vrij
nu heb ik een extra tabblad gemaakt met de status van de bladen
1 = J
2= J
3= N
4=
enz. de status haal ik uit een celwaarde van de bladen (als a6="vrij";"N";"J")
dus als de status veranderd klik op de knop om de macro te activeren dan worden bladen verborgen of zichtbaar
het probleem is alleen als ik bijvoorbeeld 6 bladen extra op J zal zetten ik dan 3 keer moet klikken op ze zichtbaar te krijgen (2 per keer)
ik kan een ongeacht aantal bladen op N zetten deze worden met 1 klik verborgen
dat had ik graag gehad voor beide kanten
als ik via een knop de macro activeer dat alle bladen die op N staan verborgen worden en alle die op J staan zichtbaar blijven
Ik zet hieronder even de link waar ik het bestandje gevonden heb
ik zie even niet hoe ik een bijlage moet versturen

http://www.helpmij.nl/forum/showthread.php/370446-Tabbladen-verbergen-zichtbaar-maken-macro
hier staat het bestandje misschien helpt dat

Don

hoop dat het allemaal iets duidelijker is

 

[Cobbe]

Dan moet deze dat toch wel opknappen, als de gegevens (Bladnaam en J of N ) in kolom A2 tem B90 staan:

Sub onzichtbaar()
On Error Resume Next
 For Each ws In ThisWorkbook.Sheets
    ws.Visible = WorksheetFunction.VLookup(ws.Name, Sheets("Blad1").Range("A2:B90"), 2, 0) = "J"
 Next
End Sub

 

[don42]

verbergen tabbalden

Heb het zo gedaan maar krijg de tabbladen niet verborgen
wat doe ik nu verkeerd
heb (hopelijk) een bijlage met een voorbeeld heb de tabbladen 1 t/m 10



Bekijk bijlage onzichtbaar.xlsm

 

[HSV]

Code van Cobbe een beetje aangepast.

Sub onzichtbaar()
 For Each ws In ThisWorkbook.Sheets
  If ws.Name <> "Blad1" Then
    ws.Visible = IIf(WorksheetFunction.VLookup(CLng(ws.Name), Sheets("Blad1").Range("A2:B90"), 2, 0) = "J", True, False)
  End If
 Next
End Sub

 

[Cobbe]

Het was een verschil met tekst en getallen, alles in tekst of alles numeriek.

 

[don42]

verbergen tabbalden

jouw bestand werkt perfect maar ik krijg het niet in mijn werkblad ingevoerd
wat doe ik fout met tekst?
mag ik een klein beetje uitleg hoe ik het in een andere werkmap moet invoeren
als ik nu de code plak en activeer worden alle bladen verborgen
ongeacht hoe een tabblad heet alles word verborgen

bvd
Don

 

[Cobbe]

Je moet wel de bladnamen en de status' in het bereik A2:B90 zetten.
En het eerste blad(totaalblad) moet nu met deze code 'Start' heten.

Loop anders de code eens door via F8 (Ga op de SUB Onzicht... staan en druk telkens F8.
DAn zie je wat gebeurt en als je met je cursor op een variabele gaat staan zie je welke waarde deze heeft aangenomen.

Heb dus een nieuw voorbeeldje gemaakt.

 

[don42]

nog 1 keer

Waarom wekt dit nietBekijk bijlage Verbergen tabs.xlsx.xlsm

als ik de tabbladen namen geef lukt het wel
mijn tabs heten 1 t/m 80
hoe moet in nu handelen

 

[Cobbe]

Je moet wel proberen toe te passen wat je aangegeven wordt.
Als ik zeg dat alles tekst moet zijn is dat niet zonder reden.
Kijk maar in het bestand.

 

[don42]

Yes het werkt heeeeel erg bedankt