Merhaba, çalışma sayfamda B ve G sütununda bilgiler mevcut. 1inci satırda 2 adet textbox var. Textboxa yazdığım karakterleri yada kelimeyi bulup altalta sıralıyor bunda bir sorun yok ancak ben sayfamın ilk 3 satırını bölüp sabitledim ve filtreledim, sürekli görünmesi gerekiyor. Sıralama yaparken bu bölünen satırlar ve filtre kayboluyor, bunlar nasıl gözükecek. Şimdiden teşekkür ederim.
Kodlar şöyle
Kodlar şöyle
Kod:
Private Sub TextBox1_Change()
On Error Resume Next
Selection.AutoFilter
METİN1 = TextBox1.Value
Set FC1 = Sayfa7.Columns("B").Find(What:=METİN1)
Application.Goto Reference:=Range(FC1.Address), _
Scroll:=False
Sayfa7.Columns("B").AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter field:=1
Set FC1 = Nothing: METİN1 = Empty
End If
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Selection.AutoFilter
METİN2 = TextBox2.Value
Set FC2 = Sayfa7.Columns("G").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Sayfa7.Columns("G").AutoFilter field:=1, Criteria1:="*" & TextBox2.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter field:=1
Set FC2 = Nothing: METİN2 = Empty
Selection.ClearContents
End If
End Sub