Yönlendirme

[ozgretmen]

Merhaba arkadaşlaR;
DATA isimli sayfamın A1 hücresinde rakamlar girilecek. 1 , 2, 3 , 4 , 5 gibi.
Bu rakamlar girildiğinde , 5 sn içinde mevcut olan aynı adlı sayfaya yönlendirme yapacak bir kod nasıl acaba ?
Yani A1 = 4 olduğuna 4 sayfasına 5 sn içinde gidecek bir kod.
Teşekkürler

 

[uzmanamele]

merhaba
ekteki dosya gibi olabilir mi acaba

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR
Application.OnTime Now + TimeValue("00:00:05"), "TEST"
ERR:
End Sub

Sub TEST()
On Error GoTo ERR
Sheets([A1].Text).Select
ERR:
End Sub

 

[karagöz55]

Çok ilginç bir formül.
Hiç aklıma gelmezdi.
Çok harikasınız

 

[BG]

bravo hocam super olmus, bende uzerinde cok ugrastim ama istenilen sonucu alamamistim ellerinize saglik

 

[ozgretmen]

Teşekkürler arkadaşlar...Ellerinize sağlık...

 

[uzmanamele]

merhaba
alternatif dosya olsun