Sayfa 2 sekmesinden 10 saniye sonra Sayfa 1 sekmesine gidilmesi.

[izcik]

Merhaba uzmanlarım. Sorum şu

Excel dosyamda sadece iki sayfa (sekme) var.

Sayfa1 ve Sayfa2

Diyelim ki birisi bu dosyada Sayfa1 e bakıyor. Sayfa1 de istediği kadar bakabilir. Sayfa1 de bir süre sınırı yok. Fakat sonra Sayfa 2 ye bakıyor. Sayfa2 ye bakarken 10 saniye sonra kendi kendine Sayfa1 e geçiyor. Sayfa2 yi tekrar görmek için tekrar tıklamak zorunda. Makrolarla böyle bir süre sınırı konulabilir mi? Tabi saniyeyi daha sonra ben belirleyip değiştireceğim.

Bu arada Sayfa1 in bendeki adı "ÜRÜNLER"

Sayfa2 nin bendeki adı "RESİMLER"

Saygılar

 

[sametozyavuz]

sayfa 2 nin makro kısmına bu kodu yapıştırın oluyor.
fakat sayfa 2 de işlem yapılamıyor.

Private Sub Worksheet_Activate()
Application.Wait (Now + TimeValue("0:00:10"))
Worksheets("sayfa1").Activate
End Sub

 

[PLİNT]

Merhaba
Sayfa2 kod sayfasına:

Private Sub Worksheet_Activate()
Run ("SAYF")
End Sub

Bir Modüle:

Sub auto_open()
Call SAYF
End Sub

Sub SAYF()
If ActiveSheet.Name <> "RESİMLER" Then Exit Sub
Application.OnTime Now + TimeValue("00:00:10"), "SAYFA", False
End Sub

Sub SAYFA()
Sheets("ÜRÜNLER").Activate
End Sub

Şeklinde deneyin.

 

[izcik]

Biraz geç girebildim internete, hemen deniyorum kıymetli arkadaşlarım. Saygı ve selamlarımla