Aynı verileri birleştirme

[angelirde]

Merhaba,

Aynı verileri gördüğü zaman, onun karşısında değişen bilgileri tek bir hücrede birleştirmesini nasıl sağlayabiliriz.

Ek 'te örnek dosya mevcuttur

 

[Civan Jack]

Sub Ayni()
    Dim i As Integer
    For i = 2 To Range("A1").End(4).Row
        If Cells(i, 2) = Cells(i + 1, 2) Then
           If WorksheetFunction.CountIf(Range("f2:f" & i), Cells(i, "F")) = 1 Then
                Range("F18").Value = Range("F18").Value & Cells(i, "f") & ","
            End If
            If WorksheetFunction.CountIf(Range("e2:e" & i), Cells(i, "e")) = 1 Then
                Range("e18").Value = Range("e18").Value & Cells(i, "e") & ","
            End If
        End If
    Next i
    i = Empty
End Sub

 

[angelirde]

Öncelikle teşekkürler,

B Sütununda farklı bir değer olduğunda ona ait bilgileribirleştirmiyor.
Bir de E ve F sütunlarındaki değerleri birleştirirken eksik birleştiriyor.

116-032'ya ait Black ve Purple var ise sadece Black geliyor şuan.
116-032 yerine ilaveten 116-033 de yazdığımda ikinci satırda onun bilgilerininde gelmesi gerekmekte

 

[angelirde]

Merhaba sorumun yanıtı bu konuda almış bulunmaktayım , ilginize çok teşekkürler

http://www.excel.web.tr/f48/birden-fazla-ayny-deoeri-birle-tirme-t123618.html