a1'de işlem yapılırsa makro1, b1'de...makro2, c1'de..makro3

[harziyan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub 
call makro1 
End Sub

Şeklinde çalışan makroma ilave yapmak istiyorum, ama beceremedim. İsteğim a1 için yapılan çağrının b1 ve c1 hücreleri için de gerçekleşmesi. Yani a1'de işlem yapılırsa makro1, b1'de işlem yapılırsa makro2 ve c1'de işlem yapılırsa makro3'ün otomatik çalıştırılması.

 

[Orion1]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:C1")) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 1 Then Call makro1
If Target.Column = 2 Then Call makro2
If Target.Column = 3 Then Call makro3
End Sub

 

[harziyan]

Eyvallah hocam pek güzel oldu.