tarih hücre değerinden küçük ise user formda listox1 e

[ahmet79]

tarih hücre değerinden küçük ise user formda listox1 e listeleme yapmak istiyorum yardımcı olabilir misiniz?

örnek:sayfa1 p1 hücresinde 05/12/2004 tarihi var a kolonunda ise çeşitli tarihler var a kolonundaki tarihler p1 hücresindeki tarihten küçük olanları userform1 deki listbox1de görebilirmiyim ?

yardımcı olabilirmisiniz?

 

[Levent Menteşoğlu]

Bunun için bir örnek dosya eklermisiniz.

 

[veyselemre]

For x = 1 To Range("A65536").End(xlUp).Row
If Cells(x, 1) <= [p1] Then ListBox1.AddItem (Cells(x, 1))
Next

 

[ahmet79]

örnek dosya ekte

 

[ahmet79]

sn veyselemre nin vermiş olduğu kodlar ile listelemyi başardım fakat aradaki boş hücrelerin görünmemesini de sağlayabilirmiyim?

 

[veyselemre]

For x = 1 To Range("A65536").End(xlUp).Row
If Cells(x, 1) <= [p1] And Cells(x, 1) <> "" Then ListBox1.AddItem (Cells(x, 1))
Next

 

[ahmet79]

:icelim: sn veyselemre verdiğiniz kodlar için çok teşekkürler işim hallodu :hey: