userform da arama

[tokerx22]

form actıgımızda index sayfasındaki a,b,e, sutunlarını göstermesini istiyorum üsteki arama kutucugunun da b sutuna göre arama yapmasını istiyorum yalınız bir türlü yapamadım yardımcı olursanız sevinirim simdiden teşekkürler.iyi akşamlar

 

[Korhan Ayhan]

Selamlar,

Formunuzdaki tüm kodları silip aşağıdaki kodu deneyin. Arama sonucunda hangi sütunları listelemek istediğinizi belirtmediğiniz için sadece isimleri listelettim. Diğer sütunlarıda listelemek istiyorsanız kodu güncellemek gerekecektir.

Private Sub ListBox1_Click()
    With ListBox2
        .ColumnCount = 5
        .ColumnWidths = "150,150,50,50,50"
        .RowSource = ListBox1.List(ListBox1.ListIndex, 1) & "!A1:G158"
    End With
End Sub
 
Private Sub TextBox1_Change()
    Dim X As Long, Satır As Integer
    Dim Veri1 As String, Veri2 As String
    
    With ListBox1
    .RowSource = ""
    .Clear
    .ColumnWidths = "30,150,0,0,50"
    End With
    
    If TextBox1 <> "" Then
        For X = 2 To Sheets("index").Cells(65536, "B").End(xlUp).Row
            Veri1 = UCase(Replace(Replace(Cells(X, "B"), "ı", "I"), "i", "İ"))
            Veri2 = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
            If Veri1 Like "*" & Veri2 & "*" Then
                ListBox1.AddItem
                ListBox1.List(Satır, 0) = Cells(X, "A")
                ListBox1.List(Satır, 1) = Cells(X, "B")
                ListBox1.List(Satır, 4) = Format(Cells(X, "E"), "#,##0.00 TL")
                Satır = Satır + 1
            End If
        Next
    End If
End Sub
 
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 5
    ListBox1.ColumnWidths = "30,150,0,0,50"
    ListBox1.RowSource = "index!A3:E" & Sheets("index").Range("B65536").End(3).Row
End Sub

 

[tokerx22]

teşekkürler yardımlarınız için yalınız ben listelemek istedigim yeri belirtmeyi unutmuşum textbox1 de arama yaptıgım zaman ListBox1 de listeleme yapmak istiyorum ve ListBox1 de listelenen isimlere tıklama yada çift tıklama yaptıgım zaman ListBox2 o kişiye ait sayfanın orda acılmasını istiyorum üzerine tıkladıgımız kişi ile sayfası aynı isimi taşımaktadır.gelmesini istedigim sutunlarda A sutunundan G sutunununa kadardır. hayırlı günler iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodda gerekli değişikliği yaptım. İncelermisiniz.

 

[tokerx22]

Sy Korhan abi
acıklamanıziçin teşekkürler yalınız textboxta arama yaparken listbox1 de isimlerin karşılıgındaki tutar gözükmüyor arama yaparken tutarında karsısında suzulmesi mumkunmu ayrıca listbox1 deki arama sonuclarına göre hücreye tıkladıgımızda listbox2 deki degerlerde ekleme yapa bilmek mümkünmü . sanki sayfasını açmışımda içerisine veri girişi yapıyormusum gibi oynama yapmam mümkümü. hayırlı günler iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

1. sorunuz için üstteki mesajımdaki kodu güncelledim.

2. sorunuz için ListBox nesnesi uygun bir nesne değildir. Listelenen verilerde değişiklik yapmak için SpreadSheet nesnesini kullanmanızı tavsiye ederim. Bununla ilgili forumda örnekler bulunmaktadır. Ararsanız ulaşabilirsiniz.