Özet tablo oluşturma

[newzega]

malzeme kodu,malzeme adı, miktarı ve fiyatı gibi sütunları olan bir tablom var ancak bu tabloda aynı malzeme kodu ve adı olan diger sütunları ise değişken olan bir tablom var. sorunum ise özet tablo ve şablonlardan birleştirmeye çalıştım ancak kodu ve miktarı olarak liste oluştura bildim benim istediğim sütunların yanyana olması excell ise kod grubunda alt alta birleştiriyor ne yapmalıyım

örenk
kod ad miktar
1 a 3
1 a 5
2 b 1
olmasını istediğimse
kod ad miktar
1 a 8
2 b 1

 

[tiger001]

Sayın new zega yıllar önce sormuş olduğun bu soruya cevap bulabildinmi,varsa bir bilgi bana yollaybilirmisiniz.

teşekkürler kolay gelsin.

 

[Merhum İdris SERDAR]

.

http://www.excel.web.tr/f60/zet-tablolar-p-vot-table-t3036.html

Buraya bakın.

.

 

[Murat OSMA]

İlave olarak, az önce buna benzer bir konuya yanıt vermiştim.
Bakınız: Aynı satırları toplayarak birleştirme

Sizin istediğinize göre kodları revize edip, örneği ekliyorum...

Sub murat()
    Dim con As Object, rs As Object
    Set con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    Range("D2:D10").ClearContents
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""
    sorgu = "Select distinct kod, ad, sum(miktar) from [Sayfa1$] group by kod, ad "
    rs.Open sorgu, con, 1, 1
    Range("D65536").End(3)(2, 1).CopyFromRecordset rs
    rs.Close: con.Close: Columns.AutoFit
    Set con = Nothing: Set rs = Nothing
End Sub

İyi günler..

 

[Murat OSMA]

Sn. tiger001 kodlar işinize yaradı mı ?