verborgen tabblad zichtbaar maken na invullen waarde

[gerenmarly]

Hallo
ik zit met een vraag
is het mogelijk om een tabblad welke verborgen is zichtbaar te maken als een cel wordt ingevuld
zie voorbeeld
Bekijk bijlage Tabblad.xlsm
Ger

 

[Cobbe]

Hang deze code achter je werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D8:D10")) Is Nothing Then Exit Sub
 Sheets(2).Visible = [D9] <> ""
 Sheets(3).Visible = [D10] <> ""
 End Sub

 

[gerenmarly]

Hoi Coobe
Dat is precies wat ik zocht
werkt perfect
bedankt

 

[gerenmarly]

Tabblad zichtbaar als waarde boven een waarde komt

Hoi
nog even een vervolgvraag
is het ook mogelijk om een tabblad zichtbaar te maken als een waarde in een cel boven een bepaalde waarde komt

Ger

 

[Niels28]

Graag de code leren begrijpen dan had je dit heel makkelijk zelf aan kunnen passen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D8:D10")) Is Nothing Then Exit Sub
 Sheets(2).Visible = [D9] > 10
 Sheets(3).Visible = [D10] > 25
 End Sub

Niels

 

[gerenmarly]

bedankt Niels28
ik had hem net ook gevonden
ger

 

[gerenmarly]

heb hem nu in de originele bestand gezet, maar nu werkt hij niet omdat de cel D32 een uitkomst komt van #DEEL/0!

hier krijg ik nu een foutmelding
Ger

 

[Cobbe]

Wat die #DEEL/0! daar doet begrijp ik niet, maar deze code moet toch doen wat je vraagt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D8:D10,D32")) Is Nothing Then Exit Sub
  Sheets(2).Visible = [D9] <> ""
  Sheets(3).Visible = [D10] <> ""
  Sheets(4).Visible = [D32] > 25
End Sub

 

[gerenmarly]

Hallo Cobbe

in cel D32 komt een uitkomst van een aantal wat berekend wordt
als deze meer is als 25 moet sheet gereedmeldigslijst te voorschijn komen
als ik hier zelf 26 in vul doet hij het wel , maar met een formule in de cel niet?
Ger

 

[Cobbe]

Private Sub Worksheet_Change(ByVal Target As Range)
[B][/B][COLOR="#FF0000"]'If Intersect(Target, Range("D8:D10,D32")) Is Nothing Then Exit Sub[/COLOR]
 Sheets(2).Visible = [D9] <> ""
 Sheets(3).Visible = [D10] <> ""
 Sheets(4).Visible = [D32] > 25
End Sub

Je kan de rode regel weglaten of je kan die cellen in de intersect opnemen die je formule beïnvloeden.

 

[gerenmarly]

Hoi Cobbe
ik heb de regel weggelaten ,maar krijg dan nog een foutmelding op deze regel (sheet 4)
Ger

 

[Cobbe]

Nu wordt het toch eens tijd dat je fatsoenlijk uitlegt wat er aan de hand is, ik stel voor om die Intersect-regel te verwijderen en jij verwijdert 'Sheets(4).Hidden = [D32]> 25'

Je zet in D32 enkel een 0 wat moet ik daarmee?
Als je deze code gebruikt kan het niet mislopen, tenminste als je alle gegevens hebt gegeven:

Private Sub Worksheet_Change(ByVal Target As Range)
 Sheets(2).Visible = [D9] <> ""
 Sheets(3).Visible = [D10] <> ""
 Sheets(4).Visible = [D32] > 25
End Sub

 

[gerenmarly]

ik heb het bestand iets aangepast
hoop dat dit wat meer duidelijkheid brengt

Ger

 

[Cobbe]

Die foutmelding #DEEL/0 heeft niks te maken met het al dan niet verbergen van een tabblad,
maar wel door een foute formule.
Heb die formule aangepast voor u.

 

[gerenmarly]

Ik ben er bijna
zie voorbeeld
als ik nu werkorder 1 invul verschijnt ook de gereedmeldlijst
en dat is eigenlijk niet de bedoeling
Ger

 

[Cobbe]

De code is/was goed maar de formule veroorzaakte het ongemak:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("D9:D10,C17,C19")) Is Nothing Then
  Sheets(2).Visible = [D9] <> ""
   Sheets(3).Visible = [D10] <> ""
    Sheets(4).Visible = Range("D32").Value > 25
 End If
End Sub

en de formule in D32:

=ALS.FOUT($C$19/$C$17;0)

 

[gerenmarly]

Bedankt Cobbe
dit is hem, nu toegepast op origineel en hij werkt

Ger