Excel Vba Listboxta filtre sorunu hak.

[ESEZEN]

Merhaba Arkadaşlar
Excel Worksheets("Firma Araç ve Sürücü Bilgileri") te bulunan faklı kodlara ait,mesela Nak-17,Nak-18 bilgileri var,ben listtboxta textboxtaki bilgi ne ise diyelim Nak-17 sadece listele butonu ile listbox1 getirmesini istiyorum.Additem yönetmi işime yaramadı 10 sütun görüntülenebiliyor ve başlık yok.
Desteğinizi rica ederim.



Private Sub spm_listele_Click()

Dim SatirSay As Long
Worksheets("Firma Araç ve Sürücü Bilgileri").Select
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "52;150;50;50;50;90;70;70;70;70;50"
SatirSay = Worksheets("Firma Araç ve Sürücü Bilgileri").Range("A65536").End(xlUp).Row
If SatirSay < 2 Then SatirSay = 2
ListBox1.RowSource = "A2:K" & SatirSay


End Sub

          
           

 

[ESEZEN]

Aşağıdaki gibi ilerledim fakat listboxta sadece a sütunu gösteriyor



Private Sub CommandButton1_Click()
Dim S1 As Worksheet, S2 As Worksheet, Satir As Long

Application.ScreenUpdating = False

Set S1 = Sheets("Firma Araç ve Sürücü Bilgileri")
Set S2 = Sheets("Listele")

If kod <> "" Then
ListBox1.RowSource = ""
S2.Cells.Delete

S1.Range("a1").AutoFilter
S1.Range("A1:Z" & S1.Rows.Count).AutoFilter Field:=1, Criteria1:=kod.Text & "*"
S1.Range("A1:Z" & S1.Rows.Count).CurrentRegion.Copy S2.Range("A1:Z" & S2.Rows.Count)

SatirSay = S1.Range("A65536").End(xlUp).Row

If SatirSay < 2 Then SatirSay = 2
ListBox1.RowSource = "Listele!A2:Z" & SatirSay


Else
S1.Range("A2:Z" & S1.Rows.Count).AutoFilter Field:=1
Satir = S1.Cells(S1.Rows.Count, 1).End(3).Row
ListBox1.RowSource = "Firma Araç ve Sürücü Bilgileri!A2:Z" & Satir
End If

Application.ScreenUpdating = True
End Sub

 

[muysun35]

ListBox1.ColumnCount = ........ (istediğiniz sütün sayısı kadar ekleyin)

 

[muysun35]

10 sütun görüntülenebiliyor

Daha fazla sütun gösteremezsiniz Listbox ta. maksimum 10 sütun

 

[muysun35]

ListBox1.ColumnHeads = True

ColumnHeads kısmını label kullanarak çözebilirsiniz. Filtreleme yaptırdığın sayfada görüntülenmez sayfa başlıkları

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyip kendinize uygulamaya çalışın.

Harici Link (Silinebilir) ; https://s4.dosya.tc/server12/vbq28w/UserForm_ListBox.xlsm.html

Ek olarak AddItem metodu ile 10 sütunun üzerinde gösterim yapamazsınız. Fakat bunu Array (Dizi) yöntemiyle aşabilirsiniz. Ya da sizin kullandığınız gibi kopyala-yapıştır yöntemiyle yardımcı bir excel sayfası kullanarak aşabilirsiniz. Array yönteminde de başlıklar sorun olur. Siz başlıkları göstermek istiyorsanız RowSource metodunu kullanmak durumundasınız.

 

[ESEZEN]

Ekteki örnek dosyayı inceleyip kendinize uygulamaya çalışın.

Harici Link (Silinebilir) ; https://s4.dosya.tc/server12/vbq28w/UserForm_ListBox.xlsm.html

Ek olarak AddItem metodu ile 10 sütunun üzerinde gösterim yapamazsınız. Fakat bunu Array (Dizi) yöntemiyle aşabilirsiniz. Ya da sizin kullandığınız gibi kopyala-yapıştır yöntemiyle yardımcı bir excel sayfası kullanarak aşabilirsiniz. Array yönteminde de başlıklar sorun olur. Siz başlıkları göstermek istiyorsanız RowSource metodunu kullanmak durumundasınız.

Merhaba dosyayi indiremiyorum.kod paylassaniz olurmu?
Birde başlık olayını label ile cozebilirim.benim icin onemli olan listeleme

 

[Korhan Ayhan]

Bu durumda siz örnek dosyanızı paylaşın destek olalım.

 

[ESEZEN]

Merhaba dosyayi indiremiyorum.kod paylassaniz olurmu?
Birde başlık olayını label ile cozebilirim.benim icin onemli olan listeleme

Dosyayı indirdim.Eve varınca kontrol edecegim

 

[Korhan Ayhan]

Dosyada filtreleme ile ilgili kodlar yoktur. Sadece yöntem olarak 26 sütunu (A-Z sütun aralığı) forma nasıl yüklemeniz gerektiği ile ilgili kodlama vardır.

Dosyaya bakarak kendi kodlarınızda ki eksikleri giderebilirsiniz.

Ek olarak benzer bir konuyu linkte görebilirsiniz.

3 Kritere veya Combobox a göre listbox süzme / Filtreleme İşlemi

Merhaba; Ekteki dosyada 3 comboboxlarla filtrele yapmaya çalışıyorum ancak takıldım. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler. Durum: CB1 de giriş seçiliyse işlem kodu 101- ile başlayanlar, CB1 de sevk seçiliyse işlem kodu 601- ile başlayanlar, CB1 de transfer seçiliyse işlem...

www.excel.web.tr

 

[ESEZEN]

ListBox1.RowSource = "Listele!A2:Z" & SatirSay altına ListBox1.ColumnCount = 11 ekledim tam istediğim gibi oldu.
ilgi alakanıza teşekkür ederim.