Verborgen gegevens

[emielDS]

Met deze code kun je alle tabbladen opvragen en zichtbaar maken, ook die diep verborgen zitten.

maak een nieuw blad aan, "blad1" en stel er een nieuwe knop in "knop1" of verander de tekst Sub Knop1_Klikken() naar de naam van het tabblad.

 

Sub Knop1_Klikken()
x = 1 For Each sh In Worksheets     
Sheets("blad1").Cells(x, 4) = sh.Name     
sh.Visible = True     
x = x + 1
Next sh
End Sub

 

 

[alpha]

Verwijderd.

3 november 2018 aangepast door alpha

[Tjico]

Tja, gegevens verwijderen als de vraag is "hoe kom ik bij die gegevens"is nogal lastig.

Geen probleem, het is al opgelost.

Bedankt allemaal.

[iEscape]

6 uren geleden, alpha zei:

"Totaal", "Balnr", en "Gebdatum" zijn gedefinieerde namen.
Normaliter moet je die zien staan als je in het menu van Excel kiest: Formules" (bóven het lint) - Namen beheren (in de groep "gedefinieerde namen" ín het lint).

 

4 uren geleden, emielDS zei:

Met deze code kun je alle tabbladen opvragen en zichtbaar maken, ook die diep verborgen zitten.

maak een nieuw blad aan, "blad1" en stel er een nieuwe knop in "knop1" of verander de tekst Sub Knop1_Klikken() naar de naam van het tabblad.

 

Sub Knop1_Klikken()
x = 1 For Each sh In Worksheets     
Sheets("blad1").Cells(x, 4) = sh.Name     
sh.Visible = True     
x = x + 1
Next sh
End Sub

 

 

 

Heb je bovenstaande tips uitgevoerd?

 

[Haije]

2 uren geleden, Tjico zei:

Tja, gegevens verwijderen als de vraag is "hoe kom ik bij die gegevens"is nogal lastig.

Geen probleem, het is al opgelost.

Bedankt allemaal.

Wil je met ons delen waaruit de oplossing bestond?

[iEscape]

5 minuten geleden, dotchiejack zei:

Nog eens een dubbelpost en een TS die  bij mij op de zwarte lijst gaat.

Geen slecht idee.

Inderdaad weggegooid moeite en tijd.

 

We sluiten dit topic met een