Sub topla()
R = ActiveCell.CurrentRegion.Rows.Count + 1
Set SumRow = ActiveCell.CurrentRegion.Offset(R, 0).Resize(1)
SumRow.FormulaR1C1 = "=SUM(R[" & -R & "]C:R[-1]C)"
SumRow.Cells(1).Value = ""
SumRow.Cells(2).Value = ""
SumRow.Cells(3).Value = ""
SumRow.Cells(4).Value = "---"
SumRow.Cells(4).HorizontalAlignment = xlRight
SumRow.Cells(5).Value = ""
SumRow.Cells(5).Value = "Toplam---"
bu makroyla toplam aldırıyorum ancak burada her satırı topluyor.(gerci 1,2,3,4 siliyorum). ama öğrenmek istediğim araya satır ekledikce örneğin G sutunda girdiğim her değeri üsteki hücrelerle toplayarak gelsin.
R = ActiveCell.CurrentRegion.Rows.Count + 1
Set SumRow = ActiveCell.CurrentRegion.Offset(R, 0).Resize(1)
SumRow.FormulaR1C1 = "=SUM(R[" & -R & "]C:R[-1]C)"
SumRow.Cells(1).Value = ""
SumRow.Cells(2).Value = ""
SumRow.Cells(3).Value = ""
SumRow.Cells(4).Value = "---"
SumRow.Cells(4).HorizontalAlignment = xlRight
SumRow.Cells(5).Value = ""
SumRow.Cells(5).Value = "Toplam---"
bu makroyla toplam aldırıyorum ancak burada her satırı topluyor.(gerci 1,2,3,4 siliyorum). ama öğrenmek istediğim araya satır ekledikce örneğin G sutunda girdiğim her değeri üsteki hücrelerle toplayarak gelsin.