Speak if duplicate value is found in 3 cells

Easy one but I need some help. Got the following code to check for a duplicate on 3 cells in 1 row only for a duplicate value but its not working. In the example 4 0 4 have a duplicate. It should also check for 4 4 0 so on all 3 cells Any help appreciated and rep given for a sollution

Thanks

Please Login or Register  to view this content.

.

Please Login or Register  to view this content.

You had 3 to Lastrow .... should have been 2 to Lastrow

Originally Posted by Logit

.

Please Login or Register  to view this content.

You had 3 to Lastrow .... should have been 2 to Lastrow

Thank you fixed that but its not working still......changed the 404 to 410 so no duplicate but if I run macro it speaks.....I want the macro to only speak on a duplicate value.Hope someone can assist

Please Login or Register  to view this content.

.
Using your original macro, this edit will work :

Please Login or Register  to view this content.

Hey Winon !

.
You right !

Winon and Logit some fantastic coding skills thank you very much I am testing quickly -Rep for you both.......testing and will come close the thread thank you GURUS

P.S I only want to check for a duplicate on that one line only....well spotted Winon

Originally Posted by Winon

Hello JohnGreen2,

Please try:

Please Login or Register  to view this content.

Regards.

This one works PERFECTLY as only on 1 line Thank you Winon.

.
You are welcome. For one row (line), Post #5 will work.

.
Winon

Have you been taking your medication like you are supposed to ?

Another way :

PHP Code: 

Sub Demo1()
    For R& = 2 To Split(Sheet1.UsedRange.Address, "$")(4)
        If Sheet1.Evaluate(Replace("COUNTIF(O#:Q#,O#)+COUNTIF(O#:Q#,P#)", "#", R)) > 2 Then _
           Application.Speech.Speak "Duplicate value in row #" & R
    Next
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !