I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1 and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs

the entire contents or the content of specific cells? (all 256 cells in
each row?)

You say similar in the subject and the same in the body.

--
Regards,
Tom Ogilvy

"al007" wrote in message
oups.com...

I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1 and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs

Not necessarily all 256 cells - you can take Column A to Z( i WILL
MODIFY ACCORDINGLY) - actual the reason behind that is that I want to
check that the data in all sheets are under the same header so that I
can sum across sheet to get a total.Thxs a lot for your help - waiting
impatiently for your suggestion. I'm sure you'll enrich my excel
again...

THXS tHXS


Tom Ogilvy wrote:
the entire contents or the content of specific cells? (all 256 cells in
each row?)

You say similar in the subject and the same in the body.

--
Regards,
Tom Ogilvy

"al007" wrote in message
oups.com...

I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1 and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs

Sub CheckRow2()
Dim v, v1
Dim i As Long, k As Long, bMisMatch As Boolean
Dim rng As Range, cell As Range, sStr As String

v = Array("Sheet2", "Sheet4", "Sheet6", "Sheet9")

v1 = Worksheets("Sheet1").Range("A2:IV2")
For i = LBound(v) To UBound(v)
Set rng = Worksheets(v(i)).Rows(2).Cells
k = 0
bMisMatch = False
For Each cell In rng
k = k + 1
If cell.Value < v1(1, k) Then
bMisMatch = True
Exit For
End If
Next
If bMisMatch Then
sStr = sStr & v(i) & ", "

End If
Next
If Len(sStr) 3 Then
MsgBox "Sheets not matching: " & vbNewLine & _
Left(sStr, Len(sStr) - 2)
Else
MsgBox "Good to go"
End If
End Sub

--
Regards,
Tom Ogilvy


"al007" wrote in message
oups.com...
Not necessarily all 256 cells - you can take Column A to Z( i WILL
MODIFY ACCORDINGLY) - actual the reason behind that is that I want to
check that the data in all sheets are under the same header so that I
can sum across sheet to get a total.Thxs a lot for your help - waiting
impatiently for your suggestion. I'm sure you'll enrich my excel
again...

THXS tHXS


Tom Ogilvy wrote:
the entire contents or the content of specific cells? (all 256 cells
in
each row?)

You say similar in the subject and the same in the body.

--
Regards,
Tom Ogilvy

"al007" wrote in message
oups.com...

I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1
and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs

thxs a lot!!!
(1)How can I amend it to check column B - From row2 to row 20?? - if
it's not too much asking.

& In the row macro - (2) how to replace the "variables" by a user
message box i.e
"Sheet1"
Range("A2:IV2")
"Sheet2", "Sheet4", "Sheet6", "Sheet9"
(as I would like to turn it into a standard macro which I can use in
other workbooks with different sheetname & row.


Many Many Thxs for your help - you're the best



Tom Ogilvy wrote:
Sub CheckRow2()
Dim v, v1
Dim i As Long, k As Long, bMisMatch As Boolean
Dim rng As Range, cell As Range, sStr As String

v = Array("Sheet2", "Sheet4", "Sheet6", "Sheet9")

v1 = Worksheets("Sheet1").Range("A2:IV2")
For i = LBound(v) To UBound(v)
Set rng = Worksheets(v(i)).Rows(2).Cells
k = 0
bMisMatch = False
For Each cell In rng
k = k + 1
If cell.Value < v1(1, k) Then
bMisMatch = True
Exit For
End If
Next
If bMisMatch Then
sStr = sStr & v(i) & ", "

End If
Next
If Len(sStr) 3 Then
MsgBox "Sheets not matching: " & vbNewLine & _
Left(sStr, Len(sStr) - 2)
Else
MsgBox "Good to go"
End If
End Sub

--
Regards,
Tom Ogilvy


"al007" wrote in message
oups.com...
Not necessarily all 256 cells - you can take Column A to Z( i WILL
MODIFY ACCORDINGLY) - actual the reason behind that is that I want to
check that the data in all sheets are under the same header so that I
can sum across sheet to get a total.Thxs a lot for your help - waiting
impatiently for your suggestion. I'm sure you'll enrich my excel
again...

THXS tHXS


Tom Ogilvy wrote:
the entire contents or the content of specific cells? (all 256 cells
in
each row?)

You say similar in the subject and the same in the body.

--
Regards,
Tom Ogilvy

"al007" wrote in message
oups.com...

I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1
and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs