Data Validation Module Bağlama,

[MrExcelMr]

Merhaba;

A2 sütununda Listeden seçilen veriler yer alıyor. Bu listeden seçilen bilgilere kodu bağlamak istiyorum. Nasıl yapabilirim.

Örnekteki koda buton atamıştım. Şimdi A2 hücreden ne seçersem seçeyim kodun çalışması gerekiyor. Destek olabilir misiniz.

Sub Temizle()
Sheets("Sayfa1").Range("A5:AT10000").ClearContents
End Sub

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    Call Temizle
End Sub

 

[MrExcelMr]

@Korhan Ayhan Bey teşekkür ederim.