Soru Satırdaki Rakam Değiştiğinde Belirli Alanları Temizleme Makrosu

[teyadih]

Merhaba arkadaşlar. Ekli dosyadaki Q2 deki rakam değiştiğinde R2 ve T2 arasındaki bilgileri temizleyecek makroya ihtiyacım var.
Makro bilgim kısıtlı olduğundan nasıl ve nereye uygulamam gerektiğini de yazabilir misiniz? Teşekkür ederim

 

[Muzaffer Ali]

Merhaba.

Yazışma sayfasının adını sağ tıklatın "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodu kopyalayın.

Dim Q2_Deger As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Q2")) Is Nothing And Target.Value <> Q2_Deger Then
        Application.EnableEvents = False
        Range("R2:T2").ClearContents
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Q2_Deger = Range("Q2").Value
End Sub

 

[teyadih]

Teşekkür ederim Muzaffer Ali bey elinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.