- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
- Altın Üyelik Bitiş Tarihi
- 08-05-2021
Arkadaşlar Merhaba,
Aşağıdaki kodlarla TextBox2 ye girilen veriye göre filtreleme yapılıyor. Ancak dosyayı kapatırken TextBoxdaki yazı silinsin, dolayısıyla filtreleme kaldırılsın istiyorum.. Bunun için auto close a nasıl bir kod eklemeliyim.. İlgilenen arkadaşlar teşekkür ederim.
Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("B2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub
Aşağıdaki kodlarla TextBox2 ye girilen veriye göre filtreleme yapılıyor. Ancak dosyayı kapatırken TextBoxdaki yazı silinsin, dolayısıyla filtreleme kaldırılsın istiyorum.. Bunun için auto close a nasıl bir kod eklemeliyim.. İlgilenen arkadaşlar teşekkür ederim.
Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("B2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub