Hücrelerdeki değişikliğe göre kod çalıştırmak

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim sayfanın kod sayfasında aşağıda yazılı bulunan kodları çalıştırmak istiyorum.
Bir türlü yapamadım, yardımcı olur musunuz?

Private Sub Worksheet_Change(ByVal Target As Range)

C4 hücresinde değişiklik olduğunda Makro2 çalışsın
D4 hücresinde değişiklik olduğunda Makro1 çalışsın
I4 hücresinde değişiklik olduğunda Makro4 çalışsın
J4 hücresinde değişiklik olduğunda Makro3 çalışsın

End Sub

http://dosya.co/rr053akq9mmq/ÖRNEK.xlsm.html
.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C4:D4,I4:J4")) Is Nothing Then Exit Sub
'C4 hücresi değişince
'Makro2 çalışsın

'D4 hücresi değişince
'Makro1 çalışsın

'I4 hücresi değişince
'Makro4 çalışsın

'J4 hücresi değişince
'Makro3 çalışsın
Application.EnableEvents = False
If Target.Address = "$C$4" Then Call Makro2
If Target.Address = "$D$4" Then Call Makro1
If Target.Address = "$I$4" Then Call Makro4
If Target.Address = "$J$4" Then Call Makro3
Application.EnableEvents = True
End Sub

 

[ASLAN7410]

Sayın Evren Bey ellerinize sağlık Allah razı olsun, tam istediğim gibi oldu.

Hayırlı sabahlar hayırlı çalışmalar diliyorum.

 

[ASLAN7410]

Bu mesajı silindi

 

[Orion1]

Bu mesajı silindi

Ne yapmak istiyorsunuz o formülle?

 

[ASLAN7410]

Sayın Evren Bey gerek kalmadı, çok teşekkür ediyorum.

Hayırlı sabahlar, hayırlı çalışmalar diliyorum.

 

[Orion1]

Sayın Evren Bey gerek kalmadı, çok teşekkür ediyorum.

Hayırlı sabahlar, hayırlı çalışmalar diliyorum.

Rica ederim.
İyi çalışmalar.