Copy data from open workbook into the close workbook.

[asyamonique]

 Range("A1:D20").Select
    Selection.Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWorkbook.Save
    ActiveWindow.Close

Good Day,
Could someone help me on that captioned code?
When i run that code i don't want to lost the previous datas from close workbook.I just want the code will simply continiously copy the datas all the way down like

.End(xlUp).Row + 1

everytime run the code.

Many Thanks

 

[MrKowz]

Try:

Range("A1:D20").Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Paste
    ActiveWorkbook.Save
    ActiveWindow.Close

 

[asyamonique]

Wow thanks for your very quick reply..
Cheers.

 

[MrKowz]

Wow thanks for your very quick reply..
Cheers.

No problem, thanks for the feedback.

 

[asyamonique]

Sorry Mate but it does give error on the code

  Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Paste

and run time error is 438
Any idea about that?

 

[MrKowz]

Sorry Mate but it does give error on the code

  Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Paste

and run time error is 438
Any idea about that?

Does it give you any other dialogue along with the run time error?

 

[asyamonique]

Object doesn't support this property or method.

 

[MrKowz]

Hmm - paste can be finicky sometimes:

Dim LR As Long
Range("A1:D20").Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A" & LR + 1).Paste
    ActiveWorkbook.Save
    ActiveWindow.Close

if that doesn't work, try:

Dim LR As Long
Range("A1:D20").Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A" & LR + 1).PasteSpecial
    ActiveWorkbook.Save
    ActiveWindow.Close

 

[asyamonique]

Thats is Mate!
Greately Appriciated
Cheers

 

[asyamonique]

Hmm - paste can be finicky sometimes:

Dim LR As Long
Range("A1:D20").Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A" & LR + 1).Paste
    ActiveWorkbook.Save
    ActiveWindow.Close

if that doesn't work, try:

Dim LR As Long
Range("A1:D20").Copy
    Workbooks.Open Filename:="D:\....\.....\0600.xls"
    LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A" & LR + 1).PasteSpecial
    ActiveWorkbook.Save
    ActiveWindow.Close

MrKowz,
Good Day,
Could you help me on your code?
The ranges has been changed to (A1:D52) and the closed workbook is now hiding file due to prevent to access.
Is it possible to alter the code?
Many Thanks.