Excel cel gegevens werken niet in VBA

[p.d.vries]

Ik heb in een bepaalde cel een WAAR/ONWAAR uitkomst.
Deze wens ik in een VBA routine te gebruiken, om een regel te verbergen/zichtbaar te maken.
Als ik een harde waarde in een cel invoer werk dit, maar niet bij een berekende cel(-waarde)
Wie o wie kan mij verder helpen?

[F_J_K]

Wat is de precieze code, wat de evt foutmelding?

[p.d.vries]

In het eerste deel van de routine (C38) wordt handmatig met een waarde gevuld, werkt prima.
In het tweede deel is cel (Z9) een WAAR/ONWAAR uitkomst. Het verbergen van de regel werkt dan niet. Ook niet als ik de W/O overzet naar bijvoorbeeld een getal.

[p.d.vries]

Oh Ja wij ik vergeten aan te hangen

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C38"), Target) Is Nothing Then
If Range("C38").Value > 0 Then
Rows("39:39").Hidden = False
Else
Rows("39:39").Hidden = True
End If
End If

If Not Intersect(Range("Z9"), Target) Is Nothing Then
If Range("Z9").Value = 2 Then
Rows("42:42").Hidden = False
Else
Rows("42:42").Hidden = True

End If
End If
End Sub

[diefightdie]

code:

If Range("Z9").Value = 2 Then

moet dit niet zijn

code:

If Range("Z9").Value == 2 Then

Ik weet trouwens niet of je Excel values kan matchen met cijfers, of dat dit altijd een string '2' zou moeten zijn.

[ Voor 35% gewijzigd door diefightdie op 22-02-2017 16:46 ]

[p.d.vries]

Nee If Range ("Z9").Value == 2 Then , geeft compileer fout.
(trouwens de 2 is in de cel Z9 de vertaling voor WAAR)

[Lustucru]

p.d.vries schreef op woensdag 22 februari 2017 @ 16:44:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C38"), Target) Is Nothing Then
If Range("C38").Value > 0 Then
Rows("39:39").Hidden = False
Else
Rows("39:39").Hidden = True
End If
End If

If Not Intersect(Range("Z9"), Target) Is Nothing Then
If Range("Z9").Value = 2 Then
Rows("42:42").Hidden = False
Else
Rows("42:42").Hidden = True

End If
End If
End Sub

Je bent je ervan bewust dat je rij 9 checkt en rij 42 verbergt?

En als Z9 een formule bevat zal target nooit verwijzen naar Z9: die wijzigt namelijk niet. De uitkomst van de formule zal wel wijzigen, maar niet als gevolg van een wijziging in Z9. Dus idd: de code om de zichtbaarheid van rij 42 te wijzigen wordt nooit aangeroepen.

[p.d.vries]

Hoe kan ik dan een formule uitkomst gebruiken om een actie (verbergen/zichtbaar maken van een regel) in vba te realiseren?

[Lustucru]

code:

If Not Intersect(Range("Z9"), Target) Is Nothing Then

is alleen maar nodig om te controleren in welke cel de wijziging plaatsvond die het event triggerde, zodat de rest van de code niet wordt uitgevoerd bij irrelevante wijzigingen.

Je moet dus in die regel checken of de broncellen van de formule zijn gewijzigd of je laat de controle helemaal weg of je controleert alleen of de hidden.status van rij 42 overeenkomt met de waarde in Z9.

code:

If not intersect(range("A1,B3,C8") , Target) [...]
of
rows(x).hidden=not range("Z9").Value [...]
of
if rows(x).hidden=range("Z9") then [...]