Düşeyara bul aynı satıra birleştir

[ShodoW]

Arkadaslar merhaba,
Sheet1 dekı dosyamda aşağıdaki gibi veriler var
ben bu verileri
sheet2 de fatura ve firma unvanına gore teke dusurup
düşey ara ile diğer bilgiler yanında yazdırıp etopla ile tutar kısmını topluyorum,
Ama yapamadiğım "Kalem" Kısmı
Yapmak ıstedıgım
sheet1 deki verileri sheet2 iki de fatura numarasına gore bulup kalem ısımlerını ne kadar varsa yanına virgul koyarak tek bır satırda bırlestırmek
Bunu nasıl yapabılırım yardımcı olabılırmısınız

Sheet1
Fat Fırma Vergi Kalem Kdv Kdv2 Toplam
32 ABC 123 Yemek 50,00 9,00 59,00
32 ABC 123 Yol 100,00 18,00 118,00
32 ABC 123 Konaklama 20,00 3,60 23,60
50 CFG 598 Şehiriçi Yol 60,00 10,80 70,80
50 CFG 598 Şehiriçi Yol 780,00 140,40 920,40
48 DFT 789 Kargo 60,00 10,80 70,80
35 UII 987 Kargo 890,00 160,20 1.050,20



sheet2
Fat Fırma Vergi Kalem Kdv Kdv2 Toplam
32 ABC 123 Yemek,Yol,Konaklama 170,00 30,60 200,60
50 CFG 598 Şehiriçi Yol 840,00 151,20 991,20
48 DFT 789 Kargo 60,00 10,80 70,80
35 UII 987 Kargo 890,00 160,20 1.050,20


http://dosya.web.tr/Rk2lVK

 

[turist]

Örnek excel dosyanızı,açıklamalarını da yazarak; GOOGLE DRIVE, YANDEX DISK, DOSYA.WEB.TR , DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

 

[ShodoW]

Ornek dosya

Kusura bakmayın bu konuda bılgım yoktu dosya asagıdakı gıbıdır.


http://dosya.web.tr/Rk2lVK

 

[ShodoW]

Merhaba arkadaşlar biraz karısıkmı tarıf ettım bılemedım sımdı

Nasıl yapacağım konusunda bir fikri olan varmı
yardımcı olursanız cok sevınırım

 

[ShodoW]

Ekli dosyaya Modül açıp aşşağıdaki kodu yazdım;

unction aconcat(a As Variant, Optional sep As String = "") As String
Dim y As Variant
If TypeOf a Is Range Then
For Each y In a.Cells
aconcat = aconcat & y.Value & sep
Next y
ElseIf IsArray(a) Then
For Each y In a
aconcat = aconcat & y & sep
Next y
Else
aconcat = aconcat & a & sep
End If
aconcat = Left(aconcat, Len(aconcat) - Len(sep))
End Function

Daha sonra
sayfa2 de g stununa
=YERİNEKOY(AConcat(EĞER(Sayfa1!$D$4:$D$9=D4;","&Sayfa1!$G$4:$G$9;""));",";"";1)

formulunu yazarak sorunumu halletim.
ama başka bir sorun ile karşılaştım
aynı numaran olan 3 faturanın 3 kalemının ısmıde aynı oldugunda
Ornek : 3 nolu fatura Yemek,Yemek,Yemek olarak birleştiriyor

Eğer kalem ismi aynı ise yazdırma diyemedim