Enterle N21 Hücresinden L7 Hücresine Geciş

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Levent Bey, Bravo. Teşekkür eder, Allah razı olsun.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Çok teşekkür ederim Levent Bey,

Bayaa işime yarayacak bir kod idi bu.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Ö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.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Tamam arkadaşlar çözdüm.

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