Enter'a Basınca İstediğim Hücreye İnmek

[emreunalp]

Merhaba,

Enter'a bastığımda otomatik olarak bir sonraki hücreye değilde benim seçtiğim hücreye gitmesini sağlayabilecek bir formül yada herhangi birşey varmıdır?


Teşekkürler

Emre

 

[BG]

Merhaba

Merhaba,

Enter'a bastığımda otomatik olarak bir sonraki hücreye değilde benim seçtiğim hücreye gitmesini sağlayabilecek bir formül yada herhangi birşey varmıdır?


Teşekkürler

Emre

Talebiniz örnek dosyadaki gibi bir şey olabilir mi?

 

[emreunalp]

Merhaba Brain,

gönderdiğiniz kod çalışmıyor.

 

[BG]

Merhaba

Merhaba Brain,

gönderdiğiniz kod çalışmıyor.

tekrar denedim bende sorunsuz çalışıyor, çalışma sayfası içindeki açıklamada da belirttiğim gibi herhangi bir hücreye birşey yazıp enter tuşuna bastığınızda etkin olacaktır. Bu kısmı atlamış olmalısınız!

 

[Yakut]

slm
brain arkadasimizin verdigi kod calisiyor.

vbkeyReturn ...gibi isimlerin listesi varmi ? enter degil bir baska tus olmasi icin.

 

[aylax]

Selamlar,sayın brain
BİR LİSTE KUTUSU olsun ve bu listede gidilecek satırın noları olsun ve bu listeden seçili satıra gidilebilecek bir çözümünüz varmıdır?
Esen kalın.

 

[baydeniro]

Sayın brain paylaşım için çok teşekkürler.

 

[dolphin_fe]

Hocam bunu sadece bir hücreye gitmek icin kullanabiliyoruz.
Mesela sürekli iki alt satira gidecek bi kod yazabilir misiniz?

 

[Necdet]

Hocam bunu sadece bir hücreye gitmek icin kullanabiliyoruz.
Mesela sürekli iki alt satira gidecek bi kod yazabilir misiniz?

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
Açıklama olarak eklediğim if intersect(tar....... satırındaki açıklamayı kaldırıp [A:A] yazılan yeri değiştirirseniz istediğiniz sütun yada sütunlarda çalışır.

Aşağıdaki kodlarda herhangi bir hücreye değer girildiğinde 2 satır aşağıya atlar.

Private Sub Worksheet_Change(ByVal Target As Range)
'If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(2, 0).Select
End Sub

 

[jeologmühendis]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
Açıklama olarak eklediğim if intersect(tar....... satırındaki açıklamayı kaldırıp [A:A] yazılan yeri değiştirirseniz istediğiniz sütun yada sütunlarda çalışır.

Aşağıdaki kodlarda herhangi bir hücreye değer girildiğinde 2 satır aşağıya atlar.

Private Sub Worksheet_Change(ByVal Target As Range)
'If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(2, 0).Select
End Sub

Teşekkür Bilgi İçin...

Bir sorum olacaktı?

Peki C sütunundan L sütununa kadar enter a bastığımda sağa kayacak L de enter a bastığımda ise 1 alt satırın C sütununa inen bir formül lazım yardım edermisiniz?

 

[Seyit Tiken]

Bu kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:L1000]) Is Nothing Then GoTo Hata
Application.MoveAfterReturnDirection = xlToRight
Hata:
If Intersect(Target, [L1:L1000]) Is Nothing Then GoTo Hata2
Application.MoveAfterReturnDirection = xlToRight
Target.Offset(1, -9).Select
Hata2:
If Not Intersect(Target, [C1:L1000]) Is Nothing Then GoTo Hata3
Application.MoveAfterReturnDirection = xlDown
Hata3:
End Sub

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki kodu deneyiniz.

Kodu sayfanızın kod bölümüne uygulayınız.

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 12 Then Application.MoveAfterReturnDirection = xlToRight
    If Target.Column >= 12 Then Target.Offset(1, -9).Select
End Sub

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.MoveAfterReturnDirection = xlDown
    If Target.Column >= 3 And Target.Column <= 12 Then
        Application.MoveAfterReturnDirection = xlToRight
    End If
End Sub