AutoFill Problem 1

[jupops]

Good Evening All

Could you please help. I have created a macro with the following code:

Range("H2&quot.Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[4]/RC[-1]"
Selection.AutoFill Destination:=Range("H2:H4893&quot
Range("H2:H4893&quot.Select

This code should have done a simple formula of =L2/G2 and then copied the formula using autofill. It works on the first cell, but then just copies that cells result down the column.

The L and G columns are copied from another sheet, Will that make a difference?

Regards

Jupops

 

[robcarr]

The coding works fine, I just copied from your post into a module and it worked.

Do you have calculation on, after the coding runs, this might be the reason.

in the cell H3, do you have a formula? if so calcualtion is off.
USe the command after your post of
Application.Calculation = xlCalculationAutomatic
this will make sure calcualtion is automatic.

Here also is a simplified version of your code.

Range("H2&quot.FormulaR1C1 = "=RC[4]/RC[-1]"
Selection.AutoFill Destination:=Range("H2:H4893&quot
Application.Calculation = xlCalculationAutomatic

this works just as well.

Hope it helps.





Thanks Rob.

 

[jupops]

Thanks Rob

This was just perfect

Thank You

Jupops