Stuck on VBA code in XL07 for Next Row

[CSacles]

I’m working on a VBA but I’m stuck. I was wondering if you may be able to help.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I’m trying to do a scan program that will take me to the next row and start over after the final scan on the first row.<o></o>
<o> </o>
Here is my code<o></o>
<o> </o>

 Private Sub Worksheet_Change(ByVal Target As Range)<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a]<o:p>[FONT=Calibri][SIZE=3] [/SIZE][/FONT]</o:p>[/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]If Target.Address = "$X$1" Then<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] Range("A2").Select<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] Application.SendKeys "{Enter}"<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a]<o:p>[FONT=Calibri][SIZE=3] [/SIZE][/FONT]</o:p>[/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]End If<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]If Target.Address = "$A$2" Then<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] Range("B2").Select<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] <o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]End If<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]If Target.Address = "$B$2" Then<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] Range("D2").Select<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri] <o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]    <o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]End If<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]End Sub [END CODE]<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a]<o:p>[FONT=Calibri][SIZE=3] [/SIZE][/FONT]</o:p>[/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]I would need this program to switch fields automatically after the scan and start over on row A3.<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]Any help is well appreciated.<o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#4a442a][SIZE=3][FONT=Calibri]Thanks<o:p></o:p>[/FONT][/SIZE][/COLOR]

 

[MrKowz]

Something like this?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("X:X")) Is Nothing Then
    Range("A" & Target.Row + 1).Select
ElseIf Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Select
ElseIf Not Intersect(Target.Range("B:B")) Is Nothing Then
    Target.Offset(0, 2).Select
End If
End Sub

 

[CSacles]

Thanks... I will try it out.

 

[CSacles]

I seem to be getting a Compile error (Argument not optional) with the "Intersect".

 

[MrKowz]

My apologies - had a typo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("X:X")) Is Nothing Then
    Range("A" & Target.Row + 1).Select
ElseIf Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Select
ElseIf Not Intersect(Target, Range("B:B")) Is Nothing Then
    Target.Offset(0, 2).Select
End If
End Sub

 

[CSacles]

For some reason, mabe it's me, but it going down to D3 instead of A3 after the last scan.

Thanks for help

 

[MrKowz]

If I can get it to just start at the beginning of the next row, I think I will be good.

It already does that - when you change a value in column X, it will take you to column A in the next row.

Is there a different outcome that you are desiring?

 

[CSacles]

Am I missing something?

 

[MrKowz]

I tested it on my end. When I change A2, it goes to B2. When I change B2, it goes to D2. When I change X2, it goes to A3... and so forth.

 

[CSacles]

OK, let me see where I went wrong...
Thanks for the help