Klavyedeki Sağ-Sol Tuşlarını Kullanmak

[ZuCChiNi]

Bir çalışmamda iki buton oluşturup, bu butonlara tıkladığımda önceki ve sonraki kayıtları görmeyi sayenizde başarmıştım. Bakınız

Şimdi ise aynı düğmeleri yön tuşları ile kullanmak istiyorum. Hem fare ile tıklama ile hem de yön tuşları ile çalıştırmak istiyorum. Tüm çabalarıma rağmen her iki şekilde de (sadece yön tuşları ile ya da hem yön tuşları, hem tıklama ile) bir türlü başarılı olamadım.

Excel 2010 TR

Yardım ederseniz çok sevinirim.

 

[ZuCChiNi]

Sub ileri()
'Application.OnKey "{LEFT}", "geri"
Dim ts
ts = Range("D3") + 1
Range("D3") = ts
End Sub
Sub geri()
'Application.OnKey "{RIGHT}", "ileri"
Dim ts
If Range("D3") > 0 Then
ts = Range("D3") - 1
Range("D3") = ts
End If
End Sub

Application.OnKey ekleyerek yön tuşları ile ileri-geri yapmayı başardım ancak klavye tuşları bütün sekmelerde aynı işlevi görüyor. Sadece AnaSayfa sekmesinde çalışması gerekiyor. (Belki de bütün açık excel kitaplarında aynı anda aktif oluyordur. Onu denemedim.)

 

[ZuCChiNi]

Biraz ilerleme kaydettim.
Şu an itibariyle yön tuşları sadece AnaSayfa sekmesinde çalışıyor.
Ancak tek sorun başka bir sekmeye geçtikten sonra AnaSayfa sekmesine dönünce düğmelerden birine tıklamak gerekiyor.

Sub ileri()

If ActiveSheet.Name <> "AnaSayfa" Then
Application.OnKey "{RIGHT}"
Else
Application.OnKey "{RIGHT}", "AnaSayfa.ileri"
End If

Dim ts
ts = Range("D3") + 1
Range("D3") = ts

End Sub
Sub geri()

If ActiveSheet.Name <> "AnaSayfa" Then
Application.OnKey "{LEFT}"
Else
Application.OnKey "{LEFT}", "AnaSayfa.geri"
End If

Dim ts
If Range("D3") = 1 Then GoTo Bitir
ts = Range("D3") - 1
Range("D3") = ts
Bitir:
End Sub

 

[ZuCChiNi]

Başka sekmeye geçtikten sonra dönüşte düğmelere tıklamak gerektiği için fazla kullanışlı olmadığından projeden vazgeçtim. Ama kod çalışıyor bilginize.