Satır bittiğinde alt satır başına nasıl geçerim ?

[zamansal2]

Ekteki excelde Ana sayfaya veri girişi yapıyoruz burda L veya O sütununda Enter tuşunu kullanarak veya içini duldurduktan sonra Enter ile Bir Alt satırın Başına gitmek istiyorum Yardımcı olabilirmisiniz ?
Kod yazarsanız nasıl yapacağımı yazabilirmisiniz.

 

[Korhan Ayhan]

Merhaba,

İlgili sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3:B999]) Is Nothing Then Exit Sub
    If sil59 = True Then Exit Sub
    If Target <> "" And WorksheetFunction.CountIf(Range("B3:B999"), Target) > 1 Then
    MsgBox "Mükerrer kayıt yapılamaz !...": Target = "": Target.Activate
    End If
    If Target.Column >= 3 And Target.Column <= 15 Then Application.MoveAfterReturnDirection = xlToRight
    If Target.Column >= 15 Then Target.Offset(1, -14).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 >= 1 And Target.Column <= 15 Then
        Application.MoveAfterReturnDirection = xlToRight
    End If
    If Target.Column >= 16 Then Target.Offset(1, -15).Select
End Sub

"BuÇalışmaKitabı" ya da "ThisWorbook" bölümüne de aşağıdaki kodu uygulayın. Bu kod bloğu dosyanızı kapattığınızda ya da başka bir dosyayı açtığınızda ENTER tuşunun normal görevine (aşağıya doğru hareket) devam etmesini sağlayacaktır.

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

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

 

[zamansal2]

Çok teşekkür oldu sanırım

 

[zamansal2]

Yanlız bir sorun var kopyala yapıştır yapamıyorum neden , diğer sayfalardaki bilgileri ?