Gizle Göster

[yuzun23]

Ekteki açıklamaya göre yardımlarınızı bekliyorum. şimdiden Teşekkürler

 

[Muzaffer Ali]

Merhaba.
İlgili kodları aşağıdakilerle değiştirin.

Sub Düğme7_Tıkla()
    Dim Say As Integer
    Say = Cells(106, "B").End(xlUp).Row + 1
    If Rows("106").EntireRow.Hidden = True Then
        Rows.EntireRow.Hidden = False
    Else
        Rows(Say & ":106").EntireRow.Hidden = True
    End If
End Sub

 

[yuzun23]

teşekkür ederim ellerinize sağlık

 

[Ömer]

Merhaba,

Alternatif.

Sub Düğme7_Tıkla()
    Dim s As Range, ad As String
    ad = ActiveSheet.Shapes("Button 7").TextFrame.Characters.Text
    Application.ScreenUpdating = False
    Rows("7:106").EntireRow.Hidden = False
    If ad = "Göster" Then
        ActiveSheet.Shapes("Button 7").TextFrame.Characters.Text = "Gizle"
        Exit Sub
    End If
    On Error Resume Next
    For Each s In Range("B7:B106").SpecialCells(xlCellTypeBlanks)
        Rows(s.Row).EntireRow.Hidden = True
    Next s
    ActiveSheet.Shapes("Button 7").TextFrame.Characters.Text = "Göster"
    Application.ScreenUpdating = True
End Sub

 

[yuzun23]

Ömer bey teşekkürler