Skip to main content

AccessTr.neT


auto open ilgili yardım edebilirmisiniz

auto open ilgili yardım edebilirmisiniz

Çözüldü #1
Aşağıdaki kod ile sekmeler arası otomatik olarak 30 saniyede bir geçiş yapabiliyorum
sorun ise bu kodu yazdığım Excel sayfası ile birlikte açtığım diğer Excel sayfalarında da aynı şeyin olması bunu nasıl engelliyebilirim yardımcı olabilirmisiniz



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
Cevapla
Çözüldü #2
Sanırım anlatımda yanlışlık var.
Başka çalışma kitabını da açtığınızda yani bu prosedürün çalıştığını söylemek istediğinizi tahmin ediyorum.

Küçük bir revizyonla nu halledilir:

Sub Auto_Open()
DoEvents
Application.OnTime Now + TimeValue("00:00:05"), "SAYFA_AÇ"
End Sub

Sub SAYFA_AÇ()
DoEvents
If ActiveWorkbook.Name <> ThisWorkbook.Name Then End
With ThisWorkbook
If .ActiveSheet.Index < .Worksheets.Count Then
.ActiveSheet.Next.Select
Else
.Sheets(1).Select
End If
Auto_Open
End With
End Sub

Başka çalışma kitabına geçip tekrar geri geldiğinizde kodların çalışması için de alttaki kodları ilgili çalışma kitabının Thisworkbook VDE sayfasına yapıştırın:

Private Sub Workbook_Activate()
Auto_Open
End Sub
Cevapla
Çözüldü #3
teşekkürler hocam denedim oldu çalışıyor emeğine sağlık
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task