Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 Then
Select Case Target.Address(0, 0)
Case "A1", "A2", "C1", "C2"
Target.Offset(, 1).Select
Case "B1", "D1"
Target.Offset(1, -1).Select
Case "B2"
Target.Offset(-1, 1).Select
End Select
End If
End Sub
What if I wanna make it
A1 B1 A2 B2 A3 B3 C1 D1 C2 D2 C3 D3 E1 F1
Do you see what I'm trying to do?
Private Sub Worksheet_Change(ByVal Target As Range)
Const LastRow As Long = 4
If Target.CountLarge = 1 Then
Select Case True
Case Target.Column Mod 2 = 1 And Target.Row <= LastRow
Target.Offset(, 1).Select
Case Target.Column Mod 2 = 0 And Target.Row < LastRow
Target.Offset(1, -1).Select
Case Target.Column Mod 2 = 0 And Target.Row = LastRow
Target.Offset(-Target.Row + 1, 1).Select
End Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myList, x
myList = Split("A1,B1,A2,B2,A3,B3,C1,D1,C2,D2,C3,D3,E1,F1", ",") '<--- change as you like it
x = Application.Match(Target.Address(0, 0), myList, 0)
If IsError(x) Then Exit Sub
If myList(x - 1) = myList(UBound(myList)) Then x = 0
Range(myList(x)).Select
End Sub
This is a very different question and a duplicate to: How to make control select cell pattern permanentWhen you hold down control and select cells in a certain order you can then enter data in that order. How do I make that permanent