• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excel Vba Listboxta filtre sorunu hak.

E

ESEZEN

Katılım
17 Aralık 2019
Mesajlar
31
Excel Vers. ve Dili
2010
[TR][TD]

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













































[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
 
Son düzenleme:
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
 
ListBox1.ColumnCount = ........ (istediğiniz sütün sayısı kadar ekleyin)
 
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.
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
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.
Genişletmek için tıkla ...
Merhaba dosyayi indiremiyorum.kod paylassaniz olurmu?
Birde başlık olayını label ile cozebilirim.benim icin onemli olan listeleme
 
Bu durumda siz örnek dosyanızı paylaşın destek olalım.
 
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 www.excel.web.tr
 
ListBox1.RowSource = "Listele!A2:Z" & SatirSay altına ListBox1.ColumnCount = 11 ekledim tam istediğim gibi oldu.
ilgi alakanıza teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst