Aynı Sayfada Farklı Hücrelerde Farklı Makroları otomatık çalıştırma

[mnsahin]

Merhaba,

Sheet 1 de asagıdakı hucrelere deger gırınce otomatık olarak makroların calısması ıcın nasıl bır kod yazmamız gerekıyor.


A1 : A100 arasında Makro1
E2 : E100 arasında Makro2
F1: F100 arasında Makro3

 

[Murat OSMA]

Bu kodları kullanabilirsiniz.

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        Call Makro1
    ElseIf Not Intersect(Target, Range("E2:E100")) Is Nothing Then
        Call Makro2
    ElseIf Not Intersect(Target, Range("F1:F100")) Is Nothing Then
        Call Makro3
    End If
End Sub[/SIZE]

 

[baydeniro]

güzel paylaşım teşekkürler.