Bu makroyu nasıl hızlandırabilirim?

[patdizz]

Merhaba arkadaşlar,

Ekteki dosyadaki "Kopyala" düğmesindeki makroyu daha hızlı çalıştırmak için ne gibi değişiklikler yapabilirim? Makro, AUTOCAD sütunundaki "x" ile işaretli olmayan satırları gizliyor. İşaretli satırlarda ise "gizle" yazan kolonları gizliyor. Daha sonra da kalan tabloyu yeni bir çalışma sayfası açıp oraya kopyalıyor.

Teşekkürler..

 

[patdizz]

dosyayı yükleyememişim, boyutunu küçültüp yükledim

 

[Asri]

dosyayı yükleyememişim, boyutunu küçültüp yükledim

Tüm for next lerin başına ve sonuna aşağıdaki şekilde
Application.ScreenUpdating eklerseniz oldukça hızlandırmış olursunuz.

Application.ScreenUpdating = False
for i=1 to sonsatır
..
..
next i
Application.ScreenUpdating = True

 

[patdizz]

Ekran yenilemeyi zaten makronun başında kapatıyorum, sonunda da geri açıyorum. Bu yeterli değil midir? Her döngü öncesi ve sonrasında yapmak gerekir mi?

Teşekkürler.

 

[leumruk]

Merhaba,
Aşağıdaki kodla daha hızlı gizleyebilirsiniz.

Sub gizle()
Application.ScreenUpdating = False
Range("cm5:cm" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
For Each hcr In Range("cm5:cm" & [a65536].End(3).Row).SpecialCells(xlCellTypeConstants, 23)
For x = 1 To 89
If Cells(hcr.Row, x) = "gizle" Then
Columns(x).EntireColumn.Hidden = True
End If
Next
Next
End Sub

 

[patdizz]

Teşekkürler sayın leumruk,

Bir tek,

Range("cm5:cm" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

satırındaki gibi boş hücrelerin değil, "x" yazmayan hücrelerin seçilmesi gerekyor; zira dosyanın orijinalinde CM kolonunda "x" haricinde de yazılar var..