auto open ilgili yardım edebilirmisiniz - Baskı Önizleme +- 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:
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:
Cvp: auto open ilgili yardım edebilirmisiniz - brsknm - 14/12/2010 teşekkürler hocam denedim oldu çalışıyor emeğine sağlık |