Ornek dosyada gorulecegi uzere hazırlanan listede urun kodu sutunundakı textbox ile suzme isleminde hata ulusmaktadır.
Soyleki ornek dosyadaki renklendirilmis olan hucrelerde textbox ile suzme islemi yapılamamaktadır.
(not:hucre degerinde harf ihtiva edenler süzme isleminden gecmekte diger hucreler suzulememektedir!?!)
Cok sayıda satırdan olusan asıl listede bu hatayı nasıl giderebilirim.
Textbox a ait VB kodlaması asagıdaki gibidir.
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A5:A5000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub
Soyleki ornek dosyadaki renklendirilmis olan hucrelerde textbox ile suzme islemi yapılamamaktadır.
(not:hucre degerinde harf ihtiva edenler süzme isleminden gecmekte diger hucreler suzulememektedir!?!)
Cok sayıda satırdan olusan asıl listede bu hatayı nasıl giderebilirim.
Textbox a ait VB kodlaması asagıdaki gibidir.
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A5:A5000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub