Listview süzme işlemi

[kelkitli]

Değerli Dostlar Selamlar,

Sub sorgula()
On Error Resume Next
Set SGE = Sheets("Makbuz")
İLK_TARİH = UserForm2.TextBox1.Value
SON_TARİH = UserForm2.TextBox2.Value
If İLK_TARİH <> "" And SON_TARİH <> "" Then
UserForm2.ListView1 = ""
UserForm2.ListView1.RowSource = ""
UserForm2.ListView1.ColumnCount = 8
UserForm2.ListView1.ColumnWidths = "30;65;80;80;80;55;30;80"
For Each Hücre In SGE.Range("D1" & SGE.[A65536].End(xlUp).Row)
If CDate(Hücre.Value) >= CDate(İLK_TARİH) And CDate(Hücre.Value) <= CDate(SON_TARİH) Then
UserForm2.ListView1.AddItem
UserForm2.ListView1.List(Satır, 0) = Hücre.Offset(0, 1).Value
UserForm2.ListView1.List(Satır, 1) = Hücre.Offset(0, 2).Value
UserForm2.ListView1.List(Satır, 2) = Hücre.Offset(0, 3).Value
UserForm2.ListView1.List(Satır, 3) = Format(Hücre.Offset(0, 4).Value, "dd.mm.yyyy")
UserForm2.ListView1.List(Satır, 5) = Hücre.Offset(0, 5).Value
UserForm2.ListView1.List(Satır, 6) = Hücre.Offset(0, 6).Value
UserForm2.ListView1.List(Satır, 7) = Hücre.Offset(0, 7).Value

Satır = Satır + 1
End If
Next
End If
Set SGE = Nothing
End Sub

Bu kodu uyarlayıp kayıtlar isimli sayfadan iki tarih arası gerekirse tüm verileri, gerekirse belli bir plakaya göre süzmeye çalıştım. Revize edemedim.

 

[Mahmut Kök]

Say&#305;n kelkitli, kodlar&#305;n&#305;z&#305; &#231;ok detayl&#305; incelemedim ama ilk g&#246;z&#252;me &#231;arpan &#351;ey, liste g&#246;sterici (listview) nesnesini liste kutusu (listbox) kodlar&#305;yla kullanmaya &#231;al&#305;&#351;m&#305;&#351;s&#305;n&#305;z. Mesela listviewe veri eklemek i&#231;in

UserForm2.ListView1.List(Satır, 0)=...

gibi bir kod kullanamazs&#305;n&#305;z. Listviewe veri y&#252;kleme kodlar&#305; listboxtan farkl&#305;d&#305;r. Verileri illa ki listviewde g&#246;stermek istiyorsan&#305;z, forumumuzdaki listview &#231;al&#305;&#351;malar&#305;n&#305; &#246;ncelikli olarak incelemenizi &#246;neririm. &#304;yi &#231;al&#305;&#351;malar.

 

[kelkitli]

Selamlar,
Te&#351;ekk&#252;r ederim Mahmut Bey.

 

[kelkitli]

ListBox ile iki tarih arası süzme işlemi tamam. Ancak süzülen veriyi plakaya göre yeniden süzmek istiyorum. Bir de şöyle bir sorun olştu. Takvim denetimleri ListBoxun altında kalıyor. Sıralama ile en üste getirmeye çalıştım olmadı.