VBA da boşluksuz veri doğrulama

[Cengizhantr06]

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

Bu kodu cok güzel çalışıyor ama mesala sayfa2 deki verilerden a1 ile a 20 arasını son 5 veriyi silince bu sefer veri doğrulama da boşluklar oluyor bu boşlugu almanın caresi yokmu

 

[Muzaffer Ali]

Merhaba.

Sub VD()
Sayfa1.[b2:b1000].Validation.Delete
Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$" & worksheets("sayfa2").cells(rows.count,"A").end(xlup).row
End Sub

 

[Cengizhantr06]

Merhaba.

Sub VD()
Sayfa1.[b2:b1000].Validation.Delete
Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$" & worksheets("sayfa2").cells(rows.count,"A").end(xlup).row
End Sub

istediğim gibi oldu çok çok teşekkür ederim ilginiz için