Not Sure What To Do

[NeedsHelp2]

I'm using the code below which works fine if the user selects an item in the combo box. The problem is if they mistype something, it stops the whole procedure. I know the solution is something to do with trapping errors but I don't know how set it up.


Label35.Caption = Application.VLookup(cmbN.Value, Range("SiteName"), 2, False)

 

[NeedsHelp2]

Sorry about this but am still struggling to get the correct results. Have reduced the number of text boxes to one so that it can be easier to follow.

This part gives the expected result.

If txtQ = Y and cmbG & cmbL are in the lookup the correct answer is given.

If txtQ = "" and cmbG & cmbL are in the lookup the correct answer is given.

This part should make the label read "Not Found"

If txtQ = Y and cmbG & cmbL are not in the lookup then the label does not change to "Not Found"

If txtQ = "" and cmbG & cmbL are not in the lookup then the label does not change to "Not Found"

It's the final part that seems to go wrong. I've shown the code below:

If txtQ.Text = "Y" Then
On Error Resume Next
Label37.Caption = Application.VLookup(cmbG.Value & cmbL.Value, Range("finance"), 2, False)
If Err <> 0 Then
Err.Clear
End If
ElseIf txtQ.Text = "" Then
On Error Resume Next
Label37.Caption = Application.VLookup(cmbG.Value & cmbL.Value, Range("finance"), 4, False)
If Err <> 0 Then
Err.Clear
Label37.Caption = "Not Found"
End If
End If
On Error GoTo 0

 

[Andrew Poulsom]

This worked for me:

Private Sub CommandButton1_Click()
    On Error Resume Next
    If txtQ.Text = "Y" Then
        Label37.Caption = Application.VLookup(cmbG.Value & cmbL.Value, Range("finance"), 2, False)
        If Err <> 0 Then
            Err.Clear
            Label37.Caption = "Not Found"
        End If
    ElseIf txtQ.Text = "" Then
        Label37.Caption = Application.VLookup(cmbG.Value & cmbL.Value, Range("finance"), 4, False)
        If Err <> 0 Then
            Err.Clear
            Label37.Caption = "Not Found"
        End If
    End If
    On Error GoTo 0
End Sub