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

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)

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,614
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.
 

Watch MrExcel Video

Forum statistics

Threads
1,101,935
Messages
5,483,779
Members
407,410
Latest member
catherinejoy

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top