Birden fazla hücreyi tek hücrede gösterme

[search77]

Merhaba Arkadaşlar,

Birden fazla hücredeki değerleri tek hücrede gösternek istiyorum, fakat alt alta gözüksünler, bunu bir formülle nasıl yaparım.

Ekte örnek dosya mevcut, acil yardım talep ediyorum.

Saygılarımla.

 

[Ömer BARAN]

Merhaba.

Excel'i kullanırken veri tabanı mantığıyla düşünüp, bir sütunda/hücrede tek tip veri tutmanızı önermek isterim.

Yani yapmak istediğinizin tam tersini düşünüp , aynı isime ait verileri tek bir hücrede birleştirmek yerine kişiye ait satırda bu verileri sütunlara aktarmanız ileride daha çok işinize yarayacaktır diye düşünüyorum.

Sonuçta kişinin adının karşısında B sütununda e-posta adresleri, C sütununda cep telefonu numaraları, D sütununda faks numaraları gibi sütunlar oluşturmak daha çok işinize yarayacaktır düşüncesindeyim.

Aşağıdaki konu sayfasını incelerseniz benzer bir durum orada var.
Bir bakın isterseniz.

http://www.excel.web.tr/f14/excelde-satyr-birle-tirme-t154862.html#post842994
.

 

[search77]

Ömer bey ilginiz için teşekkürler.

Fakat formül yazma konusunda çok iyi değilim, örnekten yapmam imkansız gibi

Bu şekilde bana nasıl yardımcı olabilirsiniz?

Syg.

 

[Ömer BARAN]

Diğer sayfada belirttiğim işlem ve formülleri aynen siz de uygulayabilirsiniz.
Çünkü aynı şekilde sizin verileriniz de A ve B sütununda bulunuyor.
Bence bir deneyin.

 

[Necdet]

Merhaba,

Ben de Ömer bey'e hak veriyorum. Ama illa olsun derseniz Pivot Table(Özet Tablo) da kullanabilirsiniz.

 

[search77]

Arkadaşlar ilginize teşekkür ederim.

Fakat benim istediğim pivot görünümlü değil dikkat ederseniz birden fazla olan B hücresindeki değerleri tek hücrede göstermek

yani excelde sayfada altta eklediğim görüntü

Saygılarımla.

 

[Ömer BARAN]

Tabi siz bilirsiniz.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırın ve çalıştırın.
(Alt tarafta Sheet1 sayfa adına fareyle sağ tıklayın, KOD GÖRÜNTÜLEyi seçin, açılan ekranın sağ tarafındaki boş alana yapıştırın)
Kod, verilerinizi C ve D sütununa istediğiniz şekilde aktarır.
.

[FONT="Arial Narrow"][B][COLOR="Blue"]Sub birlestir_BRN()[/COLOR][/B]
Range("C:D").ClearContents
Cells(1, 3) = Cells(1, 1): Cells(1, 4) = Cells(1, 2)
    For satır = 2 To [A65536].End(3).Row
    adet = WorksheetFunction.CountIf(Range("A:A"), Cells(satır, 1))
    metin = ""
        For sat = satır To satır + adet - 1
            metin = metin & Cells(sat, 2) & Chr(10)
        Next
    Cells([C65536].End(3).Row + 1, 3) = Cells(satır + adet - 1, 1)
    Cells([D65536].End(3).Row + 1, 4) = Left(metin, Len(metin) - 1)
    satır = satır + adet - 1
    Next
Range("C:D").VerticalAlignment = xlCenter
[B][COLOR="blue"]End Sub[/COLOR][/B][/FONT]

 

[search77]

Elinize kolunuza sağlık 10 numara tam istediğim gibi

Saygı ve sevgiler emeği geçen herkese

 

[Ömer BARAN]

Elinize kolunuza sağlık 10 numara tam istediğim gibi

Saygı ve sevgiler emeği geçen herkese

İyi günler dilerim.

 

[yasin85]

Ellerinize sağlık bende arıyordum bu makroyu benimde işimi gördü teşekkürler..

 

[Necdet]

Merhaba,

Bu ta alternatif olsun. Scripting.Dictionary kullanılmıştır. Verilerin sıralı olma şartı yoktur.

Sonucu E ve F hücresine yazar, siz kendinize göre ister mevcut liste üzerine isterseniz başka sayfaya yazdırabilirsiniz.

Sub DerleTopla()

    Dim d
    Dim i As Long
    Dim s
    Dim Deg As Variant
    Dim a1
    Dim a2
    
    Set d = CreateObject("Scripting.Dictionary")
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Deg = Cells(i, "A")
        If Not d.exists(Deg) Then
            s = Cells(i, "B")
            d.Add Deg, s
        Else
            s = d.Item(Deg)
            s = s & Chr(10) & Cells(i, "b")
            d.Item(Deg) = s
        End If
    Next i
    
    a1 = d.keys
    a2 = d.items
    
    Range("E1").Resize(d.Count, 1) = Application.Transpose(a1)
    Range("F1").Resize(d.Count, 1) = Application.Transpose(a2)

End Sub