Çözüldü listbox veri süzerken üst satırın sabit kalması

turgay1983' Alıntı:

merhaba
ben Frm_Stoklistresin de veri süzdürürken aşağıdaki kodları kullanıyorum. süzme işi gayet iyi yalınız en üst teki sütün da veri süzerken gidiyor. en üst sütünü veri süzerken nasıl sabitlerim

Private Sub Txb_StokAdi_Change()
sat = Sheets("StokListesi").Cells(Rows.Count, "A").End(xlUp).Row
List_StokListe.RowSource = "": Txb_StokKod = ""
txtbx = UCase(Replace(Replace(Txb_StokAdi.Text, "i", "İ"), "ı", "I"))
x = 0
For i = 2 To sat
deg = UCase(Replace(Replace(Sheets("StokListesi").Cells(i, "B").Value, "i", "İ"), "ı", "I"))
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "" & txtbx & "" Then
List_StokListe.AddItem

List_StokListe.List(x, 0) = Sheets("StokListesi").Cells(i, "A").Value
List_StokListe.List(x, 1) = Sheets("StokListesi").Cells(i, "B").Value
List_StokListe.List(x, 2) = Sheets("StokListesi").Cells(i, "C").Value
List_StokListe.List(x, 3) = Sheets("StokListesi").Cells(i, "D").Value
List_StokListe.List(x, 4) = Sheets("StokListesi").Cells(i, "E").Value
List_StokListe.List(x, 5) = Sheets("StokListesi").Cells(i, "F").Value
List_StokListe.List(x, 6) = Sheets("StokListesi").Cells(i, "G").Value
List_StokListe.List(x, 7) = Sheets("StokListesi").Cells(i, "H").Value
List_StokListe.List(x, 8) = Sheets("StokListesi").Cells(i, "I").Value
List_StokListe.List(x, 9) = Sheets("StokListesi").Cells(i, "J").Value

x = x + 1
End If
Next i
End Sub

Genişletmek için tıkla...

SNNAY' Alıntı:

Buradan Çözümü bulabilirsiniz.

Genişletmek için tıkla...

Alpi' Alıntı:

Merhaba

Lİstboxa başlık eklemek için RowSource yöntemi kullanılmak zorunda AddItem ile başlık eklenemiyor.

Dosyanıza "FiltreSayfası" adında yeni bir sayfa ekledim ve gizledim.
ListBox'ta filitre yapıldığında bu sayfaya ekleniyor ve başlığı ile birlikte listboxa Rowsource yöntemi ile yeniden yükleniyor .

Genişletmek için tıkla...

Alicimri' Alıntı:

Listbox'ın üstüne bir listbox daha ekleyin, bu listbox'ın rowsource özelliğini" StokListesi!A1:K1" olarak belirleyin, yükseklği tek satırlık, diğer özellikleri asıl listbox ile aynı olsun.
Heri iki list box'ın columns heads özelliğini false yapın.

Genişletmek için tıkla...

turgay1983' Alıntı:

alpi üstadımın yaptığı oldu ama sizin de dediğinizi deniyeceğim

Genişletmek için tıkla...