View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] nasirmuneer@gmail.com is offline
external usenet poster
 
Posts: 1
Default comparing rows of two workbooks

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.