+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: auto open ilgili yardım edebilirmisiniz (/konu-auto-open-ilgili-yardim-edebilirmisiniz.html)
auto open ilgili yardım edebilirmisiniz - brsknm - 12/12/2010
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
Cvp: auto open ilgili yardım edebilirmisiniz - maytas - 13/12/2010
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
Cvp: auto open ilgili yardım edebilirmisiniz - brsknm - 14/12/2010
teşekkürler hocam denedim oldu çalışıyor emeğine sağlık