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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
auto open ilgili yardım edebilirmisiniz - Yazar: brsknm - 12/12/2010, 17:14
Task