enter tuşu kullanılmıyor

[akd]

Merhaba arkadaşlar,
aşagıdaki kodları denerken enter tuşu devre dışı oldu
enter tuşlarrrını kullanamıyorum,
enter tuşlarını nasıl çalışır hale getirebilirim.
Selamlar...
Private Sub Worksheet_Activate()
Application.OnKey "{ENTER}", "Macro1"
Application.OnKey "~", "Macro1"
End Sub

 

[xxrt]

Modüle ;

Sub Auto_Close()
Application.MoveAfterReturn = True
End Sub

Yazın Run deyin..Böylece bu belayı birdaha denemeyin.. :hihoho: Tuş fonksiyonlarının özelliklerini atadığınızda,onların iptalini çıkarken yapmak gerek..

 

[Haluk]

@akd:

Yukarıda xxrt'in dediği gibi VBA ile tuşlara atama yaptıktan sonra dosyayı kapatırken veya işiniz bittiğiniz anda, atanan görevleri iptal ederek tuşlara kendi asli görevlerini iade etmelisiniz.

Aksi takdirde durum düzelene kadar, siz o dosyayı kapatıp başka bir dosya açsanız bile Excel sözkonusu tuşlara atanan yeni görevleri yerine getirmeye çalışacaktır.

Çünkü, atamalar kodlarda kullanılan OnKey metodu vasıtasıyla Application nesnesine yani Excel'in kendisine yapılmaktadır.

Bu durumu düzeltmek için aşağıdaki kodu çalıştırın.

Sub ResetEnterReturn()
    Application.OnKey "{ENTER}"
    Application.OnKey "~"
End Sub

 

[akd]

Çok çok teşekkür ederim sayın arkadaşlarımmmmm