Vlookup What if not Found

[ssjody]

How do I make this code not error if the value in cboCarPartModel is
not found in my wo worksheet? It works fine if the value is found but
errors if not found. Jody

Private Sub cboCarPartModel_Change()
Dim wo As Range
Set wo = Worksheets("cpModels").Range("cpModelNameAndNumbers")
If Me.cboCarPartModel.Value > "" Then
Label3.Caption = Application.VLookup(cboCarPartModel.Value, wo, 2,
False)
End If
End Sub

[Norman Jones]

Hi SS,

One way:

Private Sub cboCarPartModel_Change()
Dim wo As Range
Set wo = Worksheets("cpModels").Range("cpModelNameAndNumbers")
If Me.cboCarPartModel.Value > "" Then
On Error Resume Next
Label3.Caption = _
Application.VLookup(cboCarPartModel.Value, wo, 2, False)
If Err.Number <> 0 Then MsgBox "Not found!"
On Error GoTo 0
End If
End Sub


---
Regards,
Norman



"ssjody" <jbprather@fuse.net> wrote in message
news:1135428230.686025.279090@g49g2000cwa.googlegroups.com...
> How do I make this code not error if the value in cboCarPartModel is
> not found in my wo worksheet? It works fine if the value is found but
> errors if not found. Jody
>
> Private Sub cboCarPartModel_Change()
> Dim wo As Range
> Set wo = Worksheets("cpModels").Range("cpModelNameAndNumbers")
> If Me.cboCarPartModel.Value > "" Then
> Label3.Caption = Application.VLookup(cboCarPartModel.Value, wo, 2,
> False)
> End If
> End Sub
>

[ssjody]

Thanks Norman! Works Great!