Sayfalara butonla geçmek

[ASLAN7410]

Merhaba hayırlı akşamlar.

Aşağıdaki kod ile dosyadaki sayfaları gizleyip sayfa üzerindeki butonlarla bir sonraki veya bir önceki sayfaya geçmek istiyorum, her sayfa üzerindeki sağdaki butona bastığımda bir sonraki sayfaya geçsin, sayfa üzerindeki soldaki butona bastığımda kendisinden bir önceki sayfaya geçsin, sayfaya geçtiğinde Sayfa2'ye geçtiniz, Sayfa3'e geçtiniz gibi mesaj vermesini istiyorum.

Forumda bu şekilde bir çalışma bulamadım, yardımcı olur musunuz?

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

 

[Ömer BARAN]

Merhaba.

İlk sayfadaki ok tuşlarıyla aşağıdaki kodlardan uygun olanları ilişkilendirin.
(ok şekline sağ tıkla MAKRO ATA => makro adı seçip onayla)

Ardından da diğer sayfalardaki ok şekillerini silip, ilk sayfada yer alan makrolarla ilişkilendirilmiş ok şekilerini kopyalayıp
diğer sayfalara yapıştırın (tavsiyem şekillerin tümünü sayfalarda aynı yere konumlandırın).

Sub sonraki()
    If ActiveSheet.Index + 1 > Sheets.Count Then
        Sheets(1).Activate
    Else: Sheets(ActiveSheet.Index + 1).Activate: End If
End Sub

Sub onceki()
    If ActiveSheet.Index - 1 = 0 Then
        Sheets(Sheets.Count).Activate
    Else: Sheets(ActiveSheet.Index - 1).Activate: End If
End Sub

 

[ASLAN7410]

Sayın Ömer Bey, ellerinize sağlık valla süper çalışıyor, birde hangi sayfaya geçerse örneğin Sayfa2'ye geçtiniz gibi mesaj verebilir mi?

 

[Ömer BARAN]

Her iki kod'da End Sub satırından önce aşağıdaki satırı ekleyin.

MsgBox ActiveSheet.Name & " isimli sayfadasınız."

 

[ASLAN7410]

Sayın Ömer Bey, valla süper oldu, çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı akşamlar diliyorum.

 

[Haluk]

Alternatif olması açısından;

Sub Test()
    i = ActiveSheet.Index
    If i = Sheets.Count Then
        MsgBox "İleride gidilecek başka sayfa yok"
    Else
        Worksheets(i).Next.Activate
        MsgBox ActiveSheet.Name
    End If
End Sub
'
Sub Test2()
    i = ActiveSheet.Index
    If i = 1 Then
        MsgBox "Geride gidilecek başka sayfa yok"
    Else
        Worksheets(i).Previous.Activate
        MsgBox ActiveSheet.Name
    End If
End Sub

.

 

[ASLAN7410]

Sayın Haluk Bey, bu da güzel oldu, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı geceler, hayırlı çalışmalar diliyorum.

 

[Ömer BARAN]

Ben bir döngü oluşturmayı tercih etmiştim.
Sürekli aynı yönlü ok şekline tıklarsanız, söylediğim dahi iyi anlaşılacaktır.
Kolay gelsin.
.

 

[ASLAN7410]

Sayın Ömer Bey, her iki kodda işime yarayacak, çok teşekkür ediyorum.

 

[Ömer BARAN]

Kolay gelsin.