Relative cells in macro - and pasting a formula too!

[Guest]

Hi all

Thanks for reading this. I'm new to macros, so be gentle with me!
I have recorded a macro to import a file and run a couple of jobs on it.
When I look at the macro, it is written with relative references (like
[RC]-2 and stuff). Is there any way of changing it so that I can understand
it (like H3)?
Also , I have written a complex formula which I want the macro to paste into
a cell - to save having to retype it. The problem is that when I record the
macro, the pasting of the formula into the cell becomes 'ActiveSheet.paste'
rather than pasting the actual formula into the cell.

Cheers.

 

[Bernie Deitrick]

Andy,

You don't really need to "paste" per se, if you know the formula.

The best way to deal with formulas is to have the formula already in the cell where you want it,
written and working. Once you do, start your macro recorder. Select the cell, press F2, hit home,
type a single quote, and press enter. For example, you'll get something like this:

Range("C6").Select
ActiveCell.FormulaR1C1 = "'=C5*3+C4"

You can then edit that down to one line:

Range("C6").Formula = "=C5*3+C4"

by taking out the single quote and changing FormulaR1C1 to Formula.

But if you want that formula in multiple cells, you'll want to leave it as FormulaR1C1. Record
again, reselect the cell, press home, press delete once to get rid of the single quote, and then
press enter. (You con't need to start with a commented out formula - pressing F2 and Enter will get
you here, if your formula is working...) Your recorded code will look like:

Range("C6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*3+R[-2]C"

You can then edit that down to one line:

Range("C6").FormulaR1C1 = "=R[-1]C*3+R[-2]C"

Which you can expand to your multiple cells:

Range("C6:C100").FormulaR1C1 = "=R[-1]C*3+R[-2]C"


HTH,
Bernie
MS Excel MVP

 

[Guest]

Thanks very much! That's sorted it. Much appreciated.

I did apologise for posting the question twice, by the way! Sorry again.

Cheers.
Andy.

Andy,

You don't really need to "paste" per se, if you know the formula.

The best way to deal with formulas is to have the formula already in the
cell where you want it, written and working. Once you do, start your macro
recorder. Select the cell, press F2, hit home, type a single quote, and
press enter. For example, you'll get something like this:

Range("C6").Select
ActiveCell.FormulaR1C1 = "'=C5*3+C4"

You can then edit that down to one line:

Range("C6").Formula = "=C5*3+C4"

by taking out the single quote and changing FormulaR1C1 to Formula.

But if you want that formula in multiple cells, you'll want to leave it as
FormulaR1C1. Record again, reselect the cell, press home, press delete
once to get rid of the single quote, and then press enter. (You con't
need to start with a commented out formula - pressing F2 and Enter will
get you here, if your formula is working...) Your recorded code will look
like:

Range("C6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*3+R[-2]C"

You can then edit that down to one line:

Range("C6").FormulaR1C1 = "=R[-1]C*3+R[-2]C"

Which you can expand to your multiple cells:

Range("C6:C100").FormulaR1C1 = "=R[-1]C*3+R[-2]C"


HTH,
Bernie
MS Excel MVP

Hi all

Thanks for reading this. I'm new to macros, so be gentle with me!
I have recorded a macro to import a file and run a couple of jobs on it.
When I look at the macro, it is written with relative references (like
[RC]-2 and stuff). Is there any way of changing it so that I can
understand it (like H3)?
Also , I have written a complex formula which I want the macro to paste
into a cell - to save having to retype it. The problem is that when I
record the macro, the pasting of the formula into the cell becomes
'ActiveSheet.paste' rather than pasting the actual formula into the cell.

Cheers.

 

[Bernie Deitrick]

Andy,

You're welcome. Cross-posting can only result in unnecessary effort - most of these groups are
monitored by the same people anyway, which is why I saw your cross-post. But if I hadn't seen it and
didn't reply to it, someone might have done so later, when seeing an un-answered post, not knowing
that I had answered your question here.

Bernie
MS Excel MVP