1. Microsoft Visual Basic for Applications penceresini açın 5. Bunun için Alt + F11 tuşlarına basabilirsiniz 5.
2. Project - VBAProject alanının sol tarafta göründüğünden emin olun 5. Görünmüyorsa, Ctrl + R kısayolunu kullanarak açabilirsiniz 5.
3. Microsoft Excel Objects yazısının solundaki + simgesine tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın 5.
4. Üstteki kodu yapıştırın 5.

Sub SayfaSeçSonraki()
    On Error Resume Next
    If ActiveSheet.Index = Worksheets.Count Then
        Worksheets(1).Select
    Else
        On Error Resume Next
        Worksheets(ActiveSheet.Index + 1).Select
    End If
End Sub
Kopyala