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

[turgay1983]

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

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[SNNAY]

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

Buradan Çözümü bulabilirsiniz.

 

[turgay1983]

Buradan Çözümü bulabilirsiniz.

merhaba ben o konuyu inceledim ama maalesef kendi formlarıma uygulayamadım.

 

[Alpi]

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 .

 

[turgay1983]

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 .

benim excele uyguladığımda aşağıdaki gibi hata veriyor

 

[Alicimri]

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.

 

[Alpi]

benim excele uyguladığımda aşağıdaki gibi hata veriyor
Ekli dosyayı görüntüle 27544

Stok_Listesi kodunu da değiştirmelisiniz.
aşağıdaki gibi olacak.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[turgay1983]

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.

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

 

[turgay1983]

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

tekrar merhaba sizin de dediğiniz oldu iki seçenekte güzel oldu ilginiz için teşekkürler