Soru Listbox'ta sayfada ki diğer hücreleri gösterme?

[karakrall01]

Herkese kolay gelsin, eklediğim dosyada listbox içerisinde kelime ile arama yapabiliyorum fakat listboxta diğer sutunları gösteremiyorum bir türlü. Örnek vermek gerekirse A sutunu listbox içinde görüyorum ama yan tarafında bulunan B,C,D... sutunlarına yazdıklarım listbox içinde görülmüyor malesef. Yardımcı olabilirmisiniz şimdiden teşekkür ederim.

 

[karakrall01]

Konu güncel?‍

 

[metin_0606]

Konu güncel?‍

Private Sub UserForm_Initialize()
x = Sheets("Sayfa1").[a65536].End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A2:D" & x
End Sub

Sizde bu satır ListBox1.RowSource = "Sayfa1!A2:A" & x olduğu için gelmiyor benim paylaştığım kod gibi yazarsanız istediğiniz olacaktır

 

[karakrall01]

Private Sub UserForm_Initialize()
x = Sheets("Sayfa1").[a65536].End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A2:D" & x
End Sub

Sizde bu satır ListBox1.RowSource = "Sayfa1!A2:A" & x olduğu için gelmiyor benim paylaştığım kod gibi yazarsanız istediğiniz olacaktır

malesef gene olmadı gelmedi. Seçili hücrelere isim atayıp;

ListBox1.Rowsource = "Sayfa1!KAYIT"

şu şekilde değiştirdiğimde listboxta bütün hücreleri görebiliyorum fakat textboxta arama yaptırdığımda bu sefer o gördüğüm diğer hücreler kayboluyor ve sadece A sutununda ki arama yaptırdığım sutun kalıyor.

 

[metin_0606]

malesef gene olmadı gelmedi. Seçili hücrelere isim atayıp;

ListBox1.Rowsource = "Sayfa1!KAYIT"

şu şekilde değiştirdiğimde listboxta bütün hücreleri görebiliyorum fakat textboxta arama yaptırdığımda bu sefer o gördüğüm diğer hücreler kayboluyor ve sadece A sutununda ki arama yaptırdığım sutun kalıyor.

Deneyiniz

 

[karakrall01]

Deneyiniz

Hocam teşekkür ederim ama benim ilk attığım şekilde ki gibi textbox büyük küçük harfe duyarlı olmamalı direk yazdığımda getirmeli o şekilde nasıl yapaliriz acaba şimdiden tekrardan çok teşekkür ederim cevabınız için.

 

[karakrall01]

Ayrıca benim ilk verdiğim kodlama şeklini değiştirmeden dediğimi yapma ihtimalimiz var mı sadece bir ekleme yaparak?

 

[karakrall01]

Konu güncel?‍

 

[karakrall01]

Konu güncel

 

[Orion1]

Buyurun.
Dosya ektedir.

Private Sub TextBox1_Change()
Dim i As Long, sat As Long, deg As String, x As Long
sat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = ""
x = 0
deg = TextBox1.Value
For i = 2 To sat
    If Cells(i, "A").Value = deg Then
        ListBox1.AddItem
        ListBox1.List(x, 0) = Sheets("Sayfa1").Cells(i, "A").Value
        ListBox1.List(x, 1) = Sheets("Sayfa1").Cells(i, "B").Value
        ListBox1.List(x, 2) = Sheets("Sayfa1").Cells(i, "C").Value
        ListBox1.List(x, 3) = Sheets("Sayfa1").Cells(i, "D").Value
        x = x + 1
    End If
Next i
    
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
x = Sheets("Sayfa1").[a65536].End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A2:D" & x
End Sub

 

[metin_0606]

Konu güncel

 

[karakrall01]

Çok teşekkür ederim yardımlarınız için sağolun