- Katılım
- 8 Mart 2006
- Mesajlar
- 317
- Excel Vers. ve Dili
- EXCEL-2013
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set JA2 = Range("K700:K65000").Find(What:=METİN1)
Application.Goto Reference:=Range(JA2.Address), _
Scroll:=False
Selection.AutoFilter Field:=11, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=11
End If
End Sub