HASTİM KASA sayfasının modülüne aşağıdaki kodu eklemeyi dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

on error resume next

If Target.Column = 3 And Target.Row > 2 Then

    If Target.Value = "GİRİŞ" Then Cells(Target.Row, Target.Column + 1).Select

    If Target.Value = "ÇIKIŞ" Then Cells(Target.Row, Target.Column + 2).Select

End If

End Sub