Search: | |||||

| ||||

Home » Forum » MS Office | RSS Feeds |

I need to be able to sum across columns. The sum formula needs to be

entered using code and not always entered. For example:

=sum(d4:g4)

=sum(d5:g5)

=sum(d6:g6)

no formula

=sum(d8:g8)

etc.

The next time the report is created, the formula would be in different

cells. I know how to get the formula into the cell just not how to get

into the cells on the fly.

I need to know how to check to see if the row has

something entered. If it does, enter the formula. I

need to the row to change as I go. Is there a way to

do this??

I think I figured out what will work:

drow = 4

dcol = 8

Sheets("1-4 Wks").Cells(drow, dcol).Formula =

"=sum(d4:g4)"

I have looked for something like this for a long time.

Finally, I stumbled onto it.

The nicest way to put formulas like this into cells is to use R1C1

addressing mode.

This works because you want to keep the sum on the same row as the formula -

wherever that is - and R1C1 does this neatly. There are two alternatives.

Absolute:

xx.FormulaR1C1 = "=sum(RC4:RC7)"

(where xx is the H cell you want the formula in). Sums columns 4 to 7 in

the current row. Or relative:

xx.FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Sums the columns 4 to the left through to 1 to the left. When put into an H

cell, both will do the same thing.

The good thing about the R1C1 way of doing it is that the formula doesn't

need to be reworked to match the row you're putting it on. For instance, I

attached this to a command button

Option Explicit

Private Sub CommandButton1_Click()

Range("h3").FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Range("h8").FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Range("h10").FormulaR1C1 = "=sum(RC4:RC7)"

Range("h15").FormulaR1C1 = "=sum(RC4:RC7)"

End Sub

Note that the formulas are the same no matter which row they're going in.

(The ones for 3 and 8 are the relative form, and the other two are the

absolute form. In practice, you'd choose one form and use it for all the

formulas.)

The nicest way to put formulas like this into cells is to use R1C1

addressing mode.

This works because you want to keep the sum on the same row as the formula -

wherever that is - and R1C1 does this neatly. There are two alternatives.

Absolute:

xx.FormulaR1C1 = "=sum(RC4:RC7)"

(where xx is the H cell you want the formula in). Sums columns 4 to 7 in

the current row. Or relative:

xx.FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Sums the columns 4 to the left through to 1 to the left. When put into an H

cell, both will do the same thing.

The good thing about the R1C1 way of doing it is that the formula doesn't

need to be reworked to match the row you're putting it on. For instance, I

attached this to a command button

Option Explicit

Private Sub CommandButton1_Click()

Range("h3").FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Range("h8").FormulaR1C1 = "=sum(RC[-4]:RC[-1])"

Range("h10").FormulaR1C1 = "=sum(RC4:RC7)"

Range("h15").FormulaR1C1 = "=sum(RC4:RC7)"

End Sub

Note that the formulas are the same no matter which row they're going in.

(The ones for 3 and 8 are the relative form, and the other two are the

absolute form. In practice, you'd choose one form and use it for all the

formulas.)

Hopefully, I'll be as smart as you

and won't have to bug everyone for help.

Didn't find what you were looking for?
Find more on sum formula
Or get search suggestion and latest updates.

Related Topics:

- clearing cells value without deleting the formula I've made in cell from excel formula , HOW?
- Write a shell program to find the sum of the series sum=1 + 3 + 5 + 7 + …+ n
- Code for Write a shell program to find the sum of the series sum=1 + 5 + 9 + ...+ n in Unix
- formula help but not vba please
- How to add several conditions for formula "SUMIF"
- combining formula
- VBA code to add values in two cells which have formulas
- VBA or array formula?
- Loop, sum values and paste
- Paste Formula help
- R1C1 Formula
- Three Leveled Formula
- Formula using range name in VBA code
- Summing a range of variable size
- searching within formulas
- Populate Formula(Function) in rows
- custom Sum function?
- Getting a formula to copy from inside VBA
- SUM content of rows
- VBA Formula prob
- count the sum of a column
- sum of amount deliverd group
- Sum colunm total in repeater
- Calculate Total Sum
- VBA code to sum