Satırda tekrar kontrolu

[haso_excel]

Merhaba arkadaşlar,

A1 den başlayarak K1 e kadar farklı tarihler içeren verilerim var. L1 e öyle bir formül yazmam gerekiyor ki. Eğer A1 ile K1 arasında tekrarlanan yada aynı veriler varsa tekrar var mesajı versin

 

[Orion1]

Aşağıdaki KTF'yi standart boş bir modüle yapıştırın.
Kullanışı;
=tekrarlar(A1:K1)

Function tekrarlar(aralik As Range)
Dim hcr As Range
For Each hcr In aralik
    If hcr.Value <> "" Then
        If WorksheetFunction.CountIf(aralik, hcr.Value) > 1 Then
            tekrarlar = hcr.Value & " isminde daha önceden kayıtlı veri var."
            Exit For
        End If
    End If
Next
End Function

 

[BG]

Sayın haso_excel

Merhaba arkadaşlar,

A1 den başlayarak K1 e kadar farklı tarihler içeren verilerim var. L1 e öyle bir formül yazmam gerekiyor ki. Eğer A1 ile K1 arasında tekrarlanan yada aynı veriler varsa tekrar var mesajı versin

Formül ile çözüm için Aternatif olsun;
L1 hücresine;

=EĞER(EĞERSAY($A$1:$K$1;A1)=1;"tekrarlanan yok";"tekrarlanan var")

 

[haso_excel]

Üstadın teşekkür ederim ilginiz için, ben dosyadaki gibi birşey yapmaya çalıştım. Aslında sorumda da yanlış yazmışım tekrarlanını dışında bir şey varsa bana mesaj versin.

 

[haso_excel]

Function tekrarlar(aralik As Range)
Dim hcr As Range
For Each hcr In aralik
If hcr.Value <> "" Then
If WorksheetFunction.Count(aralik) > WorksheetFunction.CountIf(aralik, hcr.Value) Then
tekrarlar = " değişiklik var."

Exit For
End If
End If
Next
End Function

Sizin kodun üzerinde oynayarak işeme yarar hale getirdim. Teşekkürler

 

[haso_excel]

Merhaba arkadaşlar,

Belli bir aralıkdaki aynısından birden fazla olan verilerin sayısını nasıl bulurum. Dosyam ekte