Mukerrer Olmayan Degerleri Ayni Hucre Icinde Yazma

[mustafaine1]

Merhaba arkadaslar Concatenate fonksiyonu gibi ama aralikta calisan ve mukerrer degerleri yazmadan birlestirme yapan bir fonksiyon varmidir acaba yada vba kodu?

 

[Ferhat Pazarçevirdi]

Mustafa bey,

Aşağıdaki gibi basit bir yapı işinizi görebilir.

Function OzelBirlestir(rng As Range) As String
    Dim oCol As New Collection
    Dim hcr As Range
    Dim i As Long
    Dim sStr As String
    
    On Error Resume Next
    For Each hcr In rng.Cells
        oCol.Add CStr(hcr), CStr(hcr)
    Next
    On Error GoTo 0
    
    For i = 1 To oCol.Count
        sStr = sStr & "," & oCol.Item(i)
    Next i
    
    OzelBirlestir = Right(sStr, Len(sStr) - 1)
    
End Function

Kullanımı : =OzelBirlestir(A1:A10) veya =OzelBirlestir(B2:C53) gibi.

Aralıktaki, mükerrer hücreleri eleyerek, sadece tekil kayıtları virgülle birleştirerek bir hücrede toplar.

.

 

[mustafaine1]

O kadarda kotu anlatmistim derdimi oysa

Hora gecmek tabiri sanirim boyl;e bir anda dogmustur Ferhat Bey elinize saglik..