Süz iptal ederken çok yavaş çalışıyor.

[dbicer83]

Aşağıdaki kod işlem yaparken 3000-5000 satır 13 sütündan aralığında çok yavaş çalışıyor hızlandırma için ne yapılabilir.
Süzde seçilenleri hepsini tümü yapıyor.

Teşekkürler.

Sub ACIKHESAPBOSSATIR()
Sheets("AHSP").Unprotect
 Call Filtreleriptal
  Range("b8").Select
    Say = WorksheetFunction.CountA(Range("b:b"))
    Range("b" & Say + 4).Select
    ActiveCell.Select
End Sub
Sub Filtreleriptal()
Sheets("AHSP").Unprotect 
   Selection.AutoFilter
   Range("b6").AutoFilter
   Sayfa07.ComboBox1.Value = "Tümünü Seç"
   Sayfa07.ComboBox2.Value = "Tümünü Seç"
   Sayfa07.TextBox1.Value = ""
   Sayfa07.TextBox2.Value = ""
   Sayfa07.TextBox3.Value = ""
End Sub

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek ekleyerek detaylı açıklarsanız alternatif çözümler önerebiliriz.

.

 

[Korhan Ayhan]

Merhaba,

Kodlarınızı aşağıdaki belirttiğim bölüme yazarak denermisiniz.

Option Explicit
 
Sub ÖRNEK()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    [B][COLOR=red]'Kodlarınız...[/COLOR][/B]
 
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[dbicer83]

Merhaba,

Kodlarınızı aşağıdaki belirttiğim bölüme yazarak denermisiniz.

Option Explicit
 
Sub ÖRNEK()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    [B][COLOR=red]'Kodlarınız...[/COLOR][/B]
 
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Denedim ama olmadı.Yada yapamadım. İki ayrı fonksiyon mevcut ilkinin başlangıç ve bitişine ekledim. Fark yok. Ayrıca en son boş satıra yönlendirmedi.
Farklı nasıl bir öneriniz olabilir.
Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Birde ikinci koda ekleyerek deneyin. Eğer yine olumsuz sonuç alırsanız dosyanızı ekleyin inceleyelim.