İkinci otomatik tetikleme nasıl olur ?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Kod içindeki makro, T2 hücresi değiştiğinde Makro1 i tetikleyip kursorun AE2 hücresine gidip beklemesini sağlıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [T2]) Is Nothing Then Exit Sub
    If Not [T2] Is Nothing Then
        Call Makro1
    End If
    Range("AE2").Select
End Sub

Nasıl bir ekleme yaparsam, AE2 de olan değişiklikle Makro2 nin tetiklenmesi sağlanır?
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "T2": Call Makro1: Range("AA2").Select
        Case "AA2": Call Makro2
    End Select
End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Private Sub Worksheet_Change(ByVal Target As Range)
    If not Intersect(Target, Range("T2")) Is Nothing and Not range("T2") Is Nothing Then
        Call Makro1
        Range("AE2").Select
    elseif not Intersect(Target, Range("AE2")) Is Nothing
        makro2
    End If
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Teşekkür ederim
Saygılarımla

 

[Tevfik_Kursun]

Teşekkür ederim Muzaffer Ali
Saygılarımla