code uitvoeren na verlaten cel

[PTL69]

Goedendag,

Ik ben opzoek naar vba code die er voor zorgt dat een macro uitgevoerd wordt zodra een cel uit een bepaalde range verlaten wordt. ongeacht of er iets gewijzigd is in deze cel.
Onderstaande heb ik gevonden maar dit doet juist het omgekeerde: een macro uitvoeren zodra ik een cel selecteer.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C3:Y3")) Is Nothing Then
 'macro
End If
End Sub

Gr. Pieter

 

[edmoor]

Wijzig SelectionChange in Change.

 

[PTL69]

Heb ik ook geprobeerd maar dan start de macro alleen als de celwaarde wijzigt.
Het gaat bij mij om de achtergrondkleur van de cel. maar volgens mij kan een wijziging hierin niet als trigger dienen. Dus daarom dacht ik de macro te triggeren bij het verlaten van een cel.

Of , als een wijziging in achtergrondkleur wel als trigger kan dienen, daar een oplossing voor?

Gr. Pieter.

 

[edmoor]

Het verlaten van een cel activeert de _SelectionChange
Het wijzigen van de achtergrondkleur van een cel activeert geen enkel event.

 

[HSV]

@EvR heeft daar ooit een code voor geschreven/gevonden om een event te triggeren door het wijzigen van een celkleur.

Zeer ingewikkelde code en niet te volgen.

 

[edmoor]

Je kan ook zoiets doen:

Dim Kleur As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("C3").Interior.Color <> Kleur Then
        MsgBox "De kleur is gewijzigd"
    End If
    Kleur = Range("C3").Interior.Color
End Sub

 

[PTL69]

Met deze code krijg ik bij elke wijziging van cel (dus ook buiten de gestelde range) de MessageBox te zien.

g. Pieter

 

[edmoor]

Dat lijkt me logisch.
De gewenste range kan je daarin uiteraard zelf aanpassen
Alsook de cel waarvan je de kleur wilt controleren.

Het gaat om het gebruik van een variabele die in de hele sectie geldt.

 

[jkpieterse]

Zie bijlage...

 

[PTL69]

Super, dank je wel. daar kan ik idd wat mee.

Gr. Pieter