"B37"Hücresinin içindeki veri silindiği zaman "E37"ve veyahut seçeceğim başka bir hücrenin içeriğini silme

[Theseus35]

**"B37"Hücresinin içindeki veri silindiği zaman "E37"ve veyahut seçeceğim başka bir hücrenin içeriğini silme**(
Merhaba;
Bir Teklif Formu oluşturuyorum, başlıkta belirttiğim aşama için uygun bir çözüm bulamadım.Eğer ile formül yazdım fakat yazılan formülün içeriğini de el ile değiştirdiğimden istenilen çalışma şekline ulaşamadım.Değerli yorum ve yardımlarınızı bekliyorum.
İyi çalışmalar.

 

[muhasebeciyiz]

Private Sub Worksheet_Change(ByVal Target As Range)   
    If Not Intersect(Target, Me.Range("B37")) Is Nothing Then       
        Me.Range("E37").ClearContents
    End If
End Sub

Eğer B37 hücresindeki veri silinirse veya değiştirilirse, E37 hücresinin içeriği temizlenir

 

[Theseus35]

Private Sub Worksheet_Change(ByVal Target As Range)  
    If Not Intersect(Target, Me.Range("B37")) Is Nothing Then      
        Me.Range("E37").ClearContents
    End If
End Sub

Eğer B37 hücresindeki veri silinirse veya değiştirilirse, E37 hücresinin içeriği temizlenir

Merhaba kıymetli cevabınız için çok teşekkür ederim, aynı if döngüsünü çoğaltarak diğer hücrelere de komutu işleyebildim.Elinize ve emeğinize sağlık.İyi günler.