(20/03/2021, 15:16)m_demir yazdı: Çok, çok teşekkürler Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.

Rica ederim abey

Müsait olunca onkey yöntemi ilede yapayım abey.Sayfada değişikliğe gerek kalmaz.Kod hazır zaten biraz değişiklik ve birazda ekleme olacak mesela target yerine activecell yada başka yoldan.

Teşekkürler.

Rica ederim abey.
Az kod değişecek dedim bayağı değişti
Sayfa1 de kod çalışır öyle ayarladım sayfa adını değiştirirseniz başka sayfadada değişir.Const olan yerdeki sayfa ad değişecek sadece abey.

Modül Kodlar;

Public hedef As Range

Public Const hedefSayfaAd As String = "Sayfa1"



Sub Auto_Open()

    enterAktif

End Sub



Sub Auto_Close()

    enterPasif

    Set hedef = Nothing

End Sub



Public Sub Enterle()

    If ActiveSheet.Name <> hedefSayfaAd Then

        enterPasif

        ActiveCell.Offset(1, 0).Select

        Exit Sub

    End If

    With hedef

        Select Case .Column

            Case 1, 8: .Offset(0, 1).Select

            Case 2, 9: .Offset(1, -1).Select

        End Select

    End With

End Sub



Sub enterPasif()

    Application.OnKey "{RETURN}" 'Normal enter

    Application.OnKey "{ENTER}" 'En sagdaki enter

    Set hedef = Nothing

End Sub

Sub enterAktif()

    Application.OnKey "{RETURN}", "Enterle" 'Normal enter

    Application.OnKey "{ENTER}", "Enterle" 'En sagdaki enter

End Sub

Sayfa Kodlar;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("A:B,H:i")) Is Nothing Then

        If Target.Rows.Count > 1 Then Exit Sub

    '    If Target.Row = 1 Then Exit Sub

        Select Case Target.Column

            Case 1, 8: Set hedef = Target: enterAktif

            Case 2, 9: Set hedef = Target: enterAktif

        End Select

    Else

        enterPasif

    End If

End Sub

Çok teşekkürler Hocam ellerinize sağlık çok güzel olmuş.

(21/03/2021, 00:53)m_demir yazdı: Çok teşekkürler Hocam ellerinize sağlık çok güzel olmuş.

Rica ederim abey,kolay gelsin