Boş olan satırları gizleme

[teyadih]

Kolay gelsin arkadaşlar. Belirli satırlar arasındaki boş olan satırları gizleyecek makroya ihtiyacım var. Yardım eder misiniz?

 

[GursoyC]

Dim i As Integer
        For i = 8 To 71
                  if Range("A" & i).Value < 1 then
                      Rows(i).Hidden = True
                  Else
                      Rows(i).Hidden = False
                  End If
        Next i

 

[teyadih]

Uyguladım ama hata verdi unlimitted

 

[teyadih]

Örnek dosyaya uygulayabilir misiniz? size zahmet

 

[GursoyC]

Bende hata vermiyor.

 

[teyadih]

Benim bilgisayarda mı bir şey var acaba düğmeye tıklıyorum 48.satırdan itibaren gizlemesi gerekirken gizlemiyor

 

[GursoyC]

Satırı gizlemesi için koşul olarak A sütununda ilgili satırın 0'dan küçük olması gerekiyor. Kontrol ettiniz mi?

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız. (Çift Tıklama)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[a8:a71].SpecialCells(4).EntireRow.Hidden = _
[a8:a71].SpecialCells(4).EntireRow.Hidden = 0
End Sub

 

[teyadih]

Satırı gizlemesi için koşul olarak A sütununda ilgili satırın 0'dan küçük olması gerekiyor. Kontrol ettiniz mi?

Evet örnek dosyada rakamlar var ancak gizlemiyor. Rakamlar formül ile olduğu için olabilir mi. Çünkü gönderdiğiniz örnek dosyada da gizlememiş 47.satırdan sonrakileri

 

[teyadih]

Sizin formülü de çalıştırmadı Seyit bey. (Çift Tıklama) dan kastınız ney. Çok makro bilgim yok açıkcası. Size zahmet örnek dosyaya ekleyebilir misiniz 47.satırdan sonrakileri gizlemesi gerekiyor

 

[GursoyC]

Evet örnek dosyada rakamlar var ancak gizlemiyor. Rakamlar formül ile olduğu için olabilir mi. Çünkü gönderdiğiniz örnek dosyada da gizlememiş 47.satırdan sonrakileri

Bendeki dosyada gizliyor. Kodda herhangi bir problem yok.
Açıklamanızda 1'den küçük olanları gizlesin dediğiniz için kod ona göre. Eğer örneğin A56 hücresinde hiçbir şey yazmıyorsa bu, o hücrenin 1'den küçük olduğu anlamına gelmediği için o satırı gizlemez.
Eğer 1'den küçük veya boş olduğu zaman gizlesin istiyorsanız if ile başlayan satırı şununla değiştirin.

If Range("A" & i).Value < 1 Or Range("A" & i).Value = "" Then