Go Back   Tech Support Forum > Microsoft Support > Microsoft Office support

Excel VBA help - find cell content and highlight

This is a discussion on Excel VBA help - find cell content and highlight within the Microsoft Office support forums, part of the Tech Support Forum category. Hi, I want to try and create a macro that will start with the value in the first cell of


Closed Thread
 
Thread Tools Search this Thread
Old 09-10-2007, 08:01 AM   #1
BWA
Registered Member
 
Join Date: Jun 2005
Posts: 8
OS: Windows 2000



Hi,

I want to try and create a macro that will start with the value in the first cell of one column and find it another column and highlight both itself and the other value and then move onto the next value in the cell below and repeat the same process until it reaches the end of the column.

This would result in leaving unhighlighted cells as new items as it were that did not exist before.

If anyone can help or give me a few pointers, I would be very grateful.

Cheers,

B.

__________________
BWA is offline  
Old 09-10-2007, 02:02 PM   #2
Team Manager, Articles
Analyst
Rangemaster, TSF Academy
 
Glaswegian's Avatar
 
Join Date: Sep 2005
Location: Glasgow
Posts: 38,508
OS: Win XP Pro SP3 / Win 7 Pro

My System


Hi

Various ways to do this. Here's some code that I use (or modify) for a similar kind of thing. Basically, it matches the first cell in the first range against each cell in the second range and so on. If there is a match, then it turns the cell in the second range green. If there is no match, then it turns the cell in the first range red. The ranges do not have to be of equal size.
Code:
Sub FindDuplicates()
Dim Rng1 As Range
Dim Rng2 As Range
Dim bMatch As Boolean
Dim origRng As Range
Dim compRng As Range

On Error Resume Next
Set origRng = Application.InputBox("Choose the first range", "Range 1", Type:=8)
    If origRng Is Nothing Then Exit Sub
Set compRng = Application.InputBox("Choose the second range", "Range 2", Type:=8)
    
    For Each Rng1 In origRng
        bMatch = False
        For Each Rng2 In compRng
            If Rng1 = Rng2 Then
                bMatch = True
                Rng2.Interior.ColorIndex = 4
            End If
        Next Rng2
            If bMatch = False Then
                Rng1.Interior.ColorIndex = 3
            End If
    Next Rng1
End Sub
Let me know if this helps.
__________________
Iain - Defender of the Haggis and all things Scottish.
I don't help by PM - post in the Forums.



PC Safety & Security::PC running a bit slow?::Photographers Corner
Glaswegian is offline  
Closed Thread

Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is on
Smilies are on
[IMG] code is on
HTML code is Off
Trackbacks are Off
Pingbacks are Off
Refbacks are Off


Post a Question


» Site Navigation
 > FAQ
  > 10.0.0.2


All times are GMT -7. The time now is 01:27 PM.


Copyright 2001 - 2014, Tech Support Forum

Windows 7 - Windows XP - Windows Vista - Trojan Removal - Spyware Removal - Virus Removal - Networking - Security - Top Web Hosts