çoklu arama ve lw de gösterme

[öğrtm]

mrb
isme göre arama yapmak istiyorum.kullandığım kodlar isim ve soyismin tek hücrede olmasına göre ayarlı.benim yapmak istediğim isim bir sütunda soyisim yanındaki sütunda bu konuda yardımlarınızı bekliyorum

 

[Orion1]

Dosyanız ektedir.

Dim sat As Long
Me.ListView1.ListItems.Clear
sat = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
Set i = Sheets("Sayfa1").Range("c1:c" & sat).Find(Me.TextBox1 & "*", , xlValues, xlWhole)
If Not i Is Nothing Then
    adr = i.Address
    Do
        k = k + 1
        Me.ListView1.ListItems.Add , , k
        Me.ListView1.ListItems(k).SubItems(1) = i.Offset(0, -1)
        Me.ListView1.ListItems(k).SubItems(2) = i & " " & i.Offset(0, 1).Value

        Set i = Sheets("Sayfa1").Range("c1:c" & Sheets("Sayfa1").[c60000].End(3).Row).FindNext(i)
    Loop While Not i Is Nothing And i.Address <> adr
    Exit Sub
End If

 

[öğrtm]

evren bey textbox a isim ve soy isim birlikte girilecek şekilde düşünmüştüm.
bu şekliyle sadece isim girildiğinde arama yapıyor

 

[Orion1]

evren bey textbox a isim ve soy isim birlikte girilecek şekilde düşünmüştüm.
bu şekliyle sadece isim girildiğinde arama yapıyor

Ekli dosyadaki gibi olur.

Private Sub CommandButton1_Click()
Dim sat As Long
Me.ListView1.ListItems.Clear
sat = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
Set i = Sheets("Sayfa1").Range("c1:c" & sat).Find(Me.TextBox1 & "*", , xlValues, xlWhole)
If Not i Is Nothing Then
    adr = i.Address
    Do
        If i.Offset(0, 1).Value Like TextBox2.Text & "*" Then
            k = k + 1
            Me.ListView1.ListItems.Add , , k
            Me.ListView1.ListItems(k).SubItems(1) = i.Offset(0, -1)
            Me.ListView1.ListItems(k).SubItems(2) = i & " " & i.Offset(0, 1).Value
        End If

        Set i = Sheets("Sayfa1").Range("c1:c" & Sheets("Sayfa1").[c60000].End(3).Row).FindNext(i)
    Loop While Not i Is Nothing And i.Address <> adr
    Exit Sub
End If
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub UserForm_Initialize()
Dim rng1 As Range
With Me.ListView1
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
End With
ListView1.ColumnHeaders.Add , , "Sıra No"
ListView1.ColumnHeaders.Add , , "Numara"
ListView1.ColumnHeaders.Add , , "Adı"
ListView1.ColumnHeaders.Add , , "Soyadı"
For Each rng1 In Sheets("Sayfa1").Range("b1:b" & Sheets("Sayfa1").[a60000].End(3).Row)
    k = k + 1
    Me.ListView1.ListItems.Add , , k
    Me.ListView1.ListItems(k).SubItems(1) = Sheets("Sayfa1").Cells(k, "B").Value
    Me.ListView1.ListItems(k).SubItems(2) = Sheets("Sayfa1").Cells(k, "C").Value
    Me.ListView1.ListItems(k).SubItems(3) = Sheets("sayfa1").Cells(k, "D").Value
Next rng1

End Sub

 

[öğrtm]

teşekkür ederim.emeğinize sağlık

 

[Orion1]

teşekkür ederim.emeğinize sağlık

Rica ederim.
İyi çalışmalar.