Soru SpinButton

[sirkülasyon]

excelde her sayfaya SpinButton eklendiğinde
aktif sayfada önceki sayfa var ise o sayfaya geçmesi yok ise ilk sayfadasınız
aktif sayfada sonraki sayfa var ise o sayfaya geçmesi yok ise son sayfadasınız
nasıl yapabilirim?
Teşekkür ederim.

 

[ÖmerFaruk]

Module1 içine

Sub PageBefore()
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = ActiveSheet.Name Then Exit For
    Next
    If i = 1 Then MsgBox "ilk Sayfadasınız": Exit Sub
    Worksheets(i - 1).Activate
End Sub

SpinButton olan Sayfalara

Private Sub SpinButton1_SpinDown()
Module1.PageBefore
End Sub

Sadece geri işlemi için yaptım, ileri için olanı siz buna bakarak yapabilirsiniz sanırım

 

[sirkülasyon]

Eyvallah
Ellerine sağlık