Enterle N21 Hücresinden L7 Hücresine Geciş

[Seyit Tiken]

Herkese Selamlar,
Başlık kısmındaki gibi, imleç N27 hücresinde ise Enterlenip L7 hücresine geciş(seçili) yapılabilir mi?
Teşekkürlerimi sunuyorum...

 

[Ali]

Sub auto_open() 'enter tuşu SEKME makrosu ile ilişkilendirildi
Application.OnKey ("{RETURN}"), "SEKME"
End Sub

Sub SEKME()
If Selection.Cells.Address = "$N$27" Then [L7].Select
End Sub

 

[Seyit Tiken]

Sayı Fructose ilginiz için teşekkür ediyorum. Verdiğiniz kodları bir türlü çalıştıramadık. Dosya şeklinde gönderebilir misiniz? Kısaca soru bir kez daha izah edeyim : N21 hücresine sıfırdan büyük herhangi bir sayı girilip enterlendiğinde L7 hücresine geçiş yapıp seçili yapacak.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:7fa00f9f15]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$21" And Target > 0 Then [l7].Select
End Sub
[/vb:1:7fa00f9f15]

 

[Seyit Tiken]

Levent Bey, Bravo. Teşekkür eder, Allah razı olsun.

 

[Necdet]

Bu konuda bir sorumda benim olacak.

Eğer A dan G sütununa kadar giriş yapılıyor ise : G sütunda giriş yapıldıktan sonra bir sonraki satırın A sütununa gidiş nasıl olur?

Örneğin G5 e bilgi girildiğinde Cursor A6 ya,
G6 ya giriş yapıldığında A7 ye gitmeli.

Sayın Levent Bey, yukarıdaki kodlarda bunun için nasıl bir değişiklik yapmak gerek?

 

[Seyit Tiken]

Necdet Bey,
Aldığım kopyada ufak bir değişiklik yapıp gönderiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target > 0 Then [C1].Select
If Target.Address = "$C$1" And Target > 0 Then [E1].Select
End Sub

 

[Levent Menteşoğlu]

Sayın Necdey bey aşağıdaki kodu kullanabilirsiniz.

[vb:1:4e8043ae0d]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a,g:g]) Is Nothing Then Exit Sub
If Target <> 0 And Target.Column = 1 Then Target.Offset(1, 6).Select
If Target <> 0 And Target.Column = 7 Then Target.Offset(1, -6).Select
End Sub
[/vb:1:4e8043ae0d]

 

[Necdet]

Çok teşekkür ederim Levent Bey,

Bayaa işime yarayacak bir kod idi bu.

 

[Seyit Tiken]

Alternatif Makrosuz Çözüm :
Satır geçişlerinde(soldan sağa geçiş) "Tab" tuşunu kullanıp, istenilen yerde Enterlenip satırbaşına(hücre başlangıcı) gelinebilir.

 

[kombo]

Özür olsun ama konu güzel .
Kodları şöyle nasıl düzenleyebiliriz.
A1 G1 A2 G2 A3 G3 yani her enterde a1 den g1 ordan a2 g2 yani belli bir sıra ile.

 

[kombo]

Tamam arkadaşlar çözdüm.

Sn.leventm kodlar ve emeğin için teşekkürler.