Worksheet check macro sub-routine

DenniBrink

New Member
Joined
Jul 31, 2016
Messages
46
;) Greetings! I searching for assistance in writing a VBA macro that will check each cell in a range for the existence of a specific text string "Mismatch". If the text string exists a Msgbox "Mismatch Found!"; if not Msgbox "Worksheet Checks Good!" would appear.

Worksheet: CREW30
Range: B4: I65
 

Some videos you may like

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,762
Office Version
2013
Platform
Windows
Try this:
Code:
Sub Search_For_Mismatch()
Dim c As Range
    For Each c In Range("B4:I65")
        If c.Value = "Mismatch" Then MsgBox "Mismatch Found!": Exit Sub
    Next
    MsgBox "Worksheet Checks Good!"
    End Sub
 

mikerickson

MrExcel MVP
Joined
Jan 15, 2007
Messages
23,770
My Answer Is This's code should work.

Perhaps adding a sheet qualification
Code:
For Each c In Worksheets("CREW30").Range("B4:I65")
Also the test in that code is case sensitive.

"Does not work" is a bit vague. What does MyAnswer's code do in your workbook? Does it return nothing or does it return incorrect results or...
 
Last edited:

DenniBrink

New Member
Joined
Jul 31, 2016
Messages
46
My mistake! Sorry about that. The text string "MISMATCH" is case sensitive. The VBS script now works.
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,308
Messages
5,510,521
Members
408,794
Latest member
Eddie74

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