Tekrar Etmeyen Değerlerin Başka bir hücreye yazılması

[death200]

Selamun aleyküm üstadlarım abilerim. Benim bz4 cc4 arasındaki verilerimde bir çok tekrar eden var şöyle örnek vereyim 1 1 3 3 4 bu şekilde mesela burada tekrarı olmayan tek sayı 4 bu 4 ü dm4 e yazsın yada 5 5 3 0 1 ise burada tekrar etmeyen 3 0 1 i dm4 hücresine yazsın istiyorum. Yardımlarınızı bekliyorum şimdiden saolun.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub tekraretmeyen()
[DM4].ClearContents
For i = 78 To 81
    If Cells(4, i) <> "" Then
        If WorksheetFunction.CountIf([BZ4:CC4], Cells(4, i)) = 1 Then
            If [DM4] = "" Then
                [DM4] = Cells(4, i)
            Else
                [DM4] = [DM4] & " " & Cells(4, i)
            End If
        End If
    End If
Next
End Sub

 

[death200]

Hocam ben başlangıç seviyesindeyim bunun normal hücreye yazılan kodla yapılmasını sağlayabilir misiniz acaba?

 

[death200]

varmı hocalarım yardım edebilecek

 

[Hepgel]

Merhaba @death200
Deneyiniz.
Anladığım kadarıyla veriler BZ4-CD4 arasında. Veriler bundan ibaretse BD4 hücresine uygulanacak formül aşağıdaki gibidir.

=KIRP(EĞER(EĞERSAY($BZ$4:$CD$4;BZ4)=1;BZ4 &" ";"")&EĞER(EĞERSAY($BZ$4:$CD$4;CA4)=1;CA4 &" ";"")&EĞER(EĞERSAY($BZ$4:$CD$4;CB4)=1;CB4 &" ";"")&EĞER(EĞERSAY($BZ$4:$CD$4;CC4)=1;CC4 &" ";"")&EĞER(EĞERSAY($BZ$4:$CD$4;CD4)=1;CD4 &" ";""))