Private Sub Worksheet_Change(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.Value = "" Then Exit Sub
' If Target.Row = 1 Then Exit Sub
Select Case Target.Column
Case 1, 8: Target.Offset(0, 1).Select
Case 2, 9: Target.Offset(1, -1).Select
End Select
End If
End Sub
Zaman bulmuşken yaptım.Koddaki tek tırnağı silerseniz 1.satırdada çalışmaz kendinize göre ayarlayabilirsiniz.
