alttoplam

[tryagain]

Forumda aradım ama birtürlü istediğim şeyi bulamadım. Verilerin bulundugu bir tabloda otomatik olarak alt toplamlarını nasıl bir macroyla aldırabilirim?

A sütunu
13
3
4
4
3
****alt toplam
8
5
7
10
****alt toplam
****Genel toplam

 

[Leoncio]

Merhaba;
Makrodan ziyade sorunu Özet Tablo ile çözebilirsiniz. Arama butonundan aratırsanız bir çok örneğini bulabilirsiniz.

 

[tryagain]

aslında hazırladığım kodlar war bu alttoplam kodunuda ona uyarlama çalışıcam o yuzden döngü yapmaya çalıştım ama pek başarılı olamadım.

 

[tryagain]

For i = 2 To S2.[A65536].End(3).Row
With s1.Range("A:A")
Set Bul = .Find(S2.Cells(i, "C"), LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
If s1.Cells(Bul.Row, "C") <> "" Then
S2.Cells(i, "I") = s1.Cells(Bul.Row, "C")
S2.Cells(i, "I").Interior.ColorIndex = 36

S2.Cells(i, "J").FormulaR1C1 = "=RC[-1]*RC[-5]"
S2.Cells(i + 1, "J").FormulaR1C1 = "=sum(RC[-i]+RC[-5])"**
S2.Cells(i, "K").FormulaR1C1 = "=RC[-4]-RC[-2]"
S2.Cells(i, "L").FormulaR1C1 = "=RC[-4]-RC[-2]"
S2.Cells(i, "M").FormulaR1C1 = "=(RC[-6]-RC[-7])*RC[-8]"
S2.Cells(i, "N").FormulaR1C1 = "=((RC[-8]-RC[-5])*RC[-9])/RC[-4]"
S2.Cells(i, "O").FormulaR1C1 = "=((RC[-8]-RC[-6])*RC[-10])/RC[-5]"


End If
End If
End With
Next i
** istediğim aslında buraya alttoplam aldırmaya çalışıyorum en alttada genel toplam ancak yapamadım :/ nasıl birşey yapabilirim burda?

 

[tryagain]

Lütfen bu kodda yaptığım hatayı gösterebilirmisiniz,ne yapmam gerekiyor çözümsüz kaldım.

 

[Ali]

Şöyle birşey işinizi görürmü?

A sütununu seçiniz. CTRL+G tuşuna basınız.Oradan Özel ve Sonra boşluklar kısmını seçiniz.

Oradan resimde belirttiğim toplam simgesine basınız.

Not:Genel toplam hariç tüm alttoplamları sağlıklı gösteriyor.

 

[tryagain]

Şöyle birşey işinizi görürmü?

A sütununu seçiniz. CTRL+G tuşuna basınız.Oradan Özel ve Sonra boşluklar kısmını seçiniz.

Oradan resimde belirttiğim toplam simgesine basınız.

Not:Genel toplam hariç tüm alttoplamları sağlıklı gösteriyor.

Ali bey çok teşekkürler ancak bunu yukardaki aktar kodumun içine nasıl yerleştirebilirim. Yani aktardıktan sonra her grubunda alttoplamlarını otomatik aldırabilirmiyiz?

 

[Ali]

Daha önce sitede olan bir makrolu alttoplam örneğidir.

 

[tryagain]

Daha önce sitede olan bir makrolu alttoplam örneğidir.

ali bey ben bunu bir türlü koda uyarlıyamıyorum,dosyam ekte alttoplam almam gereken sayfa 2. kırmızı ile işaretli bunu yukleye bastığımızda direk alt toplamlarıyla aldırmaya çalışıyorum yardımınız olabilirmi kusura bakmayın zamanınızı çalıyorum:frown:

 

[Ali]

A1:L1 arasını mouse ile seçiniz. Veri-Filtre Uygula-Otomatik Filtre Uygula kısmını seçiniz.

A1 hücresini tıklayıp boş olmayanlar kısmını seçiniz
C1 hücresini tıklayıp boş olanlar kısmını seçiniz.

E ve L sütunları arasında bu kriterlere göre süzülen bu boş kısımların hepsini mouse ile seçiniz.

CTRL+G tuşuna basınız.Oradan Özel ve Sonra boşluklar kısmını seçiniz.

Yukarıdaki resimde belirttiğim toplam simgesine basınız.

Veri-Filtre Uygula-Otomatik Filtre Uygula kısmını tekrar çalıştırarak süzmeleri iptal ediniz. Böylece tüm istediğiniz kısımlara alttoplam almış olacaktır.

 

[tryagain]

Çok özür dileyerek söylüyorum sanırım ifade edemedim sorunumu ben ilk sayfada bulunan fiyatları yukle dediğim zaman 2.sayfaya fiyatlar yukleniyor 2. sayfadaki diğer satırların formulleri yukleniyor ve ona gore hesap yapılıyor (j,k,l,m,n sutunlarına) ve ben bu yuklenen verilerinde alt toplam formullerini direk atmasını sağlamaya çalışıyorum.yani kodun icine ne eklemeliyim ki diğer formullerle birlikte gruplarında(Adı/ünvanı) alt toplamlarını otomatik olarak aldırabileyim umarım sorunumu ifade edebilmişimdir :| Manuel olarak soylediğinizi anladım hatta öğrenmiş oldum bilmiyordum teşekkür ederim

 

[tryagain]

Çok özür dileyerek söylüyorum sanırım ifade edemedim sorunumu ben ilk sayfada bulunan fiyatları yukle dediğim zaman 2.sayfaya fiyatlar yukleniyor 2. sayfadaki diğer satırların formulleri yukleniyor ve ona gore hesap yapılıyor (j,k,l,m,n sutunlarına) ve ben bu yuklenen verilerinde alt toplam formullerini direk atmasını sağlamaya çalışıyorum.yani kodun icine ne eklemeliyim ki diğer formullerle birlikte gruplarında(Adı/ünvanı) alt toplamlarını otomatik olarak aldırabileyim umarım sorunumu ifade edebilmişimdir :| Manuel olarak soylediğinizi anladım hatta öğrenmiş oldum bilmiyordum teşekkür ederim

lütfen yardımlarınızı bekliyorum

 

[desk]

WorksheetFunction.Sum şeklinde denediğinizde olmadımı?

 

[salihBJK]

Ali tarafından gönderildi
Daha önce sitede olan bir makrolu alttoplam örneğidir.

Bu örneği daha kapsamlı hale getirmemiz mümkünmüdür

Mesela ben alt toplamda ayrıştırılacak satırların 3 ünün birden taranmasını istiyorum.
mesela örnekte;

Adı Mesleği Tutar1 Tutar2 Tutar3
ali a 10 20 30
ali a 11 21 31
veli a 12 22 32
veli b 13 23 33
ahmet c 14 24 34

bu şekilde. örnekte A satırını tarıyor aynı olan verilerin 3.4.5. sütunlarını alt toplam alıyor.
ben ise a,b,c sütunlarını taramasını ve aynı olan verilerin 6.7.8. sütunlarının alt toplamlarının alınmasını istiyorum.
mesela
ali a Z
ali b Z
ali a C
ali b Z

buşekilde ali a Z ayrı alt toplam ali b Z ler ayrı alt toplam alınacak şekilde.
bilmem anlatabildim mi

ben işin içinden çıkamadım çorba oldu iyice.