DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
MErhaba
İyi Çalışmalar
Umarım İStediğiniz Gibidir.
Asr35 çalışmanız için teşekkürler ancak istediğim bu değil tam olarak.List kısmına listede olmayan bişey yazdığınızda uyarı çıkıyor.Gönderdiğim örnekte D3 hücresine aa , cc gibi liste dışında bişey yazınca "lütfen listeden isminizi seçiniz" hata mesajını verdirebiliyorum.Bu hata mesajını boşluk olduğunda da vermesini istiyorum.Bu konuda yardımcı olabilirseniz sevinirim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("d3") = "" Then
MsgBox "Listeden İsim Seçiniz!"
End If
End Sub
Merhaba
Sayfanın kod bölümüne yazarak deneyiniz.
Kod:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("d3") = "" Then MsgBox "Listeden İsim Seçiniz!" End If End Sub
Aslında bu kod işinizi görür ancak sayfa üzerinde nerede işlem yapılacaksa o hücreler için yazmak gerekir.
Hatta kod olmadan da işlem yapılacak hücre için fonksiyonla çözüm üretilebilir.