extra werkbladen

[Dixie Jager]

Voor mijn werk moet ik een bestand maken voor uren berekening
Is het mogelijk hier een bepaalde structuur in aan te brengen?
Ik zit te denken aan 1 bestand met 3 werkbladen
gebouw1, gebouw2, gebouw3
Hier weer een onderverdeling in:
gebouw1 aanklikken en dan nieuwe tabbladen krijgen bv. kantoor, werkplaats, buitendienst, directie, tijdelijk personeel
dezelfde werkwijze ook voor gebouwen 2 en 3
Is dit mogelijk en wie kan mij helpen

mvg D. Jager

 

[danny147]

Beste Dixie Jager

Je bedoelt zeker 1 Map met daarin 3 Excelbestanden die elk 5 tabbladen hebben.

Groetjes Danny. :thumb:

 

[danny147]

Beste Dixie Jager

Maak een Map aan met daarin 1 Excel bestand met als naam Gebouw 1.
Open het Excel bestand en maak 5 tabbladen aan met elk hun eigen structuur en sla dit op.
Ga dan terug naar je map en kopiëer 1 Excel bestand en plak deze terug in dezelfde map maar dan wel met een andere naam, nl. Gebouw 2
Doe dit nogmaals en klaar is Kees.

Groetjes Danny. :thumb:

 

[Dixie Jager]

Bedankt voor je reactie.
De bedoeling is echt 1 bestand bv. urenberekening.
Als je dit bestand opent zie je drie werkbladen.
a-b-c
wanneer je dan werkblad a opent komen daar weer 5 bladen tevoorschijn d-e-f-g-h
Dit geldt voor alledrie basisbladen a-b-c

mvg D. Jager

 

[popipipo]

Ik denk dat je dit bedoelt
Aan de VBA specialisten om het te verbeteren.

 

[Dixie Jager]

Hallo,

Dit is wat ik bedoel. Bedankt voor je hulp.

mvg D. Jager

 

[Roncancio]

@Popipipo

Omdat zowel de checkboxen als de .Visible van de werkbladen Boolean zijn (waarde is True of False) kan je hiervan gebruik maken. Dus:

Private Sub gebouw1_Click()
Worksheets(2).Visible = gebouw1.Value
Worksheets(3).Visible = gebouw1.Value
Worksheets(4).Visible = gebouw1.Value
End Sub


Private Sub gebouw2_Click()
Worksheets(5).Visible = gebouw2.Value
Worksheets(6).Visible = gebouw2.Value
Worksheets(7).Visible = gebouw2.Value

End Sub

Wordt gebouw1 aangevinkt (waarde is dus waar/true) dan worden de werkbladen ook zichtbaar.
Je hebt dan dus minder code nodig en je omzeilt een IF-functie.

Met vriendelijke groet,


Roncancio