Hi guys,

Hope i can get some input on this. the scenarios is this:

sheet 1 column b
sheet 2 column a

for each row in sheet 2 col B compare with each row sheet1 col A. IF
row equal, then change color for the equal row in sheet 2 col A.

Thnx

On Jul 23, 9:30*am, SangelNet wrote:
Hi guys,

Hope i can get some input on this. the scenarios is this:

sheet 1 *column b
sheet 2 column a

for each row in sheet 2 col B compare with each row sheet1 col A. IF
row equal, then change color for the equal row in sheet 2 col A.

Thnx

"If desired, send your file to dguillett @gmail.com I will only look
if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results."

On 23/07/2010 15:30, SangelNet wrote:
Hi guys,

Hope i can get some input on this. the scenarios is this:

sheet 1 column b
sheet 2 column a

for each row in sheet 2 col B compare with each row sheet1 col A. IF
row equal, then change color for the equal row in sheet 2 col A.

Thnx

Hi SangelNet,


Sub CmPare()
Dim i As Long
Dim lastRow As Long
lastRow = Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row

For i = 1 To lastRow
If Sheets("Sheet1").Range("B" & i) = Sheets("Sheet2").Range("A" & i) Then
Sheets("Sheet2").Range("A" & i).Interior.ColorIndex = 3
End If
Next i

End Sub