Blad verbergen

[Ron321]

Ik heb ooit eens met behulp van dit forum een macro gekregen om een blad te verbergen afhankelijk van een waarde in een cel.

Alleen als ik in een andere cel ook iets verander springt het blad weer tevoorschijn.

Dit komt m.i. doordat de macro in een module staat en niet achter het desbetreffende blad waar de keuze wordt gemaakt.

In het voorbeeldbestand heb ik dit nagemaakt.

Als je op blad1 3 of 6 kiest verdwijnt blad2.
Bij 1,2,4 of 5 komt deze weer tevoorschijn.
Als hij verborgen is en je kiest op blad3 Jan, Piet of Klaas komt blad2 ook weer te voorschijn en dat wil ik niet.

Als ik de macro achter blad1 zet werkt hij niet, iemand een idee?

 

[HSV]

En als je Case Else veranderd in Case "2"

 

[Ron321]

Stjonge jonge......... hoe simpel kan het zijn
Bedankt:thumb:

 

[Jack Nouws]

Sub keuze()
Application.ScreenUpdating = False
keus = UCase([COLOR="Red"]Sheets("Blad1").[/COLOR]Range("B2").Value)
Select Case keus
Case "3"
    Sheets("Blad2").Visible = False
    
Case "6"
    Sheets("Blad2").Visible = False
    
Case Else
    Sheets("Blad2").Visible = True
End Select
End Sub

 

[trucker10]

Ron321

Sub keuze()
Application.ScreenUpdating = False
If Intersect(ActiveCell, Range("B2")) Is Nothing Then
Else
keus = UCase(Range("B2").Value)

Select Case keus

Case "3"
    Sheets("Blad2").Visible = False
    
Case "6"
    Sheets("Blad2").Visible = False
    
Case Else
    Sheets("Blad2").Visible = True
End Select
End If
End Sub

 

[Wigi]

Zet in de code achter het bewuste blad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then Sheets("Blad2").Visible = InStr("36", [B2]) = 0
End Sub

Wigi

 

[Ron321]

Heren, bedankt voor alle reacties.

Ik heb nu nog een aanvullende vraag.
Kan ik het blad ook laten verbergen door het kiezen van letters ipv cijfers?

Zie bijlage.

 

[Hoornvan]

Kan ik het blad ook laten verbergen door het kiezen van letters ipv cijfers?

Verander het getal door een letter en je weet het.

 

[Hoornvan]

Ron321,

Ik was te snel met het antwoord.
Was van de formule (code) van WiGi uit gegaan en daar gaat het wel mee.

Nu pas naar je bestandje gekeken en daar gebruik je gegevensvalidatie.
Volgens mij moet je daar een CombboBox voor gebruiken, die kun je aan een cel koppelen.

 

[Ron321]

Het gaar er eigenlijk om dat er in het originele bestand gekozen wordt tussen 2 titels en aan de hand daarvan worden er bepaalde bladen verborgen, dus zoiets als kiezen tussen Jan en Klaas.

 

[Hoornvan]

Hier je bestandje met een ComboBox, kijk of je er wat mee kunt.

Als je een naam wil gebruiken moet Ucase eruit.

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
  keus = (Sheets("Blad1").Range("B2").Value)
  Select Case keus
   Case "Jan"
    Sheets("Blad2").Visible = False
    
   Case "Klaas"
    Sheets("Blad2").Visible = False
    
   Case Else
    Sheets("Blad2").Visible = True
End Select
End Sub

 

[Ron321]

Helaas, krijg het niet werkend.

 

[Hoornvan]

Helaas, krijg het niet werkend.

De file die ik geplaatst heb die werkt toch?

 

[Ron321]

Ja, die wel maar in mijn originele bestand wil het niet.

 

[Hoornvan]

Ja, die wel maar in mijn originele bestand wil het niet.

Zet het orginele bestand anders hier zonder gevoelige info.

 

[Ron321]

Dat gaat helaas niet, te groot en te veel info.

Zal kijken of ik iets na kan maken.

 

[Ron321]

Zie bijlage

 

[Hoornvan]

Ron321,

Ik zit me net te bedenken, als je de combobox gebruikt dan moet deze gekoppeld zijn aan B2.
Dit doe je door in de eigenschappen van de ComboBox dit in te voeren.

 

[Hoornvan]

Hier een schermfoto.

 

[Ron321]

Hmm, dat zegt mij niets.

In het originele bestand is het een cel met validatie en dat kan ik niet veranderen.