Display Error Message and Stop VBA Process when Text Not Found

Godlewskij

New Member
Joined
Jul 26, 2010
Messages
2
I've got an Excel tool I built to analyze reports. The tool works fine, but after it finishes deleting the info I'm not interested in, it occasionally ends up with no findings. This is good, but confusing to some others who may need to use my tool. What I would like to do is enter new VBA Code at a certain point that will search for the text "XYZ" in column A. If "XYZ" is found, then continue processing. However, if "XYZ" is not found, I want a message displayed "There are no XYZ's found in the report" and then have the VBA process stop at that point.
 

Some videos you may like

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
Dim Found As Range
Set Found = Columns("A").Find(what:="XYZ", LookIn:=xlValues, lookat:=xlWhole)
If Found Is Nothing Then
    MsgBox "XYZ not found", vbExclamation
    Exit Sub
End If
 

Godlewskij

New Member
Joined
Jul 26, 2010
Messages
2
VoG, Thanks. Worked like a charm. This is why I love the MrExcel website. Been using it for years and the two times I haven't been able to figure something out, someone if the forum has been able to help.

Thanks Again. Joe
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,505
Messages
5,511,704
Members
408,860
Latest member
RajaRavi

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top