Gizli satır sayısı

[peleryn]

Herkese Merhabalar;

Rows("7:70") aralığındaki gizli satır sayısını a değerine nasıl alabilirim?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub gsatirsay()
Dim sat As Integer
[a1] = ""
    For sat = 7 To 70
        If Cells(sat, "a").Rows.Hidden = True Then
        a = a + 1
        End If
    Next
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub GizliSatir()
    Dim a As Integer
    a = Range("A7:A70").Count - Range("A7:A70").SpecialCells(xlCellTypeVisible).Count
End Sub

 

[peleryn]

N.Ziya ve Necdet hocalarım yanıtlarınız için teşekkür ederim.

Ziya hocamın kodunu çalıştıramadım.Sıkışıklıktan da nedenine bakamadım ama Necdet hocamın kodu tam olarak işimi gördü.Teşekkür ediyorum.

 

[peleryn]

Sub gsatirsay()
Dim sat As Integer
[a1] = ""
For sat = 7 To 70
If Cells(sat, "a").Rows.Hidden = True Then
[a1] = [a1] + 1
End If
Next
End Sub

nedeni burasıymış hallettim.İki hocama da tekrar teşekkür ediyorum.