Placing of cursor is wrong

[vishwajeet_chakravorty]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range
Dim taborder As Variant
Dim i As Integer
If OldCell Is Nothing Then
Set OldCell = Range("E5")

End If
taborder = Array("E5", "E7", "E9", "E13", "E15", "E17", "E19", "E21", "E23", "E25", "E27", "E29", "E31", "E33", "E35", _
"J5", "J7", "J9", "J11", "J13", "J15", "J17", "J19", "J21", "J23", "J25", "J27", "J29", "J31", "J33", "J35")
Application.EnableEvents = False
On Error Resume Next
i = WorksheetFunction.Match(Target.Address(0, 0), taborder, False)
If Err = 0 Then
Set OldCell = ActiveCell
Application.EnableEvents = True
Exit Sub
Else
Err.Clear
End If
On Error GoTo 0
i = WorksheetFunction.Match(OldCell.Address(0, 0), taborder, False)
If i > UBound(taborder) Then
Range(taborder(0)).Select
Else
Range(taborder(i)).Select
End If
Set OldCell = ActiveCell
Application.EnableEvents = True
End Sub
I have written the taborder in a worksheet but acording to this the cursor should go to E5 in the begining but it goes to E7 when I press the enter. What is wrong in this code?

 

[Peter_SSs]

That is most likely because the first element in your array ("E5") is taborder(0) not taborder(1)

Using "E5" as an example, Match will return a value of 1 when searching the taborder array, but taborder(1) does not return "E5", unless you have the code I describe below.

Try adding the blue line where shown

Option Base 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

I haven't checked the rest of your code and the above change might necessitate other changes in your code.

 

[vishwajeet_chakravorty]

Yes now it is coming to E5 but the cursor getting fixed in E5 it is not going anywhere. Now what to do?

 

[Peter_SSs]

Yes now it is coming to E5 but the cursor getting fixed in E5 it is not going anywhere. Now what to do?

As I mentioned before:

I haven't checked the rest of your code and the above change might necessitate other changes in your code.

I am about to sign off for the night but you can put a BreakPoint in your code near the top of the code then when you move your cursor, step through the code a line at a time with F8 and you may get an idea of what is going wrong.