aynı olan hücrenin karşısındaki verilerin birleştirilmesi

[akifci]

Merhaba,

Ekte linkini verdiğim dosyada da belirttiğim üzere a sütununda aynı olan verilerin b sütunundaki karşılıklarının c sütununda birleştirilmesini istiyorum.
Ekteki dosyada örneğini ve yapılmasını istediğim halini paylaştım.
Şimdiden teşekkür ederim.

http://www.dosyaupload.com/8OzL

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya bir adet düğme/metin kutusu/şekil ekleyin,
-- Sayfaya eklediğiniz bu düğme/metin kutusu/şekile fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekranda BİRLEŞTİR_BRN'yi seçerek işlemi onaylayın,
-- Bu düğme/metin kutusu/şekile fareyle tıklayarak kod'un çalışmasını sağlayın.
.

[B]Sub BİRLEŞTİR_BRN()[/B]
Range("C2:C" & Rows.Count).ClearContents
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    For satt = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(sat, 1) = Cells(satt, 1) Then Cells(sat, 3) = Cells(sat, 3) & ", " & Cells(satt, 2)
    Next
    Cells(sat, 3) = Mid(Cells(sat, 3), 3, Len(Cells(sat, 3)) - 2)
Next
[B]End Sub[/B]

 

[akifci]

Çok teşekkür ederim tam istediğim gibi oldu.
İyi günler dilerim.

 

[Ömer BARAN]

Çok teşekkür ederim tam istediğim gibi oldu.
İyi günler dilerim.

Kolay gelsin.
.