Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Paste Cells With Data To Another Sheet
I am trying to automate a sheet that I will update on a daily basis.
My source (raw data) sheet is a rolling list of bank transactions. I will paste new data at the bottom of this sheet. Consequently, the "LastRow" is changing every time I update it. I want to copy all of the data and paste it to another "Master" sheet. I cannot figure out the code to select and copy the data from cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on "Master Sheet". I am sure this is a pretty easy fix. Can someone help me out? Thanks. Kevin |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Paste Cells With Data To Another Sheet
Option Explicit
Sub testme01() Dim LastRow as long dim DestCell as Range dim RngToCopy as range with worksheets("Raw Data Sheet") 'column K always has something in it? 'if not, use a different column lastrow = .cells(.rows.count,"K").end(xlup).row set rngtocopy = .range("a2:K" & lastrow) end with with worksheets("master") set DestCell = .range("a2") end with rngtocopy.copy _ destination:=destcell end sub DoooWhat wrote: I am trying to automate a sheet that I will update on a daily basis. My source (raw data) sheet is a rolling list of bank transactions. I will paste new data at the bottom of this sheet. Consequently, the "LastRow" is changing every time I update it. I want to copy all of the data and paste it to another "Master" sheet. I cannot figure out the code to select and copy the data from cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on "Master Sheet". I am sure this is a pretty easy fix. Can someone help me out? Thanks. Kevin -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Paste Cells With Data To Another Sheet
On Jan 31, 10:26 am, Dave Peterson wrote:
Option Explicit Sub testme01() Dim LastRow as long dim DestCell as Range dim RngToCopy as range with worksheets("Raw Data Sheet") 'column K always has something in it? 'if not, use a different column lastrow = .cells(.rows.count,"K").end(xlup).row set rngtocopy = .range("a2:K" & lastrow) end with with worksheets("master") set DestCell = .range("a2") end with rngtocopy.copy _ destination:=destcell end sub DoooWhat wrote: I am trying to automate a sheet that I will update on a daily basis. My source (raw data) sheet is a rolling list of bank transactions. I will paste new data at the bottom of this sheet. Consequently, the "LastRow" is changing every time I update it. I want to copy all of the data and paste it to another "Master" sheet. I cannot figure out the code to select and copy the data from cell A2 to K(lastrow) on "Raw Data Sheet" and paste it to cell A2 on "Master Sheet". I am sure this is a pretty easy fix. Can someone help me out? Thanks. Kevin -- Dave Peterson- Hide quoted text - - Show quoted text - Dave: You rock! Thanks a bunch. Kevin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sorting 2 colums of numbers and incremening them down | Excel Discussion (Misc queries) | |||
Macro question | Excel Worksheet Functions | |||
Inputting data to one worksheet for it effect another | Excel Discussion (Misc queries) | |||
Paste Data into Contiguous (Visible) Cells | New Users to Excel | |||
populate cells with data from another sheet | Excel Worksheet Functions |