|
Paste Special
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 |
Paste Special
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" wrote in message ... 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 |
Paste Special
I am getting a Run-time error 1004.
"Bob Phillips" wrote: 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" wrote in message ... 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 |
Paste Special
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 Jasmine wrote: I am getting a Run-time error 1004. "Bob Phillips" wrote: 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" wrote in message ... 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 |
Paste Special
That worked! Thanks!
"Dave Peterson" wrote: 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 Jasmine wrote: I am getting a Run-time error 1004. "Bob Phillips" wrote: 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" wrote in message ... 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 |
| All times are GMT +1. The time now is 09:36 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com