Seçmeli Veri Doğrulama Listesi

[baydeniro]

Merhaba Arkadaşlar,

Veri Doğrulama için bir liste oluşturmak istiyorum.
A1 hücresinde Kavun
A2 hücresinde Kiraz
A3 hücresinde Kestane
A4 hücresi "boş"
A5 hücresinde "Satışlar"
A6 hücresinde Domates
A7 hücresinde Lahana
yazılı

Veri Doğrulama listemin A1:A3 ve A6:A7 kapsayan tek bir liste olmasını nasıl sağlayabilirim ?
yani A4 ve A5 Veri Doğrulama listesinde olmamalılar !

 

[FERAZ]

Veri doğrulama kısmına ilk önce A1:A3 ü seçip arasına ; koyup A6:A7 yi seçtinizmi.

Benim deneme fırsatım olmadı.

 

[çıtır]

Başka bir sütunda boşluk olmayan A sütunu ile ilişkili bir liste oluşturmalısınız ve veri doğrulama listesini yeni oluşturduğunuz listeden almalısınız.

 

[baydeniro]

Teşekkürler Feraz. O yöntemi denemiştim. Ama maalesef olmuyor.

 

[çıtır]

Teşekkürler Feraz. O yöntemi denemiştim. Ama maalesef olmuyor.

Maalesef yazdığım yöntemden başka yöntem bildiğim kadar yok.Veri doğrulama aralıklı alan kabul etmiyor.Dönüş yaptığınız için teşekkür ederim.

 

[baydeniro]

Teşekkürler Çıtır. Halen ben de belirttiğin gibi yapıyorum. Daha iyisi olabilir mi diye yeni yöntemleri araştırıyorum.

Maalesef yazdığım yöntemden başka yöntem bildiğim kadar yok.Veri doğrulama aralıklı alan kabul etmiyor.Dönüş yaptığınız için teşekkür ederim.

 

[çıtır]

Teşekkürler Çıtır. Halen ben de belirttiğin gibi yapıyorum. Daha iyisi olabilir mi diye yeni yöntemleri araştırıyorum.

Bulursanız rica ederim siteye yazınız. Bende öğrenmek isterim, araştırdım bulamadım.

 

[FERAZ]

Bulursanız rica ederim siteye yazınız. Bende öğrenmek isterim, araştırdım bulamadım.

Bu akşam birde ben uğraşayım çözülmezse ve unutmazsam.

 

[FERAZ]

Böyle bir kod ile yapabildim.Sayfa1 olsun ve kod çalışınca E1 de listelenir veri doğrulama.
Kod değişik yolla çağrılabilir.

Sub verdog()
 
Dim sd As Object, yyy As Range
 
With Sheets("Sayfa1")
    Set sd = CreateObject("Scripting.Dictionary")
    For Each yyy In .Range("A1:A3, A6:A7")
        sd(yyy.Value) = ""
    Next yyy
    .Range("E1").Validation.Delete
    .Range("E1").Validation.Add xlValidateList, Formula1:=Join(sd.keys, ",")
End With

Set sd = Nothing: Set yyy = Nothing

End Sub

 

[baydeniro]

Feraz çok teşekkür ederim, harika olmuş. Eline emeğine sağlık. Çok işime yarayacak. Sağlıcakla kalın.

 

[FERAZ]

Rica ederim.
Kolay gelsin.

 

[FERAZ]

Kod ile boşluk olsa bile veri doğrulama oluyor.
Ad tanımlamada başlık boşluklu olabilir kod ile.

Başka bir sütunda boşluk olmayan A sütunu ile ilişkili bir liste oluşturmalısınız ve veri doğrulama listesini yeni oluşturduğunuz listeden almalısınız.