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
HASTİM KASA sayfasının modülüne aşağıdaki kodu eklemeyi dener misiniz?