Check if first word in each row of range matches another range

[tonywatsonhelp]

Hi Everyone,

I have two ranges
Sheets("Data").range("A1:A36")
and
Sheets("RawData").range("D1:D36")


Now what I want to do is check if the first word or each row in Sheets("Data").range("A1:A36") matches the first word of the same row in Sheets("RawData").range("D1:D36")

Now if All words match then

msgbox "All good"

if not then

message box

"There are some unmatch errors"

please help if you can

Thanks
Tony

 

[sykes]

NB test on a COPY of your work, first!

Sub comp()

Dim rng_dta As Worksheet
Dim rng_rwdta As Worksheet
Dim intgr As Integer

Set rng_dta = Sheets("Data")
Set rng_rwdta = Sheets("RawData")

intgr = 1

        Do Until intgr = 37
            If rng_dta.Range("A" & intgr) <> rng_rwdta.Range("A" & intgr) Then GoTo failmess
            intgr = intgr + 1
           
        Loop
    Pass = MsgBox("All good", 64, "Match")
Exit Sub
failmess: Fail = MsgBox("One or more cells don't match blah blah", 64, "Mismatch")
End Sub

 

[tonywatsonhelp]

This is great, thanks very much Sykes

 

[sykes]

Pleasure, and thanks for the feedback.

The only thing I've noticed is that you originally asked for the test to be on the FIRST WORD in each row, and my suggestion only tests the whole cell's value.
This means that my suggestion will throw the "error" message if a first word matches, but a second word is different. Do you actually need this, or is my original solution sufficient?