İşlem Sayısı Kadar Açıklamayı Tek Satırda Toplamak

[ERRİC]

merhabalar ; ekteki tablomda 4 adet sayfa var ;
Banka isimli sayfdaki verileri özetlemek asıl amaç;
şimdi
Ozet sayfasında bana lazım olan; t.c. - firma/gönderen ismi- tutar -işlem sayısı
kısımlarını özetledim;
yeni bir sayfa açıp eşleştir sayfasında bu işlemlerin her bir açıklamasının tek bir satırda toplamam
gerekli
Banka sayfasında da a sutununda bir firmanın kaç defa işlem yaptığını toplattım,
yani bir firmada 50 tane açıklama var ise Eşleştir sayfası e sutununda 50 tane açıklamanın virgül ayracı ile yanana yazılmsını istiyorum biraz ivedi ama
ilginize teşkkür ediyorum saygılar

 

[ERRİC]

Merhaba topla çarpım kullanabilir miyiz bir türkü kurgulayamadım nasıl yapılacağını

 

[ÖmerBey]

Merhaba,
Makro kullanmak isterseniz deneyiniz.

Sub kod()
Dim s1 As Worksheet, s2 As Worksheet
Dim s As Object
Dim a As Long
Dim son As Long
Dim tc As String
Set s = CreateObject("Scripting.Dictionary")
Set s1 = Sheets("Banka")
Set s2 = Sheets("Eşleştir")
son = s1.Cells(Rows.Count, "H").End(3).Row
ReDim dz(1 To son, 1 To 5)
For a = 2 To son
    tc = IIf(s1.Cells(a, "I") <> "", s1.Cells(a, "I"), s1.Cells(a, "H"))
    If Not s.exists(tc) Then
        s.Add tc, s.Count + 1
        dz(s.Count, 1) = s1.Cells(a, "I")
        dz(s.Count, 2) = s1.Cells(a, "H")
        dz(s.Count, 3) = s1.Cells(a, "F")
        dz(s.Count, 4) = 1
        dz(s.Count, 5) = s1.Cells(a, "Y")
    Else
        dz(s(tc), 3) = dz(s(tc), 3) + s1.Cells(a, "F")
        dz(s(tc), 4) = dz(s(tc), 4) + 1
        dz(s(tc), 5) = dz(s(tc), 5) & ", " & s1.Cells(a, "Y")
    End If
Next
s2.Range("A2").Resize(UBound(dz), UBound(dz, 2)).Value = dz
End Sub

 

[ERRİC]

teşekkürler hocam elinize sağlık, çok işime yaradı iyi yıllar diliyorum sizlere

 

[ÖmerBey]

Rica ederim, hep birlikte sağlıkla inşallah.
İyi çalışmalar...

 

[Korhan Ayhan]

Merhaba,

Ek bilgilendirme;

Bu mesajı yazarken ilk mesanızdaki dosyayı 10 kişi indirmişti. Dosyanızın içinde kişisel bilgiler var. Bu bilgiler doğruysa sizin açınızdan risk teşkil etmektedir.

Forumda dosya paylaşırken lütfen bu duruma dikkat ediniz.

Not: Gerekiyorsa dosyanızı forumdan kaldırınız.

Ayrıca alternatif çözüm olarak daha önce paylaştığım cevapları inceleyebilirsiniz.

a sütununda tekrar eden hücrelere denk gelen tanımlamaları tek bir b hücresinde toplama

A sütununda tekrar eden numaralar var. B sütununda ise A sütunundaki numaralara karşılık gelen ve numaraları tanımlayan açıklamalar var. İstediğim durum; a sütununda numaralar tekrar etmeyecek ve a sütunundaki her hücrenin karşısındaki açıklamalar b sütununda aynı hücrede ve hücre içindeki...

www.excel.web.tr

 

[ERRİC]

merhaba hocam unuttum ilgili kısımları yüklerken silecektim fakat unuttum; siz yazınca fark ettim, uyarınız için teşekkür ederim ve dosyayı hemen kaldırdım;