Delete tuşuna makro atamak.

[Orion1]

Merhaba.
Delete tuşuna makro atamak istiyorum.
Teşekkür ederim.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub nn()
Application.OnKey "{DEL}", "calis"
End Sub
Sub calis()
MsgBox "çalişti"
End Sub

 

[Orion1]

Hamit bey maalesef çalışmadı .
Ekteki dosyaya bakarmısınız.

 

[Arthassss]

Evren bey bu şekilde denerseniz çalışıyor.

Sub nn()
Application.OnKey "{DEL}", "calıs"
End Sub
Sub calıs()
MsgBox "çalişti"
End Sub

 

[Orion1]

Pardon çok affdersin Hamit bey .Bir yere takıldık kaldık.KOdu çalıştırıyorum ama del tuşuna basmayı akıl edemiyorum.Tamam çalışıyor.Teşekkür ederim
Arthassss bey sizede teşekkür ederim.

 

[baydeniro]

Aşağıdaki şekilde deneyin.

Sub nn()
Application.OnKey "{DEL}", "calis"
End Sub
Sub calis()
MsgBox "çalişti"
End Sub

hamitcan üstadım kod paylaşımı için teşekkür ederim. Acaba "DEL" tuşu ile bir veri silindiğinde boş hücreye 0 yazması mümkün müdür !

 

[hamitcan]

Sub calıs()
activecell.value =0
End Sub

Şeklinde dener misiniz ?

 

[baydeniro]

Sub calıs()
activecell.value =0
End Sub

Şeklinde dener misiniz ?

Çok teşekkür ederim üstadım, çok sağolun. Sağlıcakla kalın