listbox'a add item ile veri eklerken tarihe göre süzme sorunu !!!

[mücahitayan]

merhaba arkadaşlar,

makrom aşağıdaki gibi...

2 adet dtpicker'ın bulunduğu satırı çıkarınca , ComboBox19'a benzer verileri İŞLEM sayfasından süzüp listbox'a atıyor. ben ek olarakta tarihe göre süzmesini istedim 2 adet dtpicker koydum. Dtpickerler çalışıyor. kendileri direkt süzme yapıyor. ama sorun şudur ki ;

süzülmüş olan combobox 19'daki verilerin içinde tarihe göre süzme yapmasını istiyorum.


aşağıdaki makroda birşeyleri es geçiyorum gibime geldi. yardımcı olabilirseniz çok memnun olurum.


(bu arada sitenin yapımcıları ve uzman arkadaşlara programıma yaptıkları katkılardan dolayı çok teşekkür ederim.)





ListBox1.RowSource = vbNullString
For i = 3 To Sheets("İŞLEM").Cells(65536, "A").End(xlUp).Row
If Sheets("İŞLEM").Cells(i, "A").Value = ComboBox19.Value Then
If Sheets("İŞLEM").Cells(i, "A").Value >= DTPicker11.Value Then
If Sheets("İŞLEM").Cells(i, "A").Value <= DTPicker12.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Sheets("İŞLEM").Cells(i, "D").Value
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
X = X + 1
End If
End If
End If
Next i

 

[Orion1]

Sizin sayfadaki verileriniz tarih değilde tarih görünümünde metin olabilir.Kontrol edin.

 

[mücahitayan]

exceldeki formatı tarih olarak gözüküyor :s :s

 

[mücahitayan]

ya gerçekten süpersiniz yaa evet tarih olan A değil D hücresiymiş dikkatimden kaçmış.

ama inanamıyorum kaç saattir bakıyorumda onu göremedim.

forumuda boşa meşgul ettim özür dilerim

çok saolun evren bey

 

[Orion1]

ya gerçekten süpersiniz yaa evet tarih olan A değil D hücresiymiş dikkatimden kaçmış.

ama inanamıyorum kaç saattir bakıyorumda onu göremedim.

forumuda boşa meşgul ettim özür dilerim

çok saolun evren bey

Ben bir şey söylersem mutlaka bir bildiğim vardır.Söylediğimi kaala alısanız kazançlı çıkarsınız.

 

[mücahitayan]

PEKİ BİRŞEY DAHA SORSAM, MÜMKÜN OLDUĞUNU SANMIYORUM AMA YİNEDE SORAYIM DEDİM.


AYNI ŞEKİLDE LİSTBOX'A ITEM EKLEYECEĞİM

FAKAT TEXTBOX12'YE VERİ GİRİŞİ YAPTIĞIMDA ,
Sheets("İŞLEM").Cells(i, "A").Value'NİN İÇİNDE EXCELDE OLDUĞU GİBİ ARAMA YAPMASINI İSTİYORUM. YANİ MESELA


Sheets("İŞLEM").Cells(i, "A").Value (NİN DEĞERİ) = "MÜCAHİT AYAN"

BEN TEXTBOX'A "MÜCAHİT" DİYE YAZSAMDA

"AYAN DİYE YAZSAMDA" BULMASINI SAĞLAYABİLİR MİYİZ ?





ListBox1.RowSource = vbNullString
For i = 3 To Sheets("İŞLEM").Cells(65536, "A").End(xlUp).Row
If Sheets("İŞLEM").Cells(i, "A").Value = TEXTBOX12.TEXT Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Sheets("İŞLEM").Cells(i, "D").Value
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
X = X + 1
End If
End If
End If
Next i

 

[Orion1]

o zaman sizde textbox kullanmayın.Onun yerine combobox kullanın.
propertiesten ShowDropButtonWhen özelliğinden ilk olanı 0 olanıu seçin.
içine verileri alın. istediğiniz olacaktır.