G
Guest
I have a macro that I use for comparing columns in two different worksheets.
The worksheets are identical in stucture ie there may be numbers in cells
that differ but all rows and columns look the same. I want to check a certain
column starting at the cell "b6". therefore i decalre at the top of the
module:
option explicit
Dim tickerCell As Range
......
I then want to do the comparison:
Private Sub compareRatings()
Dim i As Long
Set tickerCell = Range("b6")
i = i + 1
Do Until IsEmpty(tickerCell.Offset(i, 0))
If Sheets(i - 1).Range(tickerCell).Offset(i, 0) <>
Sheets(i).Range(tickerCell).Offset(i, 0) Then
MsgBox "diff"
End If
i = i + 1
Loop
End Sub
there si something wrong here with the usage of the tickCell but I do not
know how to write it. please help me! any help appreciated! thanks alot in
advance!
The worksheets are identical in stucture ie there may be numbers in cells
that differ but all rows and columns look the same. I want to check a certain
column starting at the cell "b6". therefore i decalre at the top of the
module:
option explicit
Dim tickerCell As Range
......
I then want to do the comparison:
Private Sub compareRatings()
Dim i As Long
Set tickerCell = Range("b6")
i = i + 1
Do Until IsEmpty(tickerCell.Offset(i, 0))
If Sheets(i - 1).Range(tickerCell).Offset(i, 0) <>
Sheets(i).Range(tickerCell).Offset(i, 0) Then
MsgBox "diff"
End If
i = i + 1
Loop
End Sub
there si something wrong here with the usage of the tickCell but I do not
know how to write it. please help me! any help appreciated! thanks alot in
advance!