Formulas in a added worksheet VBA

  • Thread starter Thread starter Malcolm
  • Start date Start date
M

Malcolm

Hi

I have had some excellent help in gettin a new worksheet
to be added pulling data from an Active Worksheet and
formatting it into individual statements using a macro.

The new worksheet added has 290 names and addresses, with
each name and address having a space of 25 lines between
the next name and address.

What I need to be able to do now is to haver certain Cells
to have a formula added into the added worksheet.

For example, each cell in column "L" and in row 15 of each
statement might have the formula F23/3.054. There are
quite a few cells in each statement that need this so I
would like to automate it as the worksheet is added.

Is this possible.

Many thanks

Malcolm
 
Hello Malcolm

I'm not sure if this is what you want.

Sub CalcIf()
For Each c In Selection
If IsEmpty(c.Offset(0, -6)) Then
c = c
ElseIf IsNumeric(c.Offset(0, -6)) Then
c.Value = c.Offset(0, -6) / 3.054
End If
Next c

End Sub

Select the range column L and run the macro. It leaves
blank cells in column L if column F is empty and performs
a calculation if there is a number.

Of course it assumes that you always want to use the same
divisor. Let me know if you want something more flexible.

Regards
Peter
 
Back
Top