Textbox focus change to next text box when enter pressed

[jason231774]

Hi,
I am making a dashboard having multiple text-box's on dashboard (not user-form). I have set multiple codes to format and to fill values in cells in other sheet. I want my cursor to move to next text box when enter is pressed to fill value in another text-box

the name of 1st text box is SA and 2nd text box name is DP
code i am using to fill values and format is :-

Private sub SA_lostfocus
ActiveSheet.SA.value = format(ActiveSheet.SA.value, "$##,###.00")
worksheets("sheet2").range("B2").value = ActiveSheet.SA
End sub

so after filling value in SA text box I want to move to next text-box DP with enter key so i don't have to use mouse to fill value in DP text box
see the attached pic for reference

If anyone could help me with the code, it will be really helpful

Also, I fave tried to set focus at key-code 13 with keydown but it shows error saying object doesn't support this property

 

[DanteAmor]

Hi and welcome to MrExcel!

Try this:

Private Sub SA_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    DP.Activate
  End If
End Sub

 

[jason231774]

It worked.... Thanks a ton. I have been trying so hard to make it work and finally it worked with your support. Thank you once again
This platform is really one of best to learn with practical situations.