Çözüldü Tab tuşuyla iki sütun birden atlama

Enter işlemi için aşağıdaki ayarı yapın.

Gayet açık yazdığımı düşünüyorum, tab tuşuna basınca demiştim. ayrıca bu yöntemle sadece bir sütun atlayabilirsin. Enter için bu kodu kullanıyorum zaten
HTML:

blue' Alıntı:

.....enter tuşuna basınca alt satıra geçsin......

Genişletmek için tıkla...

Patron' Alıntı:

Enter işlemi için aşağıdaki ayarı yapın.

Genişletmek için tıkla...

Aşağıdaki mesajı bana mı yazdınız?

blue' Alıntı:

Gayet açık yazdığımı düşünüyorum, tab tuşuna basınca demiştim. ayrıca bu yöntemle sadece bir sütun atlayabilirsin. Enter için bu kodu kullanıyorum zaten

Genişletmek için tıkla...

blue' Alıntı:

A1 hücresine veri girdikten sonra tab tuşuna basarsam C1 hücresine gitsin enter tuşuna basınca alt satıra geçsin bu mümkün müdür?

Genişletmek için tıkla...

blue' Alıntı:

Gayet açık yazdığımı düşünüyorum, tab tuşuna basınca demiştim. ayrıca bu yöntemle sadece bir sütun atlayabilirsin. Enter için bu kodu kullanıyorum zaten

Genişletmek için tıkla...

Gördünüz üzere sadece tab tuşuna basınca dememişsiniz. enter tuşuna basınca da demişsiniz.

Yani 2 tane talebiniz olduğu anlaşılıyor.
1. si tab yapınca C1'e gitsin.
2.si enter yapınca alt satıra geçsin.

Ben 2. talebiniz için bir öneride bulundum sadece.

Patron' Alıntı:

Enter işlemi için aşağıdaki ayarı yapın.

Genişletmek için tıkla...

Neyi açık yazdığınızı düşünüyorsunuz?
yada ;
sizin açık yazıp da benim anlayamadığım nedir?

Genel bir modülde

Sub start_KEY()
'Tab tusu "key_Tab" makrosunu baslatir
Application.OnKey "{TAB}", "key_Tab"
'Enter tusu "key_Enter" makrosunu baslatir
Application.OnKey "~", "key_Enter"
End Sub

Sub key_Tab()
'Burda gerekli kontrolleri yaptiktan sonra
'Iki sütün sonrasina gider
ActiveCell.Offset(0, 2).Select
End Sub

Sub key_Enter()
'Burda gerekli kontrolleri yaptiktan sonra
'alt satira gider
ActiveCell.Offset(1, 0).Select
End Sub

Daha fazla bilgi icin application.onkey metodunu arastirabilirsiniz.

Aydinbas' Alıntı:

Genel bir modülde

Sub start_KEY()
'Tab tusu "key_Tab" makrosunu baslatir
Application.OnKey "{TAB}", "key_Tab"
'Enter tusu "key_Enter" makrosunu baslatir
Application.OnKey "~", "key_Enter"
End Sub

Sub key_Tab()
'Burda gerekli kontrolleri yaptiktan sonra
'Iki sütün sonrasina gider
ActiveCell.Offset(0, 2).Select
End Sub

Sub key_Enter()
'Burda gerekli kontrolleri yaptiktan sonra
'alt satira gider
ActiveCell.Offset(1, 0).Select
End Sub

Genişletmek için tıkla...

Bu makronun çalıştığını sanmıyorum. hiçbir tepki vermiyor

#4 ve #5 nolu mesajlarıma cevap bekliyorum.

blue' Alıntı:

Bu makronun çalıştığını sanmıyorum. hiçbir tepki vermiyor

Genişletmek için tıkla...

start_Key makrosunu manuel calistirmaniz lazim. O makro diger iki makroyu aktif hale getiriyor.

Sub start_KEY()
'Buralarda bir yere tiklayip F5 tusuna basin.
'Tab tusu "key_Tab" makrosunu baslatir
Application.OnKey "{TAB}", "key_Tab"
'Enter tusu "key_Enter" makrosunu baslatir
Application.OnKey "~", "key_Enter"
End Sub

'Bu makro ile de Enter ve Tab- tuslari normal funksiyonlarina döner.
Sub sonlandir_KEY()
'Tab tusu "key_Tab" makrosunu deaktive eder
Application.OnKey "{TAB}"
'Enter tusu "key_Enter" makrosunu deaktive eder
Application.OnKey "~"
End Sub

Ekteki dosyada Tab-Tusu iki sütun saga gider, Enter tusu asagi.
Baska bir dosya aktf olunca TAB ve Enter tuslari gene normal fonksiyonlarina döner.

Dosyayı inceleyiniz.