Makro Hızlandırma

[petsiye]

Merhaba,

Son derece faydalı bu web sitesi sayesinde, aşağıdaki kodları bir miktar hızlandırdım. Aşağıdaki kod, Sheet içerisinde belirli bazı bölümleri gizleyerek, görmem gereken bölümleri bana gösteren bir kod. Kod çalışıyor hiçbir sorun yok, fakat Sheet içerisinde olmazsa olmaz koşullu biçimlendirmelerdenmidir bilemiyorum, bir miktar yavaş çalışıyor.

Bu kodları hızlandırabileceğim bir çözüm veya ilave kod var mı acaba ?

Yardım ve desteğiniz için şimdiden çok teşekkür ederim.




Application.ScreenUpdating = False

ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("AS:AT").EntireColumn.Hidden = True
ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("A:XFD").EntireColumn.Hidden = False
ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("A:JI").EntireColumn.Hidden = True
ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("KD:TB").EntireColumn.Hidden = True
ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("TG:dC").EntireColumn.Hidden = True
ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("DDD:XFD").EntireColumn.Hidden = True



ThisWorkbook.Worksheets("YATIRIM DEĞERLENDİRME").Range("JQ:JR").EntireColumn.Hidden = True

Set S1 = ActiveSheet
ekrancozunurlugu
S1.Select
Set S1 = Nothing


'
End Sub

 

[Korhan Ayhan]

VBA tarafında genel anlamda standart kod hızlandırma tekniği aşağıdaki gibidir.

Ama bazen bu teknikte yeterli olmayabiliyor. Bu durumda kod tekniğini değiştirmek gerekebilir.

Option Explicit

Sub Fast_Run_Macro()
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    Rem Kendi kodlarınızı buraya yazınız...
    Rem Kendi kodlarınızı buraya yazınız...
    Rem Kendi kodlarınızı buraya yazınız...
    
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

 

[petsiye]

Cevabınız için çok Teşekkür Ederim Korhan Bey,
Deneyeceğim