enter tuşu fonksiyonu

umitumit

Altın Üye
Katılım
5 Eylül 2006
Mesajlar
364
Excel Vers. ve Dili
Excel 2016
Türkçe
Altın Üyelik Bitiş Tarihi
13-07-2028
arkadaşlar merhaba,
excel de enter tuşuna basınca sadece aşağı değil, hem aşağı hemde soldaki hücreye geçiş yapmasını istiyorum.

mesela;

b3 hücresindeyim.
enter tuşuna bir kez basınca a4 hücresine gitmek istiyorum.
mümkün mü acaba?
 

BG

Özel Üye
Katılım
5 Mayıs 2008
Mesajlar
1,380
Excel Vers. ve Dili
Office 2021 TR & EN
Sayın umitumit

arkadaşlar merhaba,
excel de enter tuşuna basınca sadece aşağı değil, hem aşağı hemde soldaki hücreye geçiş yapmasını istiyorum.

mesela;

b3 hücresindeyim.
enter tuşuna bir kez basınca a4 hücresine gitmek istiyorum.
mümkün mü acaba?
A ve B sütunu için uyarlanmış örnek dosya ektedir.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
        If Target.Column = 2 Then
            Target.Offset(1, -1).Select
    Else
            Target.Offset(0, 1).Select
    End If
End Sub
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,747
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. Direk ENTER tuşuna komut verilmiştir.


Kullanılan kodlar;


ThisWorkbook bölümüne;

Kod:
Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "{~}", "YÖN"
    Application.OnKey "{ENTER}", "YÖN"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{~}", ""
    Application.OnKey "{ENTER}", ""
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "{~}", ""
    Application.OnKey "{ENTER}", ""
End Sub
 
Private Sub Workbook_Open()
    Application.OnKey "{~}", "YÖN"
    Application.OnKey "{ENTER}", "YÖN"
End Sub


Boş bir modüle;

Kod:
Option Explicit
 
Sub YÖN()
    On Error Resume Next
    ActiveCell.Offset(1, -1).Select
End Sub
 

Ekli dosyalar

Katılım
21 Mayıs 2010
Mesajlar
1
Excel Vers. ve Dili
2003 / Türkçe
Arkadaşlar Merhaba,

Benim excel 2003 de bir sıkıntım var. Şöyleki;

Bir barcod okuyucum var. Bunum ile barcod un üzerinden 2 bilgi okutacağım. Birisi ürün kodu diğer seri numarası.
Örneğin a1 hücresinde iken ürün kodunu okutuyorum hemen enter a basmış gibi a2 hücresine gidiyor. Aslında ben b1 hücresine gitmesini istiyorum ve orayada seri numarasını okutacağım. sonra hemen a2 hücresine geçip tekrar ürün kodu ve b2 hücresine geçip yeni bir seri no okutmak istiyorum. Bu şekilde a ve b sütununda yaklaşık 3000 satır kadar bilgiyi okutmak istiyorum.
Bunun bir yolu varmı yardım ederseniz sevinirim.
Şimdiden teşekkürler.
 
Üst