MsgBox Help 1

[wiginprov]

I have a macro that searches a database for a tax id number. I need a message box that reads "Tax id number not found" if the tax id number is not in the database. How do I do that? Here is my syntax:


Dim strMessage As String
strMessage = Application.InputBox("ENTER TAX I.D. NUMBER (Example: ###-##-####)", "SEARCH FOR TAX ID#&quot
Let ActiveSheet.Cells(4, 22) = strMessage

Range("A7:A10030&quot.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("V3:V4&quot, Unique:=False


Many thanks.

 

[ilses]

Hi wiginprov,

The following seems to work. As you'll notice I tested on a small range:

Sub test()
Dim strMessage As String
Dim rngDataRange As Range

strMessage = Application.InputBox("Enter Integer)", "Search for Integer&quot

Set rngDataRange = Application.ActiveSheet.Range("A5:A9&quot

With rngDataRange
Set c = .Find(What:=strMessage)
If Not c Is Nothing Then
ActiveSheet.Range("A2&quot = strMessage
rngDataRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:A2&quot, Unique:=False
Else
MsgBox "Sorry, " & strMessage & " not found"
End If
End With

End Sub


Hope you like it.

IS

 

[wiginprov]

Awesome. Thank you. Wow!