(05/07/2019, 14:36)sertachizir yazdı: çok güzel çalışma.yalnız 64 bitte hata verdi.forumdan  yararlanarak gidermeye çalıştım yapamadım.64 bitte çalışan örnek eklerseniz çok memnun olurum.

Merhaba,

modüldeki kodu 64bitte çalışacak şekilde değiştirilmesi gerekli

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

şeklindeki kodun, 64 bitte de çalışabilmesi için

#If VBA7 Then

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

#Else

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

#End If

kodu ile değiştiriniz.