bladen verbergen

[jan excel]

Goede morgen Allen,

In een spreatsheet wil ik een commando button plaatsen om verborgen bladen weer zichtbaar te laten zijn zodra hierop geklikt wordt.
Zodra het commando button wordt geactiveerd zou er een soort msg box met daarin een keuze mogelijkheid. De msg box dient dan de volgende text te hebben "maak een keuze welke blad u wilt zien. En daarna een soort keuze lijst.
De namen van de bladen lopen van WK 1 T/M Wk 53.

Jullie zullen denken natuurlijk dat kan toch gewoon via excel:
opmaak>> blad>> zichtbaarmaken en vervolgens de keuze maken.
Natuurlijk dit is ook zo maar het werkblad moet beveiligd blijven, vandaar dat ik het met een VBA code wil proberen op te lossen.


Wie kan mij op weg helpen.

Groet,
Jan

 

[Hoornvan]

jan excel,

Zet dit achter de knop.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
  B = InputBox(Message, "Welk tabblad wil u zien?")
  Sheets(("WK ") & B).Visible = True
Application.ScreenUpdating = True
End Sub

Edit: Code aangepast om flikkering van het scherm te voorkomen.
Vul bij de vraag in 1 en hij maakt er WK 1 van. dus alleen het getal invoeren.

 

[jan excel]

Hoi Wim,

bedankt, dit is precies wat ik voor ogen had.

Groet,
Jan

 

[jan excel]

toch nog aanvulling gevraagd

Ik heb onderstaande code met een commando knop verbonden.
De code heb ik van Wim via dit forum.

De input box verschijnt en werkt ook zoals ik wil.
Nu zou ik in de input box in het grijze deel boven de invoer vak nog een melding willen zetten "alleen getal invoeren !"
hoe doe ik dit ?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
B = InputBox(Message, "Welk tabblad wil u zien?")
Sheets(("WK ") & B).Visible = True
Application.ScreenUpdating = True
End Sub



M.v.g
Jan

 

[jan excel]

Ik heb onderstaande code met een commando knop verbonden.
De code heb ik van Wim via dit forum.

De input box verschijnt en werkt ook zoals ik wil.
Nu zou ik in de input box in het grijze deel boven de invoer vak nog een melding willen zetten "alleen getal invoeren !"
hoe doe ik dit ?

En als iemand op annuleren klikt dient dit netjes worden afgehandeld nu krijgt het een "fout 9 melding"
Wat moet ik hiervoor doen ?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
B = InputBox(Message, "Welk tabblad wil u zien?")
Sheets(("WK ") & B).Visible = True
Application.ScreenUpdating = True
End Sub



M.v.g
Jan

 

[Hoornvan]

jan excel,

Kijk even of het zo goed is?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Message, Title
Message = "Voer een waarde in tussen 1 en 3"
B = InputBox(Message, "Welk tabblad wil u zien?")
Sheets(("WK ") & B).Visible = True
Application.ScreenUpdating = True
End Sub

 

[jan excel]

Hoi Wim,

Prima de text staat er nu in, bedankt.

Als de gebruiker op annuleren klikt kan dit dan ook nog netjes worden afgehandeld.
Nu krijg ik een fout melding.

Groetjes,
Jan

 

[Hoornvan]

Werkt het nu?

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Message = "Voer een waarde in tussen 1 en 3"
B = InputBox(Message, "Welk tabblad wil u zien?")
Sheets(("WK ") & B).Visible = True
Application.ScreenUpdating = True
End Sub

 

[jan excel]

Klasse Wim , ben je zeer dankbaar hiervoor.

M.v.g.
Jan