Change ve target.value

[Hurin]

Merhabalar,

Dim ilkdeger
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ilkdeger = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
sondeger = ilkdeger
MsgBox sondeger & " değerini" & vbNewLine & Target.Value & " olarak değiştirdiniz."

End Sub

Böyle bir kod var ancak sıkıntı şurada herhangi bir hücrede değişiklik yaptığımda msgbox devreye giriyor benim amacım sadece (A) sütunundaki hücrelerde değişiklik yaptığımda msgBox'ın devreye girmesi. Bunu nasıl düzeltebilirim ? Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Forumda Intersect komutunu araştırınız. Bolca örnekler var.

 

[Hurin]

Merhaba,

Forumda Intersect komutunu araştırınız. Bolca örnekler var.

Teşekkür ederim Korhan Bey.