Bir sayfada birden fazla makroyu çalıştırmak

[bilalakdeniz]

Arkadaşlar Merhaba, Aşağıdaki makronun aynı sayfada farklı hücre ve farklı makrolarla çalışmasını istiyoruz,

Örneğin: A1:A10 hücrelerine gelindiğinde = makro1 çalışacak
B1:B1 hücrelerine gelindiğinde = makro2 çalışacak
C1:C5 hücrelerine gelindiğinde = makro3 çalışacak


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
makroadi()
End Sub

Teşekkürler,

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
    makro1
    ElseIf Not Intersect(Target, Range("b1:b10")) Is Nothing Then
    makro2
    ElseIf Not Intersect(Target, Range("c1:c10")) Is Nothing Then
    makro3
    End If
End Sub

 

[bilalakdeniz]

Sayın hamitcan, Çok teşekkür ederim,