textbox veri süzme

[dangerboys35]

Merhabalar
Textbox a göre süzme yaptığımda arada boş olan satırlarada süzme işlemi yapmasını istiyorum ve textbox boş ise tüm kayıtları göstersin



Yardımcı olursanız sevinirin.

 

[dangerboys35]

yardımcı olabilecek yokmu

 

[dangerboys35]

Aşağıdaki vb kodunu kullanıyorum süzme
işlemi yaparken fakat
arada boş alan satırları da süzmesini istiyorum ve
textbox boş olduğunda bütün satırları göstermesini istiyorum
Konu ile ilgili yardımcı olabilecek varmı.


Private Sub TextBox1_Change()
On Error Resume Next
[aa1] = "=büyükharf(""" & TextBox1 & """)"
[aa1] = "=upper(""" & TextBox1 & """)"
TextBox1 = [aa1]
On Error Resume Next
SONUC1 = TextBox1.Value
Set FC1 = Range("A5:A65000").Find(What:=SONUC1)
Application.Goto Reference:=Range(FC1.Address), _
Scroll:=False

Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz

Private Sub TextBox1_Change()
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") = "" Then
            Cells(sat, "a") = "."
        End If
    Next
On Error Resume Next
[aa1] = "=büyükharf(""" & TextBox1 & """)"
[aa1] = "=upper(""" & TextBox1 & """)"
TextBox1 = [aa1]
On Error Resume Next
SONUC1 = TextBox1.Value
Set FC1 = Range("A5:A65000").Find(What:=SONUC1)
Application.Goto Reference:=Range(FC1.Address), _
   Scroll:=False

Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End Sub

 

[dangerboys35]

Hocam çok teşekkürler
yardımlarınız için teşekkür ederim.