Move to another cell in same row when active cell is filled

[Vincent88]

Please help to see where the errors are if I want to move from B2 to D2 when B2 data is selected from a dropdown list. , so does other rows in B column in dynamic range.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Move Cursor to Column D after Row B data selected
    Dim b As String, Lr As Long
    If Target.Column = 2 Then
  If Not Intersect(Target, Range("B2:B" & Lr)) Is Nothing Then Exit Sub
   If Target.Count > 1 Then Exit Sub
   Application.EnableEvents = False
    b = Target.Value
   If b <> "" Then
      Range("D" & ActiveCell.Row).Select
   Else
      ActiveCell.Select
   End If
   Application.EnableEvents = True
 End Sub

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  5/30/2021  12:02:04 AM  EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
    If Target.Column = 2 And Target.Row > 1 Then
    Target.Offset(, 2).Select
End If

End Sub

 

[Vincent88]

Hi My Aswer Is This,
It doesn't work?

 

[My Aswer Is This]

Hi My Aswer Is This,
It doesn't work?

What does not work?
If you manually enter a value in column 2 then the script should select the cell in column D

What does the script do then?
Does it error out or what?

 

[My Aswer Is This]

I know nothing about Windows Mobile so maybe that is the problem.
I'm using Excel 2013

 

[Vincent88]

Hi My Aswer Is This,
There is no error. It just move down to next row.
I am using O365 or Office 2019

 

[My Aswer Is This]

Hi My Aswer Is This,
There is no error. It just move down to next row.

Well your original post said:
Move to another cell in same row when active cell is filled

That what you say the script does.

So what else do you want?

You also said:
I want to move from B2 to D2

 

[My Aswer Is This]

If you want to enter a value in column B and then Goto D
And then if you enter a value in D go to G and then: on and on you must be specific.

 

[Vincent88]

Hi My Aswser is This,
I just want the function applies to B cells except B1. Sorry !

 

[My Aswer Is This]

Hi My Aswser is This,
I just want the function applies to B cells except B1. Sorry !

That what my script does:
See Here:
If Target.Column = 2 And Target.Row > 1 Then

This means if you enter a value in column 2 and row number is greater then 1

The script runs selecting cell in column D same row