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]

And you said:
There is no error. It just move down to next row.

It does not move down to next row
It moves to column D

 

[Vincent88]

Hi My Aswer is This,
It works now. Thanks

 

[My Aswer Is This]

Hi My Aswer is This,
It works now. Thanks

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[Vincent88]

Hi,
How the code should be if I want the below function applies to the cells in a dynamic range except the header( row 1 ) and the last column.

Private Sub Worksheet_Change(ByVal Target As Range)

'Set Cursor Direction to Right in Dynamic Range
Dim LastColumn As Long, LastRow As Long

LastRow = Range("A2").End(xlDown).Row
LastColumn = Range("A2").CurrentRegion.Columns.Count

If Target.Cells.CountLarge > 4 or Target.Row =1 Then Exit Sub
   If  Range("A2", Cells(LastRow, LastColumn)) Then

     Application.MoveAfterReturnDirection = xlToRight
     Application.MoveAfterReturn = True

End If

End Sub

 

[My Aswer Is This]

Hi,
How the code should be if I want the below function applies to the cells in a dynamic range except the header( row 1 ) and the last column.

Private Sub Worksheet_Change(ByVal Target As Range)

'Set Cursor Direction to Right in Dynamic Range
Dim LastColumn As Long, LastRow As Long

LastRow = Range("A2").End(xlDown).Row
LastColumn = Range("A2").CurrentRegion.Columns.Count

If Target.Cells.CountLarge > 4 or Target.Row =1 Then Exit Sub
   If  Range("A2", Cells(LastRow, LastColumn)) Then

     Application.MoveAfterReturnDirection = xlToRight
     Application.MoveAfterReturn = True

End If

End Sub

So I assume your wanting to use this script for some reason.
I thought you said my script did what you wanted.
I do not understand what your script is trying to do.

 

[Vincent88]

So I assume your wanting to use this script for some reason.
I thought you said my script did what you wanted.
I do not understand what your script is trying to do.

Hi, This is another code that I need assistance. What I want is that the cursor movement to the right when working inside the dynamic range. Is it possible. ?

 

[My Aswer Is This]

Hi, This is another code that I need assistance. What I want is that the cursor movement to the right when working inside the dynamic range. Is it possible. ?

My previous script selects the cell to the right in column D
Now you want the cursor means the arrow icon to move also.
If that is what you want I do not know how to do that.