Working code needs attention

[ipbr21054]

Morning all,
I have the working code supplied below.

How it works is i make a selection from the combobox & that person in question has its row highlighted & the cell in column A which is customers name is then selected.

What i would like to do now at this point is when i hit enter the userform opens & that customers entry is then shown.

The userform is called Database

If it helps when the userform opens the customers name is in the textbox called txtCustomer

Private Sub combobox1_Change()  Dim r As Range
  Set r = Range("A5", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible) _
    .Find(ComboBox1.Value)
  If Not r Is Nothing Then r.Select
  ComboBox1.ListIndex = -1
End Sub

Many thanks & have a nice Sunday.

 

[ipbr21054]

Hmmm,
Well maybe it will need to be my original request.
You you advise please the code for the following to work.
If a cell in column A is selected when i het enter show the userform which is called Database.
This is what i wanted at the start but got side tracked.

Not sure how to write it but something like.
If cell A "then range say 1-infinity" = vbKeyReturn Then Database.Show
Thanks

 

[ipbr21054]

I thought the following code would open my userform but it still drops down a row each time enter is pressed as opposed to opening my form ??

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

    If Range("A6:A200") = vbKeyReturn Then
    Database.Show
    End If
End Sub

 

[JLGWhiz]

I thought the following code would open my userform but it still drops down a row each time enter is pressed as opposed to opening my form ??

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

    If Range("A6:A200") = vbKeyReturn Then
    Database.Show
    End If
End Sub

I have no expetise in that area of coding. Sorry.
Regards, JLG