Gizle Göster Makrosunda sorun

[ikikan]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Volatile
Application.ScreenUpdating = False
Columns(1).EntireRow.Hidden = False
Set Aralik = Range("V70:V70" & [1200:1200].End(3).Row)
Set bul = Aralik.Find("GZL", LookIn:=xlValues, lookat:=xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
Do
Set bul = Aralik.FindNext(bul)
bul.EntireRow.Hidden = True
Loop While Not bul Is Nothing And bul.Address <> adres
'MsgBox "İŞLEM BİTTİ.", vbInformation, "PEGEM MÜHENDİSLİK"
End If
End Sub

Arkadaşlar üsteki kod işe yarıyor lakin 1200 ile 2500 satırda cok kasma yapmaya başladı daha hızlı çalışabilcek bir kod varmı
Gizle yazan satırın gizlenmesi ile ilgili

 

[Korhan Ayhan]

Merhaba,

Sanırım buna benzer bir konu daha açmıştınız. En hızlı satır gizleme yöntemi filtreleme yöntemidir. Döngü ile olanlar daha yavaş çalışırlar.

 

[ikikan]

Filitrelem yöndemi ile gizle göster

Merhaba,

Sanırım buna benzer bir konu daha açmıştınız. En hızlı satır gizleme yöntemi filtreleme yöntemidir. Döngü ile olanlar daha yavaş çalışırlar.

Sub GİZLE()
ActiveSheet.Range("$B$5:$BF$2000").AutoFilter Field:=1, Criteria1:="<>*GZL*", Operator:=xlAnd
ActiveSheet.Range("$B$5:$BF$2000").AutoFilter Field:=2, Criteria1:="<>*GZL*", Operator:=xlAnd
ActiveSheet.Range("$B$5:$BF$2000").AutoFilter Field:=8, Criteria1:="<>*GZL*", Operator:=xlAnd
ActiveSheet.Range("$B$5:$BF$2000").AutoFilter Field:=10, Criteria1:="<>*GZL*", Operator:=xlAnd
ActiveSheet.Range("$B$5:$BF$2000").AutoFilter Field:=21, Criteria1:="<>*GZL*", Operator:=xlAnd
End Sub

Sub GÖSTER()
If AutoFilter.Selection = True Then
Else
End If
End Sub

Korhan bey dedignizi yaptım ama bu seferde göster makrosunda sorun çıkıyor
bir tuşla süzme işlemi yapılıp cıktı alıyorum fakat;
süzme işlemini bu cıktı alındıktan sonra iptal etmem lazım faka kod hata veriyor yardımlarınızı bekliyorum..

 

[ikikan]

Şu şekilde çözüme ulaştım ama doğru bir yolmudur ?

Sub GÖSTER()
If AutoFilter = Activate Then
Selection.AutoFilter
Else

End If
End Sub

 

[kralzeus]

boş satırları gizle göster hatası

Korhan Hocam iyi çalışmalar diliyorum.
Ekte göndermiş olduğum alıntı örneğimde gizle butonu çalışıyor ama göster butonunun makrosunu bir türlü düzeltemedim. Yardımcı olabilir misiniz. Şimdiden teşekkür ediyor selam ve saygılarımı sunuyorum