vba da veri doğrulama hakkında yardımcı olurmusunuz

[Cengizhantr06]

sayfa2 de a1:a20 hücrelerinde veriler var bunları sayfa 1 de b2:b1000 arası her hücreye veri doğrulama nasıl yapabilirm

 

[Seyit Tiken]

Sayfa1'de b2:b1000 arasını seçili hale getirip deneyiniz.

 

[Cengizhantr06]

Sayfa1'de b2:b1000 arasını seçili hale getirip deneyiniz.
Ekli dosyayı görüntüle 218110

vba da kod ile yapmak istiyorum

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub VD()
Sayfa1.[b2:b1000].Validation.Delete
Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20"
End Sub

 

[Cengizhantr06]

Bu şekilde deneyiniz.

Sub VD()
Sayfa1.[b2:b1000].Validation.Delete
Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20"
End Sub

çok güzel oldu tşk ederim peki diyelim sayfa2 de ki a1 den a 20 ye kadar olan kısımda verilerin son 5ini sildim o zaman veri doğrulamada boşluk oluyor o boşluğu kaldırmamız mümkünmü acaba

 

[Cengizhantr06]

çok güzel oldu tşk ederim peki diyelim sayfa2 de ki a1 den a 20 ye kadar olan kısımda verilerin son 5ini sildim o zaman veri doğrulamada boşluk oluyor o boşluğu kaldırmamız mümkünmü acaba

yine aynı oluyor sanırım kod da aynı yukardaki ile

 

[Cengizhantr06]

çok güzel oldu tşk ederim peki diyelim sayfa2 de ki a1 den a 20 ye kadar olan kısımda verilerin son 5ini sildim o zaman veri doğrulamada boşluk oluyor o boşluğu kaldırmamız mümkünmü acaba

yine aynı oluyor sanırım kod da aynı yukardaki ile

 

[Seyit Tiken]

Veriler sondan silinirse boşluk oluşmaz, ortalardan silerseniz boşluk oluşur, bunun çözümü : makroyla A'den Z'ye sıralama yapmak, bu şekilde boşluk oluşmaz.

 

[Cengizhantr06]

Veriler sondan silinirse boşluk oluşmaz, ortalardan silerseniz boşluk oluşur, bunun çözümü : makroyla A'den Z'ye sıralama yapmak, bu şekilde boşluk oluşmaz.

Tm çok teşekkür ederim Seyit bey işiniz rast gelsin ????