Copy and paste with code from open workbook to closed workbook.

[asyamonique]

Dim LR As Long
Range("AL2:AO53").Copy
Workbooks.Open Filename:="S:\Entries\Entries.xls"
LR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A" & LR + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close

Good Day,
Im having trouble with the above code.
Its simply copying the datas from master file and paste into the closed workbook.
Could anybody help me on that why its not copying from A1 and all the way down.
The datas goes different ranges and when i make the next click its overwriting the new datas on same location.
Many Thanks

 

[Norie]

What closed workbook?

You seem to be opening the workbook you are pasting in and copying from the workbook the code is in, which I assume is open.

Mind you opening the workbook might be clearing the clipboard.

Dim wb As Workbook
Dim rngSrc As Range
Dim rngDst As Range
Dim LR As Long

     Set rngSrc = Range("AL2:AO53")

     Set wb = Workbooks.Open (Filename:="S:\Entries\Entries.xls")
 
     Set rngDst = wb.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1)
 
     rngSrc.Copy

     rngDst.PasteSpecial Paste:=xlPasteValues

    wb.Save

    wb.Close False

 

[asyamonique]

What closed workbook?

You seem to be opening the workbook you are pasting in and copying from the workbook the code is in, which I assume is open.

Mind you opening the workbook might be clearing the clipboard.

Dim wb As Workbook
Dim rngSrc As Range
Dim rngDst As Range
Dim LR As Long
 
     Set rngSrc = Range("AL2:AO53")
 
     Set wb = Workbooks.Open (Filename:="S:\Entries\Entries.xls")
 
     Set rngDst = wb.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1)
 
     rngSrc.Copy
 
     rngDst.PasteSpecial Paste:=xlPasteValues
 
    wb.Save
 
    wb.Close False

Thanks for the quick reply.
Norie, what if the destination workbook has password,
Many thanks.