İki ayrı makroyu birlikte çalıştırma

[tahsinanarat]

Aşağıdaki iki ayrı makroyu aynı anda kullanmak istiyorum, ancak birleştirdiğimde makrolardan birini çalışatıramadım.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    If StrComp(Replace(Target.Value, "İ", "i"), "E", 1) = 0 Then Target.Offset(0, 3) = "EVET"
    On Error GoTo Son

Son:
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, Range("G3:G65536")) Is Nothing Then Exit Sub
[A3:K65536].Sort Key1:=[C3], Key2:=[D3]
sonboşdeğer 'başka bir makro adı

End Sub

 

[tahsinanarat]

Korhan hocamın kodlarından faydalanarak aşağıdaki şekilde çözümledim.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo Son
    If Intersect(Target, [E3:E65536,G3:G65536]) Is Nothing Then Exit Sub
    If StrComp(Replace(Target.Value, "İ", "i"), "E", 1) = 0 Then Target.Offset(0, 3) = "EVET"
        Select Case Target.Column
            Case 5
                If StrComp(Replace(Target.Value, "İ", "i"), "E", 1) = 0 Then Target.Offset(0, 3) = "EVET"
            Case 7
                Sırayakoy 'makro adı
        End Select
Son:
End Sub

 

[baydeniro]

Teşekkürler