Değer değiştirici ile, birer-birer satır gizleme

[EKREM1661]

Saygıdeğer hocalarım! Ekli örnek tablo sonunda son beş satır için, değer değiştirici düğme ile sondan itibaren birer-birer yukarı doğru satır gizleme ve aşağı doğru açma yapabilir miyiz?

 

[veyselemre]

Sayfa2'nin kod sayfasına ekleyiniz.

Private Sub SpinButton1_SpinDown()
    For i = 26 To 30
        If Rows(i).Hidden = True Then
            Rows(i).Hidden = False
            Exit For
        End If
    Next i
End Sub
Private Sub SpinButton1_SpinUp()
    For i = 30 To 26 Step -1
        If Rows(i).Hidden = False Then
            Rows(i).Hidden = True
            Exit For
        End If
    Next i
End Sub

 

[ÖmerFaruk]

Edit: cevap gelmiş, o sebeple sildim

 

[EKREM1661]

Arkadaşlar, çok teşekkür ediyorum. Sn. veyselemre ve Sn. ÖmerFaruk, istediğim oldu..