Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Find all cells that do not contain specific text

Posted on 2011-09-22
3
Medium Priority
?
213 Views
Last Modified: 2012-05-12
I have a column of data which I need to get the cell address of if it does not contain specific characters in the first 4 characters in the contents.

For example I want to find all cells that does not contain one of the following as the first four characters: {AAA, {DDD, {SSS, {XYZ

Sample data could look like this:

These are ok since they match the criteria - I do not want to find them
{AAA,ABC,CCC,""}  
{SSS,ABC,CCC,""}  
{XYZ,"","",""}  

I want to find these cells since the first 4 characters do not match any of the values I am looking for
{ABC,ABC,CCC,""}  
{ABC,"",AAA,""}  

When I find those cells I want to get the cell information (row) as well as color the cell with red.

I know I can loop through each cell in the column, however, that is pretty slow.

In this example (
Range("A1:D500").SpecialCells(xlCellTypeBlanks) = "Blank"

Open in new window

) I can find blank cells very quickly. However I do not know how to translate that code into something that will achieve the requirement I have.

There may be no other way than to loop through each cell - if so that is what I will do.
0
Comment
Question by:ckelsoe
  • 2
3 Comments
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 36581493
You could try something like this. Only takes a few seconds even on an entire column of 1m+ rows.
0
 
LVL 85

Accepted Solution

by:
Rory Archibald earned 2000 total points
ID: 36581503
Helps if I add the code...
Sub highlights()
   Dim lngLastRow        As Long
   Dim i                 As Long
   Dim strRng            As String
   Dim varData
   Dim strColumn         As String

   ' change to match your column
   strColumn = "A"

   lngLastRow = Cells(Rows.Count, strColumn).End(xlUp).Row

   varData = Range(Cells(1, strColumn), Cells(lngLastRow, strColumn))

   Application.ScreenUpdating = False

   For i = LBound(varData, 1) To UBound(varData, 1)     'change 4 to whatever you want for start row
      'In the next line, change >3 to whatever you like, such as ="Ckid" or
      'whatever string you want, or to =vbnullstring if you want to count/mark blanks
      Select Case Left$(UCase$(varData(i, 1)), 4)
         Case "{AAA", "{DDD", "{SSS", "{XYZ"
            ' do nothing
         Case Else
            strRng = strRng & "," & strColumn & i
            If Len(strRng) > 245 Then
               Range(Right(strRng, Len(strRng) - 1)).Interior.Color = vbRed
               strRng = vbNullString
            End If
      End Select
   Next i
   Range(Right(strRng, Len(strRng) - 1)).Interior.Color = vbRed
   
   Application.ScreenUpdating = True
End Sub

Open in new window


:)
0
 

Author Closing Comment

by:ckelsoe
ID: 36581964
Your code worked perfectly with some adaptions to my sheet. I did not think of using the select case to help solve this problem. Thanks very much.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

581 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question