alttoplam

[prodigy]

değerli arkadaşlar
A... D sutunları arasında verilerim var. bu verileri sıralayarak, " alttoplam" fonksiyonunu kullanarak alttoplamlarını aldırıyorum.
yapmak istediğim ise; her bir veriyi (aynı olanları bir defa) alttoplamıyla birlikte altalta yazdırmak. ekteki örneği incelerseniz anlatmak istediğim daha kolay anlaşılır.
saygılar

 

[Levent Menteşoğlu]

Aşağıdaki kodu eklediğiniz dosyada çalıştırarak deneyin.

[vb:1:523b93d5a9]Sub listeolustur()
[g2:j65536].ClearContents
For a = 2 To [a65536].End(3).Row
If IsNumeric(Left(Cells(a, "a"), 1)) = False Then GoTo 10
If WorksheetFunction.CountIf(Range("a2:a" & a), Cells(a, "a")) = 1 Then
c = c + 1
Cells(c + 1, "g") = Cells(a, "a")
Cells(c + 1, "h") = Cells(a, "b")
Cells(c + 1, "I") = Cells(a, "c")
Cells(c + 1, "j") = WorksheetFunction.SumIf([a:a], Cells(a, "a"), [d:d])
End If
10 Next
Cells(c + 2, "g") = "GENEL"
Cells(c + 2, "j") = WorksheetFunction.Sum([j2:j65536])
End Sub
[/vb:1:523b93d5a9]

 

[prodigy]

yine herzaman olduğu gibi imdadımıza yetiştiniz. çok teşekkür ederim.