Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
save a range to copy for later
I want to select a range starting with active cell to the last row and copy
it... but first I have to clear the copy range starting in A3... then paste in A3. can someone help? first = ActiveCell.Address col = ActiveCell.Column lastrow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row lst = "r" & lastrow & "c" & col Range("A3").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range(first, lst).Copy Range("a3").Select Selection.PasteSpecial Paste:=xlValue |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
save a range to copy for later
And the activecell won't be in column A, right???
dim TopCell as range dim BotCell as range with activesheet if activecell.column = 1 then msgbox "Not from column A!" else set topcell = activecell set botcell = .cells(.rows.count,topcell.column).end(xlup) if topcell.row botcell.row then msgbox "this doesn't look right!" else .range("a3:a" & .rows.count).clearcontents .range(topcell, botcell).copy .range("A3").pastespecial paste:=xlpastevalues end if end if end with John wrote: I want to select a range starting with active cell to the last row and copy it... but first I have to clear the copy range starting in A3... then paste in A3. can someone help? first = ActiveCell.Address col = ActiveCell.Column lastrow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row lst = "r" & lastrow & "c" & col Range("A3").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range(first, lst).Copy Range("a3").Select Selection.PasteSpecial Paste:=xlValue -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
save a range to copy for later
Nevermind...
lastcell = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Address rather than .row "John" wrote: I want to select a range starting with active cell to the last row and copy it... but first I have to clear the copy range starting in A3... then paste in A3. can someone help? first = ActiveCell.Address col = ActiveCell.Column lastrow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row lst = "r" & lastrow & "c" & col Range("A3").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range(first, lst).Copy Range("a3").Select Selection.PasteSpecial Paste:=xlValue |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Subscript out of range error - save copy error | Excel Programming | |||
Subscript out of range error - save copy error | Excel Programming | |||
Save column J only using copy/paste & temporary copy | Excel Programming | |||
copy formulas from a contiguous range to a safe place and copy them back later | Excel Programming | |||
How to save a file without overwrite or save a copy? | Setting up and Configuration of Excel |