Enter tuşu ile sağ kayma

[gokhanbek]

Vba ile enter tuşuna bastığımda aktif hüçre bir sağdaki hücre nasıl olur

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Kullanılan kod; (Sayfanın kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 5 Then
    Application.MoveAfterReturnDirection = xlToRight
    ElseIf Target.Column = 5 Then
    Target.Offset(1, -4).Select
    Else
    Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

ThisWorkbook bölümüne uygulanacak kod;

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

 

[gokhanbek]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
Target.Offset(1, -7).Select
End Sub

BU VAR OLAN KOD
DİĞER KODU UYGULADIĞIMDA İSE OLMADI

 

[Korhan Ayhan]

Selamlar,

Bu durumda kendi örnek dosyanızı ekleyip yardım istemeniz gerekirdi. Dosyanızı ekleyerek yapmak istediğiniz işlemi açıklarmısınız.

 

[gokhanbek]

Korhanbey cok teşekkür ederim

kendi kodumu sildim
sizin kodların üzerinde oynayınca oldı cok teşekür ederim

emeksiz yemek olmaz herşey hazır olmamalı demi

elinize sağlık