Text box and Enter Keys

[gjadcock]

I have been looking through the archives and cannot seem to get any of the example code working.

I have a text box which the user completes and a button which takes the value in the text box and passes this to a function that filters a list.

All I want to do is to do the same thing if the user presses either enter key

Thanks

 

[Juan Pablo González]

Set the Default property of the button to TRUE.

 

[Andrew Poulsom]

If your TextBox is from the Control Toolbox, something like this should work:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Range("A1").Select
'       Your code goes here
        MsgBox "Finished"
    End If
End Sub

 

[gjadcock]

Andrew,

Works great, thanks.

As always, there is something else. If the text box search is invalid I have a message (vbExclamation) which tells me so, however if I now press enter to remove the message box and re-enter the search, I now re-submit the extg query. So I suppose I need to change the focus to the error message?? How do I do this??

Regards

 

[Andrew Poulsom]

How did you do it when you had a CommandButton?