View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default comparing rows of two workbooks

Nope.

You could loop through each cell in the row.

Or you could concatenate the values in each cell in the row into one giant
string and compare that???

wrote:

I am trying to compare two workbooks with respect to rows. Is there a
way of grabbing a whole row ? I am thinking of outer loop grabbing a
row from one workbook and then inner loop for comparing it with the
rows of the other workbook. I have tried different objects like rows,
entire row, row difference etc but no success. Can I get some help
here?
My code is:
Sub CompareBooks()

Dim iRow As Long
Dim iCol As Long
Dim LastRow As Long
Dim LastCol As Long

Dim compareOne As String
Dim compareTwo As String
Dim compareOneSheet As String
Dim compareTwoSheet As String

compareOne = "first.csv"
compareTwo = "second.csv"
compareOneSheet = "firstSheet"
compareTwoSheet = "secondSheet"

Dim first As Range
Dim second As Range

For Each second In
Workbooks(compareTwo).Worksheets(compareTwoSheet). rows //or range

For Each first In
Workbooks(compareOne).Worksheets(compareOneSheet). rows

If second.Row = first.Row Then


Workbooks(compareOne).Worksheets(compareTwoSheet). Cells(rows, 8).Value
= "match found"

Workbooks(compareOne).Worksheets(compareTwoSheet). Cells(rows,
8).Interior.ColorIndex = 44
Exit For
End If

Next

Next

End Sub

Any help will be greatly appreciated,
Thanks.


--

Dave Peterson