ComboBox ile Listbox ta süzme

[taseraydin]

Değerli arkaddaşlar Listboxta combobox la süzme örnek kodu lazım formda aramaya çalıştım ama bulamadım ve çoğu dosyalar işlevsiz..

 

[chngrcn]

Merhaba,
örnek dosyanızı ekleyiniz, yardimci olalim..

 

[taseraydin]

örnek dosya ekteddir
ilgilenirseniz memnum olurum

 

[Husgvarna]

Değerli arkaddaşlar Listboxta combobox la süzme örnek kodu lazım formda aramaya çalıştım ama bulamadım ve çoğu dosyalar işlevsiz..

Merhaba.
Dosyanızdaki "UserForm_Initialize" bölümünü aşağıdakiyle değiştirin.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "25;110;45;40;100;40;40"
For a = 5 To Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.AddItem Cells(a, 1)
     ListBox1.List(c, 1) = Cells(a, 2)
         ListBox1.List(c, 2) = Cells(a, 3)
     ListBox1.List(c, 3) = Cells(a, 4)
         ListBox1.List(c, 4) = Cells(a, 5)
     ListBox1.List(c, 5) = Format(Cells(a, 6), "#,##.00")
         ListBox1.List(c, 6) = Format(Cells(a, 7), "##,##.00")
 c = c + 1
 Next
ComboBox2.Clear
ComboListe = Benzersiz_Liste(Sayfa1.Range("B5:B3500"), True)
For i = 1 To UBound(ComboListe)
ComboBox2.AddItem ComboListe(i)
Next i
    Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Bunuda "Combobox" a ekleyin.

 Private Sub ComboBox2_Change()
ListBox1.Clear
sat = Cells(Rows.Count, "B").End(xlUp).Row
Set k = Range("B4:B" & sat).Find(ComboBox2)
If Not k Is Nothing Then
adr = k.Address
Do
ListBox1.AddItem Cells(k.Row, 1)
     ListBox1.List(c, 1) = Cells(k.Row, 2)
         ListBox1.List(c, 2) = Cells(k.Row, 3)
     ListBox1.List(c, 3) = Cells(k.Row, 4)
         ListBox1.List(c, 4) = Cells(k.Row, 5)
     ListBox1.List(c, 5) = Format(Cells(k.Row, 6), "#,##.00")
         ListBox1.List(c, 6) = Format(Cells(k.Row, 7), "##,##.00")
 c = c + 1
Set k = Range("B1:B" & sat).FindNext(k)
Loop While Not k Is Nothing And adr <> k.Address
End If
End Sub

 

[taseraydin]

ilginize teşekür ederim mükemmel olmuş,ancak listboxta stunlardaki başlıkları göstermek istiyorum
ListBox1.RowSource = "A5:G" & [B65536].End(3).Row verdiğiniz koda bunu eklemdeye çalıştyım olmadı

 

[Husgvarna]

ilginize teşekür ederim mükemmel olmuş,ancak listboxta stunlardaki başlıkları göstermek istiyorum
ListBox1.RowSource = "A5:G" & [B65536].End(3).Row verdiğiniz koda bunu eklemdeye çalıştyım olmadı

Veriler "RowSource " özelliği kullanılarak listeye alındığında başlıklar gösterilebiliyor. Bu özellik kullanılarak alındığında ise listede kodlarla silme veya ekleme yapılamıyor. Başlıkları gösterebilmek için arama yapılarak bulunan verileri bir başka sayfaya alıp; "combobox" daki kodların sonuna
" ListBox1.RowSource = "SAYFA2!A5:G" & [B65536].End(3).Row " eklemeniz gerekli.
Bence "Listview" kullanın kodları ona göre değişelim.

 

[hturkavci03]

Hocam eline sağlık, benzer bir problemim sayende çözüldü. Paylaşım için çok teşkkürler.

 

[raburabu]

merhaba husgvarna hocam

Öncelikle bilgi için çok teşekkür ederim. Bunu kendi formuma uyguladım. Ancak benim şöyle bir sıkıntım oldu. formumu başka sayfa açmak istediğimde listboxa bilgiler gelmiyor. bu hususta yardımcı olursanız çok sevinirim. Ben formu başak sayfada kullanmak istiyorum. verilerin alındığı sayfa gözükmemesi gerekiyor.