Paste Special

[Jasmine]

I am trying to write in my macro to put a specific formula in cell C2 then
copy it to all cells in that column that are active rows. The active rows
will change each time, so I may have 50 then 25. I then need to copy that
column and do a paste special values to get rid of the formula and just have
the value. Here is the code, but it is not working. Please help!

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]>0,400,500)"
Selection.Copy
lastrow = Cells(Rows.Count, "c").End(xlUp).Row
ActiveSheet.PasteSpecial Paste:=xlPasteValues

 

[Bob Phillips]

LastRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("C2").Resize(LastRow - 1).FormulaR1C1 = "=IF(RC[2]>0,400,500)"


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Jasmine]

I am getting a Run-time error 1004.

LastRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("C2").Resize(LastRow - 1).FormulaR1C1 = "=IF(RC[2]>0,400,500)"


--

HTH

RP
(remove nothere from the email address if mailing direct)

I am trying to write in my macro to put a specific formula in cell C2 then
copy it to all cells in that column that are active rows. The active rows
will change each time, so I may have 50 then 25. I then need to copy that
column and do a paste special values to get rid of the formula and just have
the value. Here is the code, but it is not working. Please help!

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]>0,400,500)"
Selection.Copy
lastrow = Cells(Rows.Count, "c").End(xlUp).Row
ActiveSheet.PasteSpecial Paste:=xlPasteValues

 

[Dave Peterson]

Do you have anything in column C?

If not, then LastRow will be 1 and lastrow -1 will be 0.

Can you use a different column than C to get the lastrow...

Maybe B:

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

I am getting a Run-time error 1004.

LastRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("C2").Resize(LastRow - 1).FormulaR1C1 = "=IF(RC[2]>0,400,500)"


--

HTH

RP
(remove nothere from the email address if mailing direct)

I am trying to write in my macro to put a specific formula in cell C2 then
copy it to all cells in that column that are active rows. The active rows
will change each time, so I may have 50 then 25. I then need to copy that
column and do a paste special values to get rid of the formula and just have
the value. Here is the code, but it is not working. Please help!

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]>0,400,500)"
Selection.Copy
lastrow = Cells(Rows.Count, "c").End(xlUp).Row
ActiveSheet.PasteSpecial Paste:=xlPasteValues

 

[Jasmine]

That worked! Thanks!

Do you have anything in column C?

If not, then LastRow will be 1 and lastrow -1 will be 0.

Can you use a different column than C to get the lastrow...

Maybe B:

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

I am getting a Run-time error 1004.

LastRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("C2").Resize(LastRow - 1).FormulaR1C1 = "=IF(RC[2]>0,400,500)"


--

HTH

RP
(remove nothere from the email address if mailing direct)


I am trying to write in my macro to put a specific formula in cell C2 then
copy it to all cells in that column that are active rows. The active rows
will change each time, so I may have 50 then 25. I then need to copy that
column and do a paste special values to get rid of the formula and just
have
the value. Here is the code, but it is not working. Please help!

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]>0,400,500)"
Selection.Copy
lastrow = Cells(Rows.Count, "c").End(xlUp).Row
ActiveSheet.PasteSpecial Paste:=xlPasteValues