B1 ve C1 Değişince Çalışan Makro

[askm]

Kolay gelsin.
Aşağıdaki kodlar ile B1 hücresi değişince makro çalışıyor. C1 hücresine veri girince B1 temizlensin farklı bir makro çalışsın.
B1 e veri girince de C1 temizlensin farklı bir makro çalışsın.Olabilir mi?
Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then
Exit Sub
Else
Call Arabul
Range("B1").Select
End If
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B1:C1")) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    If Target.Column = 2 Then
        Range("C1").ClearContents
        B1_Degisti
    Else
        Range("B1").ClearContents
        C1_Degisti
    End If
    
    Application.EnableEvents = True
    
End Sub

Sub B1_Degisti()
    MsgBox "B1 hücresi Değişti"
End Sub

Sub C1_Degisti()
    MsgBox "c1 hücresi Değişti"
End Sub

 

[askm]

Çok teşekkürler .