Enter'e bastıkça A1 1 artsın

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Enter'e (ya da ARA TUŞU na) bastığımızda A1 de bulunan sayıyı nasıl makro ile 1 arttırabiliriz?
Saygılarımla

 

[Merhum İdris SERDAR]

.

Bunun gibi olabilir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

.

 

[Tevfik_Kursun]

Sayın İdris Hocam,
İlginize teşekkür ederim. A1 'e çift tıklayınca oluyor. Ben mümkünse ENTER ve/veya ARA TUŞU 'na basıldığında A1 'in değişmesini düşünüyorum.
Saygılarımla

 

[byfika]

Merhabalar,
Sayfanın kod bölümüne alttaki kodu yazın,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.OnKey "{ENTER}", "byfika"

End Sub

Moddül içerisine de:

Sub byfika()
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Value = Range("A1").Value + 1
Cancel = True
End If
End Sub

Rakamların (Numeric Pad) kısmındaki ENTER ile işleminiz olacaktır.
Eğer;
Application.OnKey "{ENTER}", "byfika" kodundaki ENTER yerine RETURN yazarsanız harflerin bulunduğu kısımdaki enter (return ) tuşundan istediğiniz olacaktır.

İKİSİNİDE YAZARSANIZ :
Application.OnKey "{ENTER}", "byfika"
Application.OnKey "{RETURN}", "byfika"

Her iki enter tuşundan istediğinizi yapabilirsiniz...

 

[Tevfik_Kursun]

Sayın Byfika,
İlginize teşekkür ederim. Ara Tuşu ile tetiklemeyi merak ettiğimi de belirtmek isterim.
Saygılarımla

 

[byfika]

Merhabalar,
Muhtemelen tam bilmiyorum ama Application.OnKey yöntemi ile SPACE tuşu çalışmıyor. Belki başka bir yöntemi olabilir.
Alttaki adresi inceleyebilirsin.

Application.OnKey method (Excel)

Excel VBA reference

docs.microsoft.com

Saygılar.

 

[Tevfik_Kursun]

Merhaba,
İlginize teşekkür ederim. Bir yolu mutlaka vardır. Bağlantıyı da inceleyeceğim.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim.
Saygılarımla