copy and paste values in a range
Absolutely nothing.
I just like to fully qualify my ranges (with worksheets(...)) and I like to use
named parameters. And I like two lines--just for ease of reading.
Gary Keramidas wrote:
just curious, what would be wrong with just using 1 line like this?
Range("B4:AD49").Copy Range("B53")
--
Gary
"Dave Peterson" wrote in message
...
with worksheets("sheet9999")
.range("b4:ad49").copy _
destination:=.range("b53")
end with
If you really only need values:
dim RngToCopy as range
with worksheets("sheet9999")
set rngtocopy = .range("b4:ad49")
.range("b53").resize(rngtocopy.rows.count,rngtocop y.columns.count).value _
= rngtocopy.value
end with
Or
with worksheets("sheet9999")
.range("b4:ad49").copy
.range("b53").pastespecial paste:=xlpastespecialvalues
end with
Dave F wrote:
This should be a simple VBA routine:
I have a range, B4:AD49
I want to copy the range and paste its values in another range. The upper
left hand corner of this new range would be B53 of the same worksheet. How
would I do this via VBA?
(Why am I doing this? Because this sheet is part of a larger model, and the
sheet is being used by a novice to Excel who needs only the values in the
aforementioned range. I figure copying this range and pasting its values
elsewhere on the sheet is the easiest way to idiot-proof the data. Once I
figure out how to copy and paste the values in range B4:AD49, I'll then have
the macro hide rows that don't need to be viewed by the novice user.)
--
Brevity is the soul of wit.
--
Dave Peterson
--
Dave Peterson
|