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

[blue]

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?

 

[Patron]

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

 

[blue]

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:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Patron]

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

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

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

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

 

[Patron]

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?

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

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.

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

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

 

[Aydinbas]

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

 

[Aydinbas]

Daha fazla bilgi icin application.onkey metodunu arastirabilirsiniz.

 

[blue]

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

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

 

[Patron]

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

 

[Aydinbas]

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

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.

 

[Ümit Bakacak]

Dosyayı inceleyiniz.

 

[Refaz]

Kod sayfa1 de çalışır.Sonra ayarlamalar yapabilirsiniz.
Excel kapanınca eski ayara döner.