Macro uitvoeren

[kusje]

Ik wil een macro laten uitvoeren als in Cel B2 23 staat en cel A1 van waarde veranderd. Enig idee?
Ik ben aan het prutsen met slectionchange, maar kom er vooralsnog niet uit.

 

[jzeedijk]

Hoi Kusje,

Gebruik Change ipv SelectionChange
If Range("B2")=23 and Range("A1")<>Range("AA1") Then
macro
Range("AA1")=Range("A1")
End if

SelectionChange betekent doe iets als de selection verandert. Selection is de actieve cel in deze.
Change doet iets als de waarde in een actieve cel verandert. Door If-statement te gebruiken zorg je er voor dat de macro alleen gaat lopen als A1 ongelijk is aan AA1.

Jeroen

 

[kusje]

Dank je Jeroen, maar die optie had ik ook al geprobeerd. Van iemand anders heb ik deze oplossing gekregen. En die doet precies wat ik wil.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static sWaardeb2
If IsEmpty(sWaardeb2) Then
sWaardeb2 = Range("b2").Value
ElseIf sWaardeb2 <> Range("b2").Value And Range("iq2").Value < 24 Then
sWaardeb2 = Range("b2").Value
MsgBox "Deze cel mag je niet wijzigen"
End If
End Sub

Kusje