Hücreye veri doğrulama listesinden veri seçilince makro çalışsın.

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada B3 hücresine açılır kutudan veri alıyorum. Veriyi seçince makronun çalışması gerekiyor. Nasıl yapmam lâzım.

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod bölümündeki kodu aşağıdaki şekilde değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = "$B$3" Then Yaz
End Sub

Yaz isimli makronuzuda aşağıdaki şekilde değiştirin ve renkli hücreden seçim yapıp deneyin.

Sub Yaz()
    Set S1 = Sheets("Sayfa1")
    S1.[C3] = "Teşekkür ederim"
End Sub

 

[kelkitli]

Sayın Korhan Bey çok teşekkür ederim.