Alttoplam formülü dışında ne yapabiliriz

[ahmet uguz]

Arkadaşlar hepinize iyi akşamlar diliyorum.f,g ve e sutunlarındaki rakamlar her 30 satırdan sonra, bir önceki ara toplamdaki rakamda dahil olmak üzere ara toplam almak istiyorum.
makro yada hangi fonksiyonlarla olabilir.şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba
benim makine kafayı yedi, exceli kullanamıyorum, kilitleniyor.

şöyle birşey yazılabilir:

eğer target = "ara toplam" değilse exit sub
Target.Offset(0, 1)= "sum(...)" gibi toplam formülü yazılabilir.

excel düzelince yazmayı denerim artık. ofis cd yi bulmaya çalışayım.

 

[Necdet]

Merhaba,

Makrolu çözüm

Sub ToplamAl30SatirdaBir()
On Error Resume Next
Application.ScreenUpdating = False
Dim i As Long
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For i = [A65536].End(3).Row To 29 Step -1
    Ne = Cells(i, "A").Value Mod 30
    If Ne = 1 Then Rows(i).Insert
Next i
Range("F2:H" & [A65536].End(3).Row + 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=SUM(R[-30]C:R[-1]C)"
Columns("F:H").SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
MsgBox "İşlem Tamamdır.......", vbInformation, "Her 30 Satırda Toplam Almak. [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
Application.ScreenUpdating = True
End Sub

 

[Leoncio]

Merhaba;
Bir önceki ara toplamdaki rakam ilavesi olalcaksa (ki ben öyle anladım) Necdet beyin aşağıdaki kodunu düzeltmelisiniz.

Ne = Cells(i, "A").Value Mod 29

 

[Ali]

Yeşil alanlarınızda veri olmadığı varsayarsak. F,G ve H sütunlarını seçiniz. Ctrl+G-Özel-Boşluklar kısmını seçip menülerden otomatik toplam seçeneğine basınız.

Böylece boşluk bıraktığınız tüm alana otomatik alttoplam almış olacaksınız.

 

[ahmet uguz]

teşekkür ederim.

sayın necdet yeşertener,leoncio ve ali bey;verdiğiniz yanıt ve çözümleriniz işime yaradı.çok teşekkür ederim.umarım diğer arkadaşlarda bu çözümden yararlanır.