Enter key trigger to command button on worksheet

[desertman]

Hi guys,

I'm very new to this and to visual basics. I have very limited experience in programming. I need some help. I created a search marco. It has a text box for the user to type in what they are looking for from a crazy long list located on another sheet and a command button to begin the search. Everything works fines except I cannot press the Enter key to get it to work. Is there any way around this? I only added the code to the command box.

Here is the code I made after many many many months:

Private Sub CommandButton1_Click()
Dim FoundCell As Range
Dim LastCell As Range
Dim FirstAddr As String
Dim sht As Worksheet
Dim Vu
Dim intS As Integer
Dim rngC As Range
Dim strToFind As String, FirstAddress As String
Dim wSht As Worksheet
Dim myshape As Shape
Sheets("Search Results").Select
Range("a13:F26600").Select

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.clearcontents
Selection.Interior.ColorIndex = 2
For Each myshape In ActiveSheet.Shapes

object.
If myshape.Type = 17 Then myshape.Delete


Next myshape

Range("B13").Select

On Error Resume Next
Vu = SearchBox.Value
Application.ScreenUpdating = False

intS = 13
'This step assumes that you have a worksheet named
'Search Results.
Set sht = Worksheets("Search Results")
strToFind = Vu
'Change this range to suit your own needs.
With Sheets("ibccodes").Range("A1:F8000")
Set rngC = .Find(What:=strToFind, LookAt:=xlPart)
If Not rngC Is Nothing Then
FirstAddress = rngC.Address
Do
Range("D13").Select
rngC.EntireRow.Copy sht.Cells(intS, 1)
intS = intS + 2
Set rngC = .FindNext(rngC)
Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress
End If
End With
If Vu = "" Then
MsgBox "No Value Entered"
Exit Sub
End If

Sheets("Search Results").Select
End Sub

Any help is appreciated.

 

[ChrisM]

I think you're saying you want to be able to push enter in the textbox and have it run your search, if so, then do this:

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

    If KeyCode = vbKeyReturn Then
        CommandButton1_Click
    End If

End Sub

 

[desertman]

Thanks for the reply Chris, but unfortunatley it does not work. I remember reading somewhere that I had to put the number 13 which represents the Enter key. is that correct?

 

[desertman]

okay it works, but for some reason it keeps crashing. Any way around this little problem?

 

[ChrisM]

You're not giving much information to know what is wrong, it works but keeps crashing doesn't tell much.

All my code does is launch your command button any time you push enter, is that crashing?if not, then it is your original code, but you said that was working ok...

 

[desertman]

What i meant by crashing is that excel kept shutting down and it gives me a message wanting to send an error report. However, everything is all good now. I did some more research and apparently someone had a similar problem as mine. instead of KeyDown he entered KeyUp. Works wonderfully. Thanks for you help. Couldn't have gotten this far without ya