Enter tuşunu yönlendirmek

[xternet]

Merhaba arkadaşlar.
Malum sene sonu geldi ve fiş yazmak gibi bir sıkıntımız var. İşlerimi biraz kolaylaştırmak için küçük bir çalışma yapayım dedim. Sizden isteğim Aktif hücrenin "tarih, fiş no, kimden alındığı, tutar " sutunlarına bilgi girildiğinde ve enter yapıldığında bir sağa geçmesi. Tabi "tutar"dan sonra alt satırın tarih sutununa geçecek.
Site içinde arama yaparak bu konuya benzer bir kaç çalışma buldum fakat bir türlü kendi çalışmama uyarlayamadım. Yardımcı olursanız sevinirim.
Dosyayı ekte gönderiyorum.

 

[Seyit Tiken]

İmleci başlangıç noktasındn soldan sağa götürmek için "Tab" tuşunu kullanın. Ne zaman satırbaşına geçmek istediğinizde "Enter"tuşuna basın. İmlecin başlangıç noktasına geçtiğini göreceksiniz.

 

[xternet]

Kardeşim şu Excel'e hayran olmamak elde değil. İçinde neler var. Bu özelliği hiç farketmemiştim. Hiç makro kullanmadan sorumu yanıtladığınız için çok teşekkür ederim Seyit bey. Hayırlı akşamlar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Ama birleştirilmiş hücre kullanmak kod yazmayı çok zorlaştırır. Eğer birleştirilmiş hücre olmayasaydı çok daha az sayıda satırla çözülebilirdi.

[vb:1:88faccdf9b]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row, 12).Select
If Target.Column = 12 Then Cells(Target.Row, 17).Select
If Target.Column = 17 Then Cells(Target.Row, 35).Select
If Target.Column = 35 Then Cells(Target.Row + 4, 5).Select
If Target.Column = 44 Then Cells(Target.Row, 51).Select
If Target.Column = 51 Then Cells(Target.Row, 56).Select
If Target.Column = 56 Then Cells(Target.Row, 74).Select
If Target.Column = 74 Then Cells(Target.Row + 4, 44).Select
End Sub
[/vb:1:88faccdf9b]

Not: Sn Seyit beyin çözümü çok güzel o çözümü tercih edin.

 

[xternet]

Leventm her ne kadar sizde seyit beyin çözümünü önermiş olsanızda, sizin yazmış olduğunuz kodu da denedim. Ama çalıştıramadım. Bilgi açısından belirtmek istedim. İlginize teşekkür ederim.

 

[xternet]

Arkadaşlar Sayın seyit arkadaşımın çözümü gerçekten çok kullanışlı ama insanın eli iç güdüsel olarak rakamların yanından enter tuşuna kayıyor. Eğer çok uğraştırıcı bir formül gerektirmiyorsa gerekli kodu yazabilirmisiniz.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin. Verileri girip entere basınca kod çalışacaktır.

 

[xternet]

Teşekkür ederim Sayın Leventm. Sorunsuz çalışıyor.

 

[Seyit Tiken]

Alternatif Çözüm.
İlgili Dosya Ekte.

 

[Metin Karaağaç]

Sayın Leventm;
Acaba bu makroyu ekte gönderdiğim dosyaya uygulamanız mümkünmü?
Ben bilgi girilmeyecek hücreleri kilitledim.
Sadece bu dosyaya özel, enter tuşuna basınca sağa gitmesini istiyorum.
Dosyada çalışma bitip kapatılınca enter tuşu gene aşağı hareket etsin,
yani diğer dosyalarda sağa gitme olmasın.
Teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodları dosyanızdaki bir module kopyalayın. Dosya açıldığında enter tuşu sağa hareket edecektir. Dosya kapandığında eski haline dönecektir.

[vb:1:1acb3bf9c5]Sub auto_open()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Sub auto_close()
Application.MoveAfterReturnDirection = xlDown
End Sub
[/vb:1:1acb3bf9c5]

 

[Metin Karaağaç]

Teşekkür ederim.
Tam istediğim gibi bir vergi iade programım oldu :mutlu:

İncelemek isteyen varsa;
http://www.excel.web.tr/viewtopic.php?t=11919

 

[Metin Karaağaç]

Sayın Leventm;
Verdiğiniz kodlar çalışıyor, ancak:
Sayfayı kapat dedikten sonra değişiklikleri kaydetmek istiyormusunuz diye sorulan soruya iptal dediğimde kodlar da iptal oluyor.
Yani enter tuşu eski haline geri dönüyor.
Bu duruma bişey yapabilirmiyiz?
Teşekkürler..

 

[danersin]

Sadece bu dosyaya özel, enter tuşuna basınca sağa gitmesini istiyorum.

Siz hangi dosyada bu özelliğin aktif olmasını istiyorsanız o dosya ile birlikte bu kodlarıda save edeceksiniz. Dosya kapandığında diğer dosyalarda normal çalışacak excel, bu dosyayı açtığınızda kod devreye girecek ve enter sağ hücreye geçirecek kursörü..Tüm dosyalarda bunu yapmak istiyorsanız araçlar>seçenekler>düzen sekmesinde seçimi enter tuşundan sonra taşı açılır kutusundan yön seçin.

 

[Metin Karaağaç]

Sn danersin;
dosyamdaki kodlar gayet güzel çalışıyor.
Bu konuda sorunum yok. Benim sorunum;
belirttiğim gibi, dosya/kapat dediğimde, "değişiklikleri kaydetmek istiyormusunuz?" sorusuna iptal dediğimde;
enter tuşu tekrar aşağı yönlenmeye başlıyor.
Yani kod devreden çıkıyor.
Acaba bu konuda bişey yapabilirmiyiz?

 

[Metin Karaağaç]

örnek bir dosya göndererek sıkıntımı anlatmaya çalıştım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim...
DOsyada bir iki defa enter tuşuna basıp, kapatın ve değişiklikleri kaydetme penceresi geldiğinde "iptal" diyin.
ne demek istediğimi anlayacaksınız

 

[Levent Menteşoğlu]

[vb:1:266f043ab5]Sub auto_close()
Application.MoveAfterReturnDirection = xlDown
End Sub
[/vb:1:266f043ab5]

Yukarıdaki kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:266f043ab5]Sub auto_close()
Application.MoveAfterReturnDirection = xlDown
Activeworkbook.save
End Sub
[/vb:1:266f043ab5]

 

[Metin Karaağaç]

Tamam.
Verdiğiniz kod ile, kapat deyince direk kaydetmek sorunu çözdü.
Çok teşekkür ederim...