I download a file every month and I need to format it adding columns,
deleting rows, etc - also I need to add some formulas to the file so that the
data is formatted according to my specifications and to be used in another
model.

The formula is to be pasted on cell B3 ... and the formula is
=RIGHT(LEFT(A3,16),3).

Thanks

Is this what you need?

Sub PasteFormula()

Range("B3").Formula = "=RIGHT(LEFT(A3,16),3)"

End Sub
--
Cheers,
Ryan


"Nina" wrote:

I download a file every month and I need to format it adding columns,
deleting rows, etc - also I need to add some formulas to the file so that the
data is formatted according to my specifications and to be used in another
model.

The formula is to be pasted on cell B3 ... and the formula is
=RIGHT(LEFT(A3,16),3).

Thanks

Nina;588766 Wrote:
I download a file every month and I need to format it adding columns,
deleting rows, etc - also I need to add some formulas to the file so
that the
data is formatted according to my specifications and to be used in
another
model.

The formula is to be pasted on cell B3 ... and the formula is
=RIGHT(LEFT(A3,16),3).

Thanks


Code:
--------------------
range("B3").Formula="=RIGHT(LEFT(A3,16),3)"

--------------------
or shorter:

Code:
--------------------
range("B3").Formula="=MID(A3,14,3)"
--------------------


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=163085

Microsoft Office Help

Would this formula pasted into B3 have to copied down as far as you have
data in Column A?

Sub Auto_Fill()
Dim lRow As Long
With ActiveSheet
Range("B3").Formula = "=MID(A3,14,3)" 'using p45cal's version
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("B3:B" & lRow).FillDown
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 16 Dec 2009 10:22:01 -0800, Nina
wrote:

I download a file every month and I need to format it adding columns,
deleting rows, etc - also I need to add some formulas to the file so that the
data is formatted according to my specifications and to be used in another
model.

The formula is to be pasted on cell B3 ... and the formula is
=RIGHT(LEFT(A3,16),3).

Thanks