Boş olan satırları süzen kod daha hızlı çalışabilirmi?

[sdegirmenci]

Merhaba ;
Boş olan satırları süzmesi için kullanmış olduğum aşağıdaki kod yaklaşık 2 dakikada sonlanıyor, daha hızlı çalışabilmesi mümkünmü, yardımlarınız için şimdiden teşekkür ederim.

Private Sub CommandButton1_Click()
Rows("1:2000").EntireRow.Hidden = False
For X = 1 To 2000
If Cells(X, 2).Value = " " Then Rows(X).Hidden = True
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu işlem için döngü yerine normal filtreleme yöntemini kullanırsanız oldukça hızlı sonuç alabilirsiniz.

 

[N.Ziya Hiçdurmaz]

yanıt

Döngüyle yapacaksanız bu şekil deneyiniz.

Private Sub CommandButton1_Click()
Range("a1:a2000").EntireRow.Hidden = False
son = Cells(65536, "a").End(xlUp).Row
Set bul = Range("a1:A" & son).Find("", , xlValues, xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
End If
Do
Cells(bul.Row, "a").EntireRow.Hidden = True
Set bul = Range("a1:A" & son).FindNext(bul)
On Local Error Resume Next
Loop While Not bul Is Nothing And bul.Address <> adres
End Sub

 

[leumruk]

Merhaba,
Alternatif olarak aşağıdaki kodu kullanabilirsiniz. Boş satırları toplu halde gizler.

Sub Satir_Gizle()
Range("b1:b" & [b65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Rows.Hidden = True
End Sub

 

[sdegirmenci]

Sayın leumruk ;
İlginize teşekkür ederim, Eklediğiniz kodu uyguladım, hata verdi , kontrol edebilirmisiniz.

 

[sdegirmenci]

Ayrıca boş olan değilde sıfır yazan mevcudu "0" sıfır yazan hücreleri gizlemek istiyorum

 

[leumruk]

Ben de hata vermiyor. Mesaja örnek dosya ekledim. Örnek dosya üzerinde dener misiniz?