(05/07/2019, 16:41)ozanakkaya yazdı:

(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

Kod:

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

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

Kod:

#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.