Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d10000")) Is Nothing And Target.Count = 1 Then
If Target.Offset(0, -1) <> "" Then Target.Offset(1, -1).Activate
End If
If Not Intersect(Target, Range("c2:c10000")) Is Nothing And Target.Count = 1 Then
If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Activate
derlig = Range("c" & Rows.Count).End(xlUp).Row
If ActiveCell = "" Then Application.Goto Cells(derlig + 1, 3)
End If
End Sub