Paste cell to last row in range
 

i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"

Jack

Paste cell to last row in range
 

set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack

Paste cell to last row in range
 

Thanks that did the trick.

with this command i have pasted a formula into the range i would now like to
copy and paste back as a value. could you also help with that.

Jack

"Jim Cone" wrote:


set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack

Paste cell to last row in range
 

Jack,
Range("E1").Value = myrange.Value
--
Jim Cone
Portland, Oregon USA



"Jack"
wrote in message
Thanks that did the trick.
with this command i have pasted a formula into the range i would now like to
copy and paste back as a value. could you also help with that.
Jack




"Jim Cone" wrote:
set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack

Paste cell to last row in range
 

Jim

i'm sorry i wasn't clear

in e1 i have the formula =($a1&$b1) which was copied into
column c2 to c last row with the first code you provided
Now i want to change the formulas in c2 to c lastrow to values

"Jim Cone" wrote:

Jack,
Range("E1").Value = myrange.Value
--
Jim Cone
Portland, Oregon USA



"Jack"
wrote in message
Thanks that did the trick.
with this command i have pasted a formula into the range i would now like to
copy and paste back as a value. could you also help with that.
Jack




"Jim Cone" wrote:
set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack

Paste cell to last row in range
 

Jack,
And I was mixed up...
myrange.Value = myrange.Value
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
Jim
i'm sorry i wasn't clear
in e1 i have the formula =($a1&$b1) which was copied into
column c2 to c last row with the first code you provided
Now i want to change the formulas in c2 to c lastrow to values

"Jim Cone" wrote:

Jack,
Range("E1").Value = myrange.Value
--
Jim Cone
Portland, Oregon USA



"Jack"
wrote in message
Thanks that did the trick.
with this command i have pasted a formula into the range i would now like to
copy and paste back as a value. could you also help with that.
Jack




"Jim Cone" wrote:
set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack

Paste cell to last row in range
 

Jim
Thanks alot - this worked perfectly

"Jim Cone" wrote:

Jack,
And I was mixed up...
myrange.Value = myrange.Value
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
Jim
i'm sorry i wasn't clear
in e1 i have the formula =($a1&$b1) which was copied into
column c2 to c last row with the first code you provided
Now i want to change the formulas in c2 to c lastrow to values

"Jim Cone" wrote:

Jack,
Range("E1").Value = myrange.Value
--
Jim Cone
Portland, Oregon USA



"Jack"
wrote in message
Thanks that did the trick.
with this command i have pasted a formula into the range i would now like to
copy and paste back as a value. could you also help with that.
Jack




"Jim Cone" wrote:
set myrange = Range(Cells(2,"c"), Cells(lastrow, "c"))
Range("E1").Copy myrange
--
Jim Cone
Portland, Oregon USA




"Jack"
wrote in message
i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"
Jack