Subtotal yaptıracak makro kodu nedir.

[tamercan]

Değerli arkadaşlar ekte gönderdiğim dosyanın sheet1 nin A kolonunda hesap numaraları B kolonunda ise tutarlar var. İstediğim A kolonuna göre B kolonuna alt toplam alınarak sheet2 dosyasına aynı formatla sadece alttoplamları yazdıracak bir makro. makro çalıştıktan sonra sheet 2 de nasıl bir bilgi oluşması gerektiğini örnek olması için manuel olarak ben oluşturdum. Hesap numarası alanında numara yerine ad soyadı bilgisi de kullanılabileceği düşünülerek yapılırsa benzer konuda birçok arkadaş da yararlanabilir. İlgileneceklere şimdiden teşekkür ederim.

 

[veyselemre]

Sub listele()
'sayın leventm daha önce yazmış olduğu kodları sizin dosyanıza uyarladım sıralama ve toplam ilave ettim.
Set S1 = Sheets("sheet1")
Set s3 = Sheets("sheet3")
s3.[a2:b65536].ClearContents
For a = 2 To S1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("A2:A" & a), S1.Cells(a, 1).Value) = 1 Then
c = c + 1
s3.Cells(c + 1, 1) = S1.Cells(a, 1).Value
s3.Cells(c + 1, 2) = WorksheetFunction.SumIf(S1.Columns(1), S1.Cells(a, 1).Value, S1.Columns(2))
End If
Next

s3son = s3.Cells(65536, 1).End(xlUp).Row

s3.Range("A1:B" & s3son).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess

s3.Cells(s3son + 1, 1) = "toplam"
s3.Cells(s3son + 1, 2) = WorksheetFunction.Sum(s3.Range("b2:b" & s3son))
End Sub

 

[tamercan]

veyselemre arkadaşım öncelikle ilgine teşekkür ederim ben kodları denedim aşağıdaki satırda hata veriyor.

s3.Range("A1:B" & s3son).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess

s3.Cells(s3son + 1, 1) = "toplam"
s3.Cells(s3son + 1, 2) = WorksheetFunction.Sum(s3.Range("b2:b" & s3son))

 

[veyselemre]

kodları sizin dosyaya yerleştirdim hata vermedi

 

[tamercan]

ilgine teşekkürler ben ofis 2003 kullanıyorum. Yukardaki dosyayı indirdim düğme olan sheet3 deki bilgileri silip düğmeye bastığımda.
sheet3 de aşağıdaki datalar oluşuyor. Versiyondan olabilimi anlayamadım.
Başlıkları da yazmıyor.

1 519
2 93
5 -572
6 52
56 63

toplam -364

 

[veyselemre]

başlıkları yazması için
s3.[a2:b65536].ClearContents 'den sonra

s3.[a1]="Hesap No"
s3.[b1]="Tutar"

'ekle

 

[tamercan]

Sayın veyselemre sizi uğraştırdım kusura bakmayın ama son ilave ile makro istendiği gibi oldu sağol elinize aklınıza sağlık. Ben son halini de eke koyuyorum kullanacak arkadaşların teşekkürerini de size şimdiden gönderiyorum. Sağolun.