boş satırları gizlemek çok uzun sürüyor

[sadece_erhan]

Merhaba, c1:c7200 arasında boş olan hücreleri aratıp boş hücrenin satırlarını gizlemek için aşağıdaki makroyu kullanıyorum ama çok uzun sürüyo 7200 satır olduğundan. bu işlemi daha kısa sürede yapabilecek bir kod var mı?

Sub Düğme3_Tıklat()
Dim X As Long

Cells.EntireRow.Hidden = False

For X = 1 To Range("c7200").End(3).Row
If Cells(X, "c") = "" Then Rows(X).Hidden = True
Next

MsgBox "Boş Satırlar Gizlendi", vbInformation
End Sub

 

[ffff7]

Kodlara aşağıdaki eklemeyi yapınız.

Sub Düğme3_Tıklat()
Dim X As Long

[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]

Cells.EntireRow.Hidden = False

For X = 1 To Range("c7200").End(3).Row
If Cells(X, "c") = "" Then Rows(X).Hidden = True
Next

[COLOR="Red"]Application.ScreenUpdating = True[/COLOR]

MsgBox "Boş Satırlar Gizlendi", vbInformation
End Sub

 

[sadece_erhan]

elinize sağlık teşekkürler denicem mutlaka..

 

[Levent Menteşoğlu]

Döngü ile tüm satırları kontrol etmek yerine alternatif olarak aşağıdaki gibide deneyebilirsiniz.

[c:c].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Not: Hücrelerde formülde olmayacak şekilde tamamen boş olmalıdır.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak union komutunuda kullanabilirsiniz. Bununla ilgili forumda örnekler var. Ararsanız ulaşabilirsiniz. Özellikle satır sayınız artacaksa bu komut işinize yarayacaktır.

 

[sadece_erhan]

Döngü ile tüm satırları kontrol etmek yerine alternatif olarak aşağıdaki gibide deneyebilirsiniz.

[c:c].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Not: Hücrelerde formülde olamayacak şekilde tamamen boş olmalıdır.

peki formül olacak çekilde nasıl yaparız? formül olacak ama formül cevabı boş görünecek. yada örneğin 1 olursa gösterecek 0 ya da boş olursa gizeleyecek

 

[sadece_erhan]

yok mu abi yukarıdaki macro kadar hızlı çalışabilecek başka bi çözüm, valla satırların gizlenmesini beklerken ağaç oluyorum resmen