satırların birleştirilmesi.

[safak021]

arkdaşlar ekteki tabloda ürün noları aynı olan ürünlerin miktarını toplayarak tek satırda gösterebilmek için nasıl bir formul gerekiyor?

yardımlarınız için şimdiden teşekkürler....

 

[Orion1]

Dosyanız ektedir.

Sub ado_topla_aktar_59()
Dim conn As Object, rs As Object, sat As Long
Sheets("Sayfa2").Select
Range("A4:F65536").Clear
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If sat < 4 Then Exit Sub
Set conn = CreateObject("AdoDb.connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=No;İmex=1"";"
rs.Open "Select F1,first(F2),first(F3),first(F4),sum(F5),first(F6)" _
& " from [Sayfa1$A4:F65536] group by F1;", conn, 1, 1
Application.ScreenUpdating = False
Range("A4").CopyFromRecordset rs
Application.ScreenUpdating = True
rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing
MsgBox "İşlem tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[safak021]

teşekkür ederim ama tablo görüntülenmiyor..

 

[İhsan Tank]

teşekkür ederim ama tablo görüntülenmiyor..

formül ile yaptım inceleyiniz

 

[Orion1]

teşekkür ederim ama tablo görüntülenmiyor..

Problem yok.Denedim çalışıyor.
Sayfa2 de listeleniyor.
Makro güvenlik ayarını en düşük olarak ayarladınızmı?