Enter tuşu ile hücre seçme

[met07]

Merhabalar
Ã?rnek : A1 Hücresinde iken enter tuşuna bastığım zaman benim belirleyeceğim hücreye (örneğin A5'e sonra B7'ye gibi uzatalibiriz) geçiş yapabilirmiyiz.
Yardımcı olursanız sevinirim. :yardim:

[xxrt]

Pratik Çözüm Enterle dolaşmasını stediğin hücrelerin Kilitlerini aç.Daha sonra sayfayı şifre ile koru.

Makrolu Çözüm:
1) Kullanıcının verileri gireceği hücrelerin KİLİTLERİ KALDIRIN ve sayfaya, koruma
koyun.
2) Aşağıdaki satırları, Excel dosyanızın VBE' kısmında sözkonusu sayfa
modulüne yerleştirin :

Private Sub Worksheet_Deactivate()
Application.OnKey "~"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Locked = True Then Application.OnKey "~", "sec"
End Sub

3) VBE'de yeni bir modül yarattıktan sonra, aşağıdaki satırları da,
bu yeni modulün içine yerleştirin :

Sub sec()
Application.SendKeys "{TAB}"
End Sub

Sub Auto_Close()
Application.OnKey "~"
End Sub

4) Ã�imdi, çalışma sayfanızda TAB veya RETURN (klavyedeki büyük ENTER tuşu) tuşlarına
basıldığında, otomatik olarak bir sonraki data girilecek hücre seçilmiş olacaktır.

[met07]

xxrt çok teşekkür ederim ikisinide öğrenmiş oldum. iyi çalışmalar. :D

[erdoğankaplan]

SAYIN XXRT, Ã?NERDİÃ�İN PRATİK ÇÃ?ZÜM ÇOK HOÃ�UMA GİTTİ, TEÃ�EKKÜRLER. :hey:

[akd]

Merhaba sayın xxrt
Küçük enter'e de bu özelligi uygulayamazmıyız.
Selamlar...

[swordfish]

Sayın xxrt verdiğiniz visual basic li çözümü bir örnekte gösterebilirmisiniz ?Teşekkürler :dua:

[xxrt]

Forumun Eski Arşivlerinden Yararlanması gerçekten çok Güzel.Bu Nedenle Ã?rnek Bir çalışma eklenmiş olup,
Sayfa Koruması 1
Bu Arada Sadece Büyük Enter Tuşu kullanılıyor.
Kolay Gelsin.

[Haluk]

Klavyenin karakter tuş takımı ve nümerik tuş takımındaki "Return" ve "Enter" tuşları için uyarlanmış hali aşağıdaki gibidir.

Dip Not:

Karakter tuş takımındaki "Return" tuşu olarak adlandırılır (bu tuşun üzerinde geriye doğru bir ok işareti vardır ), nümerik tuş takımındaki ise "Enter" tuşu olarak adlandırılır.

Sayfa modulundeki kodlar:

[vb:1:413b28f082]Private Sub Worksheet_Deactivate()
Call Auto_Close
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Locked = True Then
Application.OnKey "~", "sec"
Application.OnKey "{ENTER}", "sec"
End If
End Sub
[/vb:1:413b28f082]

Modul kodları:

[vb:1:413b28f082]Sub sec()
Application.SendKeys "{TAB}"
End Sub

Sub Auto_Close()
Application.OnKey "~"
Application.OnKey "{ENTER}"
End Sub
[/vb:1:413b28f082]

[swordfish]

Ã?rnek için teşekkürler. Ayrıca bu kadar kısa sürede cevap beklemiyordum. gerçekten çok sağolun. :D