Sekmeler arası zamanlı geçiş

[brsknm]

herkese iyiakşamlar benim bir sorum olucak yardımcı olursanız çok sevinirim

bir excel sayfasında sekmelerin (sayfa1) , (sayfa2) , (sayfa3) 30 saniye aralıklarla sürekli değişerek açılmasını nasıl sağlıyabilirim acaba ilginiz için teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Dim kapat As Boolean

Sub zaman()
Application.OnTime Now + TimeValue("00:00:30"), "sekme"
End Sub
Sub sekme()
If kapat = True Then Exit Sub
If ActiveSheet.Index = Worksheets.Count Then
    Sheets(1).Select
    Else
    Sheets(ActiveSheet.Index + 1).Select
End If
Call zaman
End Sub
Sub auto_open()
Call zaman
End Sub
Sub son()
kapat = True
End Sub
Sub auto_close()
kapat = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Boş bir modüle uygulayın. Dosyanızı kaydedin ve kapatın. Dosyanızı tekrar açtığınızda kod otomatik olarak çalışmaya başlayacaktır.

Option Explicit
 
Sub Auto_Open()
    DoEvents
    Application.OnTime Now + TimeValue("00:00:30"), "SAYFA_AÇ"
End Sub
 
Sub SAYFA_AÇ()
    DoEvents
    If ActiveSheet.Index < ThisWorkbook.Worksheets.Count Then
        ActiveSheet.Next.Select
    Else
        Sheets(1).Select
    End If
    Auto_Open
End Sub

 

[brsknm]

çok teşekkürler bilgileriniz için ve zaman ayırdığınız için saygılar iyi akşamlar

 

[brsknm]

peki sadece istediğimiz sekmeleri açmak istediğimiz zaman ne yapabiliriz acaba

 

[brsknm]

tamam ikinci sorumun çözümünü buldum ilginiz için teşekkürler sağolun