Veri Doğrulama ile Oluşturulan Liste Elemanlarına Makro Atama2

[kubskubs]

Merhaba ,
Daha önce bu konu başlığı altında bir arkadaş sormuş ama cevap alamamış .
Excel de veri doğrulama ile oluşturduğum listenin elemanlarına makro atamak istiyorum. Listenin 2 elemanı var; "ASKI 1:1" ve "ASKI 2:1" .
Listeyi açıp "ASKI 1:1" veya "ASKI 2:1" seçtiğimde tabloda ona göre bir filtreleme yapmak istiyorum. Ama bu listenin elemanlarına makro kaydedemiyorum. Bu konuyla ilgili yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu Veri doğrulama yaptığınız sayfanın kod kısmına kopyalayın.
Veri doğrulama listenizin A1 hücresinde olduğunu varsayarsak

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        'Buraya istediğiniz kodu yazabilirsiniz. Seçili olan değeri "Target" ile öğrenebilirsiniz.
        MsgBox "Seçili değer: " & Target.Text
    End If
End Sub