HI! Mike, tks for your help, but I think I wrote someting wrong (english isnt
my first language) and it make you do a macro for another thing.. fortunataly
it will work for another job... but what I really want is:

A B C D
3 31046 31046 Sim
3 31046 Sim
3 31046 não
3 31046 Sim
3 31046 Sim
3 31056 31056 Não
3 31056 Não
3 31056 Não

I need to check if the datas on the column D are equals, according to the
number on the column B. Eg.: for the number 31046 (5 lines) the datas on the
columns D are differents (there are 4 "Sim" and 1 "no"). If all the datas on
this example were "Sim" or "Não" the macro should answer on the column E =
yes and if not (like in this case), should answer "no".

best regards,
"Mike" escreveu:

Sub changeValues()
Const COLUMNB As String = "B"
Const COLUMND As String = "D"
Const COLUMNRESULTS = "E"

Dim iStartingRow As Long
Dim iLastRow As Long

iLastRow = Range(COLUMNB & Rows.Count).End(xlUp).Row
For iStartingRow = 2 To iLastRow
If Range(COLUMNB & iStartingRow).Value = Range(COLUMND &
iStartingRow).Value Then
Range(COLUMNRESULTS & iStartingRow).Value = "YES"
Else
Range(COLUMNRESULTS & iStartingRow).Value = "NO"
End If
Next
End Sub

"Dani Lima" wrote:

I need to compare a group of lines. On my worksheet there are lines with the
same number or order (colum B) (numericaly classified) and another colum (D)
with same datas, I need to compare if the number of the order are the same
and if the data on the columm d at the same line are the same, if so, the
macre should answer 'yes',if one of the datas on the columm d are different
the macro should answer 'no'.

Someone could help me?

regards, Dani