Ortak değere göre iki satırı arasına virgül koyarak birleştirme

[omerfe]

Merhaba,

Bir fatura içindeki mal cinsi fazlalığına göre birden fazla satıra yazılabilmekte.
Benim isteğim bu tip faturaları tek satırda göstermek. Listeler yüzlerce satırı bulduğundan iki satırlık bir örnek koydum ekteki excele.

Ortak değer fatura numarası. Bu ortak değere göre I ve J sütunlarını arasına virgül koyarak birleştirmek, K ve L sütunlarını toplatmak istiyorum. Ekteki tabloda data ve istenen şekli gösterdim.

Yardımcı olursanız sevinirim.

 

[apocalyt]

aşağıdaki kodu bir modüle kopyalayıp çalıştırın..

Sub daylight()
Application.ScreenUpdating = False
Sheets("Data").Range("a210000").Sort key1:=Range("b2")
For x = 2 To Sheets("Data").[a10000].End(3).Row
If Cells(x + 1, "b") = "" Then Exit Sub
If Cells(x, "b") = Cells(x + 1, "b") Then
Cells(x, "ı") = Cells(x, "ı") & "," & Cells(x + 1, "ı")
Cells(x, "j") = Cells(x, "j") & "," & Cells(x + 1, "j")
Cells(x, "k") = Cells(x, "k") + Cells(x + 1, "k")
Cells(x, "l") = Cells(x, "l") + Cells(x + 1, "l")
Rows(x + 1).Delete
x = x - 1
End If
Next x
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[apocalyt]

gülücük olan yerde ("a2: p10000") yazıyo...yanlız arada boşluk olmıcak. ( ":" ile p arasında )

 

[omerfe]

hocam ilginiz için çok teşekkür ediyorum.
emeğinize sağlık.