benzer satırları tek satıra toplama

[ennteresan]

Muhasebe ofisinde, bir excel dosyasında şöyle bir işlem yapıyoruz.
a stününda aynı isme ait iki ve daha fazla satır varsa bu satırların d sütunlarındaki değerleri toplayıp tek satır olarak yeni liste oluşturuyoruz.

şu listeden

şöyle liste oluşturuyoruz

Bunun için makro kod vs nasıl yapabiliriz. binlerce satırlık işlem yapıyoruz çok vaktimizi alıyor.

 

[mancubus]

pivot tablo denendi mi?

 

[ennteresan]

pivot tablo bilmiyorum. excel bilgim çok düşük. ama bir araştırayım onu.

---hocam araştırdım, o işimi görebilir, teşekkürler.

 

[Muhammet Okumuş]

Merhaba,
Kod için

Sub Listele()
Application.ScreenUpdating = False
Range("H:K") = ""
Columns("A:A").Select
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("H:H").RemoveDuplicates Columns:=1, Header:=xlNo
sat = Cells(Rows.Count, "H").End(3).Row
Range("I1:I" & sat) = "=VLOOKUP(H1,A:B,2,0)"
Range("J1:J" & sat) = "=COUNTIF(A:A,H1)"
Range("K1:K" & sat) = "=SUMIF(A:A,H1,D)"

Range("I1:K" & sat) = Range("I1:K" & sat).Value
Range("A1").Select

End Sub

kullanabilirsiniz.

 

[ennteresan]

Muhammet bey teşekkürler. Diğer arkadaşın önerdiği pivot tablo olayıyla 2 dakikada yaptım. Günler harcanan işlemi küçük ama önemli bir bilgiyle 20 dakikada tamamlayabiliriz artık. Emeğiniz için teşekkürler.