Sadece A1 hücresi değiştiğinde çalışan makro

[huseyin610]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = 4 Then Range("A2") = 10

End Sub

Kodu ile A1 hücresi 4 değerini aldığında A2 hücresi 10 değerini alıyor.Ben ise bu sayfada sadece A1 hücresi değiştiğinde çalışan bir işlem istiyorum.Mesela A1 hücresindeki değer değiştiğinde A2 hücresine "HÜSEYİN" yazsın.

Target ifadesini kullanmam lazım ama ne şekilde kullanacağım.

 

[leumruk]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Target = 4 Then [a2] = 10
End Sub

 

[huseyin610]

Teşekkürler ,iyi çalışmalar.