Moving cursor to next column

[amiller6229]

I am new to all this and learning as I go. I am a school nurse and developing a new check in system for when students come to see me. Students will be assigned a QR text code of their name on an index card and that will be their nurse pass. When they come to my office, they scan their card and it enters their name with the date and time they came into my office. I have a table set up that has columns for name, date and then columns for why they came and what I did for them. I currently have it set up to when they scan their QR code, their name is entered into column A and the date goes into Column B. I need for the cursor to jump to column C so I can continue to scan or type why they came in. This is the code I currently have that enters the date automatically after their code is scanned. What can I add to this to make the cursor move to Column C automatically?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = 2 To 100
If Cells(x, 1).Value <> "" And Cells(x, 2).Value = "" Then Cells(x, 2).Value = Date & " " & Time
Cells(x, 2).NumberFormat = "m/d/yy h:mm am/pm"


Next
Range("B:B").EntireColumn.AutoFit


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[amiller6229]

I am new to all this and learning as I go. I am a school nurse and developing a new check in system for when students come to see me. Students will be assigned a QR text code of their name on an index card and that will be their nurse pass. When they come to my office, they scan their card and it enters their name with the date and time they came into my office. I have a table set up that has columns for name, date and then columns for why they came and what I did for them. I currently have it set up to when they scan their QR code, their name is entered into column A and the date goes into Column B. I need for the cursor to jump to column C so I can continue to scan or type why they came in. This is the code I currently have that enters the date automatically after their code is scanned. What can I add to this to make the cursor move to Column C automatically?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = 2 To 100
If Cells(x, 1).Value <> "" And Cells(x, 2).Value = "" Then Cells(x, 2).Value = Date & " " & Time
Cells(x, 2).NumberFormat = "m/d/yy h:mm am/pm"


Next
Range("B:B").EntireColumn.AutoFit


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

I also added this code from another answered question, but it moves the cursor back to Column A and the next row down. I need it to move one column over in the next row.

Thank you!

 

[Jeffrey Mahoney]

Please try this. I created named ranges for the A and C Columns called QRCodeCol and ReasonCol

Book5
	A	B	C
1	QRCode	Date/Time	Reason
2	1447	3/6/2024 13:14	To visit
3
Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Count > 1 Then Exit Sub
  
  
  If Not Intersect(Range("QRCodeCol"), Target) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = Now()
    Target.Offset(0, 2).Select
    Application.EnableEvents = True
  End If
  
  If Not Intersect(Range("ReasonCol"), Target) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(1, -2).Select
    Application.EnableEvents = True
  End If
  

End Sub