verilerden herhangi biri aynıysa

[Erdinç FIRTINA]

Değerli üyeler,
Ekteki dosyamda açıkladığım her bir satırdaki birbirinden farklı 10 hücrede veriler yer almaktadır. Söz konusu verilerden herhangi birisi diğeri ile aynıysa "YANLIŞ" uyarısını vermesini istiyorum. Bunu, her satır için ayrı ayrı olmak üzere =Eğer(yada( fonksiyonu ile yapınca hücre sayısı fazla geliyor ve sonuç vermiyor. Bu işlem için makro kodları yapılabilir mi? Yardımlarınız için şimdiden teşekkürler!!!!

 

[Orion1]

Sİze ktf yaptım.Yine formül kullanabileceksiniz.
Dosyanız ekte.

Function aynisimi(alan As Range)
Dim hcr As Range
For Each hcr In alan
    If WorksheetFunction.CountIf(alan, hcr.Value) > 1 Then
        aynisimi = "YANLIŞ"
        Exit Function
    End If
Next
aynisimi = ""
End Function