Aynı sütundaki verilerinin birleştirilmesi

[muratredd]

Hayırlı günler dilerim. benim sorunum sanırım basit ama çözüm yolu bulamadım.

mesela;

A1 ----- B1
Elma ----- Malatya
Armut ----- Maraş
Kivi ----- Ankara
Elma ----- Adana
Şeftali ----- Maraş
Elma ----- Malatya
Mandalina ----- İstanbul
Elma ----- Kayseri

Elimde böyle bir tablo var benim amacım da C1 satırınn karşılarına denk gelen hücreye mesela A1 de yazan tüm elmaların Şehirlerinin birleştirilmiş şekilde C1 hücresine yazmasını istiyorum.mesele (Malatya Adana Kayseri) Gibi. Yani aynı şehiri 2 kere yazmadan sadece farklı olan şehirleri tek bir hücrede birleştirerek yazmayı... Maalesef çözüm bulamadım. Yardımcı olursanız çok müteşekkir olurum.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar meyvenin ilk geçtiği satırda illeri istediğiniz gibi yazar:

Sub iller()
son = Cells(Rows.Count, "A").End(3).Row
For meyve = 1 To son
    If WorksheetFunction.CountIf(Range("A1:A" & meyve), Cells(meyve, "A")) = 1 Then
        For il = 1 To son
            If Cells(il, "A") = Cells(meyve, "A") Then
                If Cells(meyve, "C") = "" Then
                    Cells(meyve, "C") = Cells(il, "B")
                Else
                    Cells(meyve, "C") = Cells(meyve, "C") & "," & Cells(il, "B")
                End If
            End If
        Next
    End If
Next
            
End Sub

 

[muratredd]

Çok teşekkür ederim ben office 2010 kullanıyorum ama nedense makro ekleme butonu pasif konumda...

 

[YUSUF44]

Sayfa Sekmesine sağ tıklayın ve kod görüntüle deyin
Insert menüsünden Module'yi seçin
Çıkan sayfaya kodları yapıştırın
Excel sayfanıza bir resim, şekil veya düğme ekleyin
Eklediğinize sağ tıklayıp makro ata deyin ve çıkan listede bu makroyu seçin.

Dosyanızı kaydederken makro içerebilen excel dosyası olarak kaydetmeyi unutmayın.