Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Find all cells that do not contain specific text

Posted on 2011-09-22
3
207 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 500 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
How to quickly and accurately populate Word documents with Excel data, charts and images (including Automated Bookmark generation) David Miller (dlmille) Synopsis In this article you’ll learn how to use ExcelToWord! to copy data,charts, shapes …
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

856 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