enter yaptığımızda hücre seçimi

[thugangel]

Merhabalar değerli ustalarım.Sorum şöyleki; örneğin : P5 sütununda değer girip entera bastığım zaman seçili hücre B6 ya gitsin.yani bir alt satırın B sütunundaki hücresine. Bu mümkün müdür ?

 

[Huseyinkis]

Merhabalar değerli ustalarım.Sorum şöyleki; örneğin : P5 sütununda değer girip entera bastığım zaman seçili hücre B6 ya gitsin.yani bir alt satırın B sütunundaki hücresine. Bu mümkün müdür ?

ekteki kodları sayfanın kod kısmına yapıştırın

Not: Sayfa kod kısmını açmak için Alt+F11 tusuna basın hangi sayfada işlemi yapmasını istiyorsanız soldan sayfa ismine çift clik atın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [P:P]) Is Nothing Then Exit Sub
Cells(Target.Row + 1, 2).Select
End Sub

 

[thugangel]

Bu kod oldu. Ancak excel seçeneklerini değiştirdiği için tüm excel dosyalarımda hücre sağa gidiyor.Bu kodun sadece bu sayfada çalışması mümkün mü?

 

[Korhan Ayhan]

Merhaba,

Size önerilen kod excel ayarlarınızı değiştirmez. Sadece uygulanan sayfada "P" sütununa veri girip enter tuşuna bastığınızda bir alt satırın "B" sütununa konumlanır.

Eğer tüm dosyalarınızda enter tuşu ile hücrelerde sağa gidiyorsanız aşağıdaki ayarı kontrol edin.

Sol üst köşedeki yuvarlak office butonuna tıklayın.
Açılan menüden "SEÇENEKLER" seçeneğini seçin.
Açılan menüden "GELİŞMİŞ" seçeneğini seçin.
Açılan pencerede en üst bölümdeki "Enter'a bastıktan sonra seçimi taşı" seçeneğini "Aşağı" olarak ayarlayın.

Son olarak size önerilen kodu deneyin.

 

[zeynepozo]

İyi Çalışmalar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j:j]) Is Nothing Then Exit Sub
Cells(Target.Row + 1, 2).Select
End Sub

bu kodu işler hale getiremedim. yardım rica edecektim.
aynı kayda ait yan yana veri girişi yaptığım için yön tuşum sağ olmak durumunda.
b1,c1,d1,e1,f1,g1,h1,i1 hücresine değer girip j1 e enter ile geldiğimde b2 ye inmesini sağlamak istiyorum.

nasıl yapabilirim. teşekkürler.

 

[zeynepozo]

cevapları daha dikkatli okuyunca bir şeyi fark ettim. j1 e herhangi bir deger girip enter a basınca alt satıra yani b2 ye geçti ama j1 e değer girmeden sadece enterla geçmesi için uğraşıyordum. j1 e gelince sadece enter ile alt satıra geçer mi?

öndeki hucreleri i1 de toplattığım için otomatik değer cıkıyor. o nedenle i1 de bu işlemi yaptıramıyorum.

teşekkürler.

 

[feridici_genc]

Selamun aleykum,
dosya > seçenekler > gelişmiş > "enter'e basıldıktan sonra seçimi taşı" bölümünde imlecin hangi yöne gitmesini istiyorsanız değiştirebilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
Varsa eski kodları silin.
Bu işlemi yapmak istediğiniz sekme adı üzerinde sağ klik yapın ve kod görüntüle seçeneğini seçin.
Açılan kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 11 Then
        Target.Offset(1, -9).Select
    End If
End Sub

Aynı ekranda sol tarafta bulunan BUÇALIŞMAKİTABI ya da THISWORKBOOK bölümüne aşağıdaki kodu uygulayın.

Private Sub Workbook_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Workbook_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Workbook_Open()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Son olarak dosyanızı makro içerebilen excel dosyası olarak kayıt edin. Dosyanızı kapatıp tekrar açın ve ilgili sayfayı açıp ENTER tuşuna basıp sonucu gözlemleyin.

Ayrıca hazırladığım örnek dosyayı da ekliyorum.

 

[zaruri]

Değerli arkadaşlar; Kıymetli hocalarım,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I:I]) Is Nothing Then Exit Sub
Cells(Target.Row + -2, 9).Select
End Sub

Yukarıdaki Kodları kendimize uyarladım.
I15 de başlıyor, I13'e geliyor Fakat I14 yerine sürekli yukarı doğru I11 e gidiyor,
aşağı alt satıra I14 e gelmesini istiyoruz.

Başlangıç :
"I15" (işlem yapılsın veya yapılmasın) ; Enter,
"I13" ( işlem yapılsın veya yapılmasın) Enter,
"I14" enter
"I15"

 

[Muzaffer Ali]

Merhaba.

Hangi sayfada olmasını istiyorsanız o sayfanın kod kısmına kopyalayın. Bu kodlar sayfanın en üst satırında olması gerekiyor.

Dim Onceki As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("I16")) Is Nothing And Onceki = "I15" Then
        Range("I13").Select
    End If
    Onceki = Target.Address(0, 0)
End Sub

 

[zaruri]

Eyvallah,
Muzaffer Ali Hocam,


Başlangıç Noktası olan "I15" de işlem yapılmadığında aşağı "I16" ya gidiyor,
İşlem yapıldığında veya başka işlemlerden sonra "I13" e gidiyor.
Sayfaya girildiğinde, "I15" de duran hücreye işlem yapmadan da Enter dediğimizde , "I13" e gönderebilir miyiz?

 

[Muzaffer Ali]

I15 seçiliyken Entere basarsanız I13'e gider.

 

[zaruri]

"I15"de kapandığı için açılışta da "I15" de açılıyor ve ilk Enter da "I16" ya gidiyor.
Kapanışı farklı bir yerde yaptığımızda I15 üzerine geldiğimizde evet I13 e gidiyor.

Bu şekilde de kullanışlı, teşekkür ederiz,
Emeğinize sağlık hocam.

 

[Muzaffer Ali]

Rica ederim: Kolay gelsin.

 

[Korhan Ayhan]

Alternatif...

Sadece Sheet1 isimli sayfada çalışacak şekilde kurgulanmıştır.