Soru Döngü ile koşullu toplam aldırma

[a long time ago]

Merhaba,

A sütununda bölge isimleri B sütununda ise verilerin yer aldığı bir Excel var elimde. Bu bölgelere ait toplamları başka bir sayfaya yazdırmak istiyorum; fakat VBA döngüsü ile yapmak istiyorum bunu. Denemeler yaptım ama işin içinden çıkamadım. O yüzden yardımınızı rica edeceğim.

Kısa bir örnek vermek gerekirse: döngü ikinci satırda "Inner Mongolia" ifadesi (araya başka bir bölge ismi girmeden) bitene kadar bu bölgenin toplamını alıp başka bir sayfada önce bölge ismi yan satırına ise toplamı yazıyor.

Bir sonraki döngüde "Shanxi" var. Bu bölgenin toplamını bu bölge ismi bitene kadar alıp diğer sayfaya yazıyor.

Döngü A sütunundaki veri olan en son hücreye kadar devam ediyor.

Not: Excel nereden ekleyebilirim göremiyorum.

 

[yanginci34]

Örnek dosya eklermisiniz.

 

[a long time ago]

Örnek dosya eklermisiniz.

Merhaba, kusura bakmayın ben göremiyorum dosya eklenti butonunu. ben de bir sorun var sanırım.

 

[yanginci34]

forma üye değilsiniz dosyanızı buraya ekleyip link ini tekrar burda paylaşın

 

[a long time ago]

forma üye değilsiniz dosyanızı buraya ekleyip link ini tekrar burda paylaşın

https://mft.yildirimgroup.com/MFT/filexfer.jsp?IDT=007dbf47-19e5-4b6b-b467-f90526746b32&ID=76a8a802-4a44-4791-8039-b20ad83afb86
Bu linke koydum Excel'i.

 

[yanginci34]

denermisiniz.
http://dosya.co/oy1xwy5m6juw/Book3.xlsm.html

 

[Ömer BARAN]

Merhaba.
Bence; en pratik olanı ÖZET TABLO kullanmak olur.
Belgeye, adı ÖZET olan boş bir sayfa ekleyin.

Verilerin bulunduğu tablo alanını seçin,
EKLE=>ÖZET TABLO >> başka sayfaya deyip ÖZET sayfası A1 hücresini seçin,
SATIRLAR alanına Region'u, DEĞERLER alanına da diğer sütun adını sürükleyip bırakın, tamam.

İllede kod kullanacaksanız aşağıdaki gibi olur.

Sub TOPLAMLAR()
Set s = Sheets("Sheet1"): Set o = Sheets("ÖZET")
o.[A1] = s.[A1]: o.[B1] = "TOPLAM"
For sat = 2 To s.Cells(Rows.Count, 1).End(3).Row
    son = sat - 1 + WorksheetFunction.CountIf(s.[A:A], s.Cells(sat, 1))
    o.Cells(o.Cells(Rows.Count, 1).End(3).Row + 1, 1) = s.Cells(son, 1)
    o.Cells(o.Cells(Rows.Count, 2).End(3).Row + 1, 2) = WorksheetFunction.Sum(s.Range("B" & sat & ":B" & son))
    sat = son
Next
End Sub

 

[a long time ago]

denermisiniz.
http://dosya.co/oy1xwy5m6juw/Book3.xlsm.html

teşekkürler. Şimdi anladım mantığı

 

[a long time ago]

Merhaba.
Bence; en pratik olanı ÖZET TABLO kullanmak olur.
Belgeye, adı ÖZET olan boş bir sayfa ekleyin.

Verilerin bulunduğu tablo alanını seçin,
EKLE=>ÖZET TABLO >> başka sayfaya deyip ÖZET sayfası A1 hücresini seçin,
SATIRLAR alanına Region'u, DEĞERLER alanına da diğer sütun adını sürükleyip bırakın, tamam.

İllede kod kullanacaksanız aşağıdaki gibi olur.

Sub TOPLAMLAR()
Set s = Sheets("Sheet1"): Set o = Sheets("ÖZET")
o.[A1] = s.[A1]: o.[B1] = "TOPLAM"
For sat = 2 To s.Cells(Rows.Count, 1).End(3).Row
    son = sat - 1 + WorksheetFunction.CountIf(s.[A:A], s.Cells(sat, 1))
    o.Cells(o.Cells(Rows.Count, 1).End(3).Row + 1, 1) = s.Cells(son, 1)
    o.Cells(o.Cells(Rows.Count, 2).End(3).Row + 1, 2) = WorksheetFunction.Sum(s.Range("B" & sat & ":B" & son))
    sat = son
Next
End Sub

teşekkürler.

 

[Ömer BARAN]

.
Kolay gelsin.
.