VBA code starten bij verlaten van een cel

[schorrie01]

Ik zou graag een VB code starten bij het verlaten van een cel om alzo te bekomen dat wanneer in cel A1 een waarde wordt ingevoerd, de cellen A1 tot en met G1 van kleur veranderen en wanneer de waarde uit cel A1 terug wordt verwijderd de cellen A1 tot en met G1 terug hun kleur verliezen

een beetje zoals voorwaardelijke opmaak, maar dan ineens ook andere cellen verkleuren zonder dat op die specifieke cellen apart een voorwaardelijke opmaak staat

met dank

 

[alberto10]

schorrie01,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") > 0 Then
Range("A1:G1").Interior.ColorIndex = 36
Else:
Range("A1:G1").Interior.ColorIndex = xlNone
End If
End Sub

 

[jofred]

Hallo,

Op zich een aardige oplossing voor het probleem. Alleen het gaat niet op als je in cel A1 een negatief getal zet.
Als je het probleem vertaald naar al er een waarde in cel A1 staat dan moet de voorwaardelijke opmaak worden aangebracht en als de cel A1 leeg is dan moet deze voorwaardelijke opmaak worden verwijderd, dan kan de code als volgt luiden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Range("A1")) Then
Range("A1:G1").Interior.ColorIndex = 36
Else:
Range("A1:G1").Interior.ColorIndex = xlNone
End If
End Sub

 

[Wigi]

Doe

IsEmpty(Range("A1"))

zoals hierboven, of

IsNumeric(Range("A1"))

of

Range("A1") = vbNullString

of

Range("A1") = ""

Aan jou de keuze wat je wilt.

Wigi