Zichtbaarmaken

[cverkooyen]

Is het mogelijk om een blad zichtbaar te maken als een bepaald veld is ingevuld? En uiteraard weer onzichtbaar worden als het veld leeg gemaakt word?

Ik heb 5 velden die ingevuld kunnen worden, bij elk van die 5 velden hoort een ander blad. Als het veld ingevuld is moet het blad dat erbij hoort zichtbaar worden.

Wie zou me opweg kunnen helpen?

 

[maartenf]

bijvoorbeeld zo

x = Range("d5")
y = Range("d7")
If x = Empty Then
Worksheets("Blad2").Visible = False
Else
Worksheets("Blad2").Visible = True
End If
If y = Empty Then
Worksheets("Blad3").Visible = False
Else
Worksheets("Blad3").Visible = True
End If

 

[Demeter]

....

Kijk hier eens naar.

Code staat op blad 1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets(1).Range("B2") = 1 Then
    Sheets(2).Visible = True
Else
    Sheets(2).Visible = False
End If

If Sheets(1).Range("B3") = 1 Then
    Sheets(3).Visible = True
Else
    Sheets(3).Visible = False
End If

End Sub

Denk dat de code nog wel wat beter kan maar mijn kennis is nog niet breed genoeg.


Groet,
Ferenc

 

[Wigi]

Denk dat de code nog wel wat beter kan ...

Klopt:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Blad2").Visible = (Range("B2") = 1)
Sheets("Blad3").Visible = (Range("B3") = 1)
'...
End Sub

Wigi

 

[Demeter]

Thanks Wigi :thumb: ,

Dacht al zoiets terug te krijgen .


Groet,
Ferenc

 

[cverkooyen]

Geweldig! Bedankt jongens! :thumb: