Ara bul

[sedat2161]

Hayırlı akşamlar arkadaşlar. Ekteki dosyamda tekxtBox 3 ve 4 e ad ve soyad yazdığımda listboxta bulup üste gelemesini istiyorum ama bir türlü yapamadım yardımcı olursanız çok memnun olurum. İyi çalışmalar diliyorum.

 

[Emir Hüseyin Çoban]

.

"Üste gelmesi" dediğiniz Textbox1 ve Textbox2' ye mi

.

 

[sedat2161]

.

"Üste gelmesi" dediğiniz Textbox1 ve Textbox2' ye mi

.

Hayır. Listboxta aradığım tek görünecek şekilde. Yanı süz gibi.

 

[Emir Hüseyin Çoban]

.

yardımcı isminde yeni bir sayfa ekleyin.
isterseniz bu sayfayı gizleyebilirsiniz.

Private Sub TextBox3_Change()

    Sheets("yardımcı").Cells.ClearContents

    With Sheets("5")

        On Error Resume Next
        If Not .AutoFilterMode Then
            .Range("A9").AutoFilter
        Else
            .ShowAllData
        End If

        a1 = Sheets("yardımcı").Range("A1")
        .Range("A9").AutoFilter Field:=1, Criteria1:="*" & TextBox3.Text & "*"
        .Range("B9").AutoFilter Field:=2, Criteria1:="*" & TextBox4.Text & "*"
        .AutoFilter.Range.Copy Sheets("yardımcı").Range("a1")

        On Error Resume Next
        .ShowAllData
        On Error GoTo 0
    End With

    ListBox1.RowSource = "yardımcı!A2:h" & Sheets("yardımcı").Cells(Rows.Count, "A").End(3).Row


End Sub

Private Sub TextBox4_Change()

Sheets("yardımcı").Cells.ClearContents

With Sheets("5")

On Error Resume Next
If Not .AutoFilterMode Then
.Range("A9").AutoFilter
Else
.ShowAllData
End If

a1 = Sheets("yardımcı").Range("A1")
.Range("A9").AutoFilter Field:=1, Criteria1:="*" & TextBox3.Text & "*"
.Range("B9").AutoFilter Field:=2, Criteria1:="*" & TextBox4.Text & "*"
.AutoFilter.Range.Copy Sheets("yardımcı").Range("a1")

On Error Resume Next
.ShowAllData
On Error GoTo 0
End With

ListBox1.RowSource = "yardımcı!A2:h" & Sheets("yardımcı").Cells(Rows.Count, "A").End(3).Row

End Sub

.

 

[sedat2161]

.

yardımcı isminde yeni bir sayfa ekleyin.
isterseniz bu sayfayı gizleyebilirsiniz.

Private Sub TextBox3_Change()

    Sheets("yardımcı").Cells.ClearContents

    With Sheets("5")

        On Error Resume Next
        If Not .AutoFilterMode Then
            .Range("A9").AutoFilter
        Else
            .ShowAllData
        End If

        a1 = Sheets("yardımcı").Range("A1")
        .Range("A9").AutoFilter Field:=1, Criteria1:="*" & TextBox3.Text & "*"
        .Range("B9").AutoFilter Field:=2, Criteria1:="*" & TextBox4.Text & "*"
        .AutoFilter.Range.Copy Sheets("yardımcı").Range("a1")

        On Error Resume Next
        .ShowAllData
        On Error GoTo 0
    End With

    ListBox1.RowSource = "yardımcı!A2:h" & Sheets("yardımcı").Cells(Rows.Count, "A").End(3).Row


End Sub

Private Sub TextBox4_Change()

Sheets("yardımcı").Cells.ClearContents

With Sheets("5")

On Error Resume Next
If Not .AutoFilterMode Then
.Range("A9").AutoFilter
Else
.ShowAllData
End If

a1 = Sheets("yardımcı").Range("A1")
.Range("A9").AutoFilter Field:=1, Criteria1:="*" & TextBox3.Text & "*"
.Range("B9").AutoFilter Field:=2, Criteria1:="*" & TextBox4.Text & "*"
.AutoFilter.Range.Copy Sheets("yardımcı").Range("a1")

On Error Resume Next
.ShowAllData
On Error GoTo 0
End With

ListBox1.RowSource = "yardımcı!A2:h" & Sheets("yardımcı").Cells(Rows.Count, "A").End(3).Row

End Sub

.
[/QUO
Hocam teşekkür ederım. Emeğinize sağlık

 

[sedat2161]

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