Copying latest date from weekly workbook
Assuming the dates are in col A you could try some thing like:
Sub MoveData()
Dim wbk1 as Workbook
Dim wbk2 as Workbook
Dim Source as Range
Dim Dest as Range
Set wbk1 = ActiveWorkbook
Set Source = wbk1.Sheets(1).Range("A65536").End(xlUp).EntireRow
Set wbk2 = Workbooks("MyOtherBook")
Set Dest = wbk2.Sheets(1).Range("A65536").End(xlUp)
Source.Copy Dest
End Sub
"Meltad" wrote:
Hi everyone,
I'm trying to write a macro to copy data from one workbook to another. I
have opened the first workbook which has a weeks worth of dates and data, and
need to identify and copy the latest date on that workbook and paste into the
new workbook. The data is sorted by date so the latest date is always at the
bottom. Is there a way of selecting the rows for the most recent date only??
I hope someone can help me!
Thanks, Mel
|