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.

 

[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.