Kod Geliştirme

[cavanoos]

Merhaba;

Satır gizlemek için aşağıdaki kodu kullanıyorum.
K sütununda boş olan değerleri gizliyor ama A sütununda değer yok. Bu da baz alınabilir.
Kodu başlatınca satırların teker teker gizlendiğini görüyorum, kod yavaş çalışıyor.
Bunu hızlandırmanın yolunu yada başka bir kod arıyorum.
Yardımcı olabilir misiniz ?

Dim fat As Integer
For fat = 11 To 50
If Cells(fat, "K") = "BOŞ" Then
Cells(fat, "K").EntireRow.Hidden = True
End If
Next

 

[Mdemir63]

Selamlar

dener misiniz?

Sub boşSatirGizle()
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[cavanoos]

Olmadı, ne var ne yok hepsini gizledi
11 ile 50 arasındaki boş satırları gizleyeceğiz.

 

[Mdemir63]

Kod satırını
aşağıdaki ile değiştirip deneyiniz
Sayfa1 kısmını siz kendi sayfanıza göre değiştirin

    Sheets("Sayfa1").Range("A1:A50").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

 

[cavanoos]

Oldu, emeğinize sağlık.
A sütunu için kod yazdınız.
H39 hücresini veri girdim.
Kodunuzu
Range("A1:H50")
olarak değiştirip denedim ama olmadı.
A ile H sütunları arasındaki satırlarda veri yoksa nasıl gizleme yapabiliriz ?

 

[Mdemir63]

Gizleme yaparken satırları baz alarak gizliyor. Siz arada herhangi bir hücreye bilgi girseniz bile o satırı da gizler