Soru Gizli satırları aç

[sirkülasyon]

    Dim Sayfa As Worksheet
    Dim satir As Integer
    Set Sayfa = ThisWorkbook.Sheets("Çalışan")
    For satir = 10 To 60
        If Sayfa.Rows(satir).Hidden Then
            Sayfa.Rows(satir).Hidden = False
        End If
    Next satir

Private Sub UserForm_Activate()
Prosedürünün içine userform aktif olduğunda Çalışan sayfasında gizlenmiş tüm satırları açacak
Userformu kapattığım zaman da dolu satırların haricinde boş satırları gizleyecek bir koda ihtiyacım var. Yukarıda kullandığım kod formu kasıyor. Rica etsem yardımcı olabilir misiniz?

 

[Erkan Akayay]

Döngü yerine bunu kullanın. ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks)

 

[sirkülasyon]

Erkan bey
Teşekkür ederim. Sağ Olun