kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,666
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
Merhabalar,
Aşağıdaki kod filtreleme kodudur.Kodumuz çalışıyor fakat;
Textboxun içerisindeki veriyi silince B1 hücresinde olan textbox A1 hücresinin köşesine boyutları küçülerek gidiyor
Bunun sebebi nedir nasıl önleriz.
Teşekkür ederim
Private Sub TextBox1_Change()
Dim METİN1 As String, FC2 As Range
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("a2:n65000").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
ActiveSheet.Range("$A$1:$V$16939").AutoFilter Field:=3
ActiveSheet.Cells(Rows.Count, "A").End(3).Offset(1).Select
End If
End Sub
Aşağıdaki kod filtreleme kodudur.Kodumuz çalışıyor fakat;
Textboxun içerisindeki veriyi silince B1 hücresinde olan textbox A1 hücresinin köşesine boyutları küçülerek gidiyor
Bunun sebebi nedir nasıl önleriz.
Teşekkür ederim
Private Sub TextBox1_Change()
Dim METİN1 As String, FC2 As Range
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("a2:n65000").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
ActiveSheet.Range("$A$1:$V$16939").AutoFilter Field:=3
ActiveSheet.Cells(Rows.Count, "A").End(3).Offset(1).Select
End If
End Sub