Sayfadaki değişikliklerle tetiklenen farklı iki makronun birleştirilmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_Change(ByVal Target As Range)
    If [B1] <> 1 Then Exit Sub
     Call Makro1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    Call Makro2
End Sub

Bu iki makroyu nasıl birlikte çalıştırabilirim?
Saygılarımla

 

[kulomer46]

Merhaba

Aşağıdaki şekilde olabilir.

Selamlar...

Private Sub Worksheet_Change(ByVal Target As Range)

    If [B1] <> 1 And Intersect(Target, [G:G]) Is Nothing Then
  
        Exit Sub
      
    End If

    If [B1] = 1 Then Call Makro1

    If Not Intersect(Target, [G:G]) Is Nothing Then Call Makro2

End Sub

 

[Tevfik_Kursun]

Sayın Kulomer46 Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[kulomer46]

Sayın Kulomer46 Hocam,
Çok teşekkür ederim.
Saygılarımla

Selamlar...