- Katılım
- 23 Kasım 2011
- Mesajlar
- 10
- Excel Vers. ve Dili
- excel 2007
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub T[COLOR="Red"][B]extBox1[/B][/COLOR]_Change()
On Error Resume Next
NO = [COLOR="red"][B]TextBox1[/B][/COLOR].Value
Set FC2 = [COLOR="DarkOrchid"][B]Range("A3:R65000")[/B][/COLOR].Find(What:=NO)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
[COLOR="lime"][B]Selection.AutoFilter Field:=1[/B][/COLOR], Criteria1:=[COLOR="red"][B]TextBox1[/B][/COLOR].Value
If NO = "" Then
[COLOR="Lime"][B] Selection.AutoFilter Field:=1[/B][/COLOR]
End If
End Sub