Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/12/2010 17:14
Konu Sahibi
brsknm
Yorumlar
2
Okunma
2024
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

brsknm

Aktif Üye
Aktif Üye
BA.... KO....
 38
 40
 15
 17/01/2009
0
 Bursa
 Teknisyen
 Ofis 2013 32 Bit
 04/07/2018,00:08
Çözüldü 
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



Kullanici Avatari

maytas

Onursal Üye
Onursal Üye
 52
 545
 25
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
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:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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:

Visual Basic Code
Private Sub Workbook_Activate()
    Auto_Open
End Sub



Kullanici Avatari

brsknm

Aktif Üye
Aktif Üye
BA.... KO....
 38
 40
 15
 17/01/2009
0
 Bursa
 Teknisyen
 Ofis 2013 32 Bit
 04/07/2018,00:08
Çözüldü 
teşekkürler hocam denedim oldu çalışıyor emeğine sağlık




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü yardım excel açılış ve kapanışda uyarı rmznaydemr 5 1.064 13/05/2017, 12:19
Son Yorum: atoz112
Çözüldü Data Filtreleyerek, Excel'e Export Etme - Yardım - Rıdvan Üçok 2 763 28/11/2016, 14:34
Son Yorum: atoz112
Çözüldü Excel dosyamda takıldığım noktaya yardım lütfen aslanbey41 6 1.137 01/08/2016, 18:59
Son Yorum: atoz112
Çözüldü Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 1.485 15/06/2016, 16:57
Son Yorum: atoz112
Çözüldü Renk Ayarları ve Grafik Yardım yuko.tuko 6 1.278 24/05/2016, 18:34
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.