Veri listesi hakkında

[recepkull]

Veri doğrulama sekmesinden bir liste oluşturdum. Bu liste A1 hücresindeki bir koşulu sağlamıyor ise açılmasını nasıl engelleyebilirim ?

Örnek:
B1 hücresinde bir liste 1;2;3;4;5;6;7;8;9 olsun
A1 hücresinde de "Renkler" yazıyor olsun.

A1 hücresinde "Rakamlar" yazıyor ise B1 hücresindeki listesi açılacak
A1 hücresinde "Renkler" yazıyor ise B1 hücresindeki listesi açılmayacak bir hata yada uyarı verecek. Böyle bir şeyi nasıl yapabilirim?

 

[Haluk]

Ekli dosyadaki A1 hücresinde veri doğrulama var, incelersiniz...

.

 

[recepkull]

Çok teşekkür ederim Haluk hocam.

 

[muygun]

Merhaba;
Alternatif
İnceleyin.
İyi çalışmalar.

 

[recepkull]

güzel bi çalışma olmuş hocam elinize sağlık

 

[Seyit Tiken]

Bu kod Haluk beyin çalışmasına eklenirse girilen şartlı değere göre liste otomatik açılır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not [b1] = "Rakkamlar" Then Exit Sub
If Target.Address = "$B$1" Then
[A1].Select
SendKeys "%{down}"
End If
End Sub