Gizle Göster

[yuzun23]

Ekteki belgede gizle dediğim zaman, 55, 56, 57 hücreleri gizlemiyor. tahminime göre altta görünmeyen formüller olduğundan, yardımlarınız için şimdiden teşekkürler

 

[veyselemre]

Sub Düğme3_Tıkla()
    Dim i%, ad As String
    ad = ActiveSheet.Shapes("Button 3").TextFrame.Characters.Text
    Application.ScreenUpdating = False
    Rows("3:57").EntireRow.Hidden = False
    If ad = "Göster" Then
        ActiveSheet.Shapes("Button 3").TextFrame.Characters.Text = "Gizle"
    Else
        For i = 3 To 57
            If Cells(i, 2).Text = "" Then Rows(i).Hidden = True
        Next i
        ActiveSheet.Shapes("Button 3").TextFrame.Characters.Text = "Göster"
    End If
    Application.ScreenUpdating = True
End Sub

 

[yuzun23]

Teşekkür ederim ellerinize sağlık Allah' amanet olun