Carry Out Simple Formula on Cell Value

**Jrub** · 10-19-2012, 12:22 PM

Hi All,

I'm trying to develop some working VBA code to carry out a simple operation of a range of cells, applying the operation to the cell values within the range. I've gathered the macro from another post, and modified it, but really Im a noob and am not sure what Im doing.

LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("F4:O" & LR)
.Value = .Value * (1+Start!$C$15)^(F$3-Start!$C$13)
End With

F3 would have to move across the columns as operation proceeds. For example, all cells in F would use F3, cells in G would use G3, H would use H3, etc to column O.

Any of you VBA guru's out there feel like making a humble noob's Friday morning????

Peace

**JieJenn** · 10-19-2012, 12:23 PM

Can you post a sample file? I can't visualize it.

**Jrub** · 10-19-2012, 12:26 PM

Hi!

Attached.

I'm trying to incorporate inflation into the values pulled into the summary tab macro. Inflation being =(1+Inflation Rate)^(Column year - current year)

**Jrub** · 10-19-2012, 01:34 PM

Ok, so I have drawn up the following:

Sub Inflation()
Dim c As Range, LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row

For Each c In Worksheets("BUILDING SUMMARY").Range("F4:O" & LR).Cells
c.Value = c.Value * (1 + Worksheets("Start").Cell("$C$15")) ^ ("F$3" - Worksheets("Start").Cell("$C$17"))
Next
End Sub

But I get errors, can anyone help me out?

**Jrub** · 10-19-2012, 12:55 PM

Can anyone point out what I'm doing wrong?

With Range("F4:O" & LR)
    .Value = .Value * (1 + Worksheets("Start").Cell("$C$15")) ^ ("F$3" - Worksheets("Start").Cell("$C$17"))
End With

**JieJenn** · 10-19-2012, 02:23 PM

Do you have a sample file that illustrate the issue? The file has too much information and I am at work, so probably don't have the time to trying to figure out why the error occurs. Just an FYI.