Run Macro On Keystroke "ENTER" in Textbox 1

[PugnaxX]

Hi All,

I've been developing worksheet that initially has all data hidden. The user enters search criteria into a textbox (inserted onto the worksheet from Control Toolbox) and then has to hit the Search button (inserted from Forms Toolbar) to run the search Macro. If you want further background see this thread:

http://www.tek-tips.com/viewthread.cfm?qid=1392843&page=1

I am trying to have it so that after entering text into the textbox, the user can simply hit ENTER to run the macro, so they won't have to use the mouse and click the button if they do not want to. I've been looking around and it seems the only info I can find is how to do this on a form not on a worksheet.

Any Ideas?

Thanks!

PugnaxX

 

[bdmangum]

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then 'Enter key is 13
    RunMacroHere
End If

End Sub

Should do the job.

BD

 

[bdmangum]

Instead of the KeyUp, you could also use the KeyDown and KeyPress events.

 

[PugnaxX]

THANKS bdmangum!!!!!!

That did do the job, it works great!

-PugnaxX