Merhaba.
Resimdeki gibi kodları ilgili yerlere ekleyin.


https://resim.accesstr.net/do.php?img=11053


https://resim.accesstr.net/do.php?img=11054

yerine kısaca
olarakta yazılabilinirdi.

Private Sub Worksheet_Deactivate()

    Kapat

    Set hedef = Nothing

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Set hedef = Target

    Ac

End Sub

Public hedef As Range



Sub Ac()

    Application.OnKey "{TAB}", "Test"

End Sub



Sub Kapat()

    Application.OnKey "{TAB}"

End Sub



Sub Test()

    If ActiveSheet.name = "Sayfa1" Then

        If hedef.Column = 1 Or hedef.Column = 6 Then

          If hedef.Value = "" Then

              hedef.Offset(0, 0).Select

          Else

              hedef.Offset(0, 1).Select

          End If

        Else

            Kapat

        End If

    End If

End Sub