Arama Kutusu

[adcetin]

resimdeki üç tane arama kutusu altlarındaki sütunda içinde yazdığım harfleri süzece şekilde arama yaptırmak istiyorum.

 

[Excelmy]

Sayfada "F" sütununda bulunan TextBox'unuza ;

Private Sub TextBox1_Change()
On Error Resume Next
RPRLR = TextBox1.Value
Set FC2 = Range("F4:J65536").Find(What:=RPRLR)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=6, Criteria1:=TextBox1.Value
If RPRLR = "" Then
Selection.AutoFilter Field:=6
End If
End Sub

Sayfada "G" sütununda bulunan TextBox'unuza ;

Private Sub TextBox2_Change()
On Error Resume Next
TNMLR = TextBox2.Value
Set FC2 = Range("G4:J65536").Find(What:=TNMLR)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=7, Criteria1:=TextBox2.Value
If TNMLR = "" Then
Selection.AutoFilter Field:=7
End If
End Sub

kodlarını uygulayın.
TextBox numaraları farklı ise değiştiriniz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu Sayfa1'in kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub TextBox1_Change()
    If TextBox1 <> "" Then
        Range("A3").AutoFilter Field:=1, Criteria1:=TextBox1 & "*"
    Else
        Range("A3").AutoFilter Field:=1
    End If
End Sub
 
Private Sub TextBox2_Change()
    If TextBox2 <> "" Then
        Range("A3").AutoFilter Field:=6, Criteria1:=TextBox2 & "*"
    Else
        Range("A3").AutoFilter Field:=6
    End If
End Sub
 
Private Sub TextBox3_Change()
    If TextBox3 <> "" Then
        Range("A3").AutoFilter Field:=7, Criteria1:=TextBox3 & "*"
    Else
        Range("A3").AutoFilter Field:=7
    End If
End Sub

 

[adcetin]

Korhan senin söyleğini uygulayınca oldu. Bu arada bende kodun mantığını çözdüm. Yardımlarınız için çok teşekkür ederim.