Fonksiyon tuşlarına sayfa atama .

[busdriver]

Merhaba ,

f8 e bastığımda açık olan excel kitapçığının bir sayfasına , f9 a bastığımda ise başka bir sayfasına gitmeyi nasıl yapabilirim ?

f8 için Hüseyin Çoban üstadımın verdiği formülü kullanıyorum fakat f9 için beceremedim.

İlgili konu da burada
http://www.excel.web.tr/f14/kopru-olu-turma-kopru-hedef-hucresi-t139632/sayfa2.html

 

[Muzaffer Ali]

Sub auto_open()     Application.OnKey "{F8}", "ac"
    Application.OnKey "{F9}", "ac1"
    
    Application.OnKey "{F10}", "ac2"
End Sub 
Sub ac1
 sheets("Sayfanızınadı").activate
end sub 
Sub ac2
 sheets("Sayfanızınadı").activate
end sub

Buradaki mantık şudur Excel dosyanızı açtığınızda F8, F9 ve F10 tuşlarına basılınca hangi makronun çalışacağını belirttik. Buna göre siz istediğiniz değişikliği yapabilirsiniz.

 

[busdriver]

Hocam uyguladım dediğinizi fakat , makro bu çalışma kitabında olmayabilir , ya da devre dışı bırakılmış olabilir hatası alıyorum. Fakat içerideki diğer makrolar çalışıyor. Modüle yazıyorum , neyi yanlış yapmış olabilirim. Sayfa adları ve sair hepsi doğru ?

 

[busdriver]

Sub auto_open()
    Application.OnKey "{F8}", "sec"
    
    Application.OnKey "{F9}", "git"


End Sub

Sub sec()
Sheets("allcheck").Select
End Sub

Sub git()
Sheets("TAP").Select
End Sub

Yukarıdaki gibi yaptım oldu hocam , teşekkürler.