Copy Paste (2000)

Topic

New Reply

I have run into a snag in running the following macro:
Sub CopyPasteSpecial()
Application.ScreenUpdating = False
Range(“A3:A61”).Select ‘(The range I

Reply | Quote

Replies

All of this can be shortened to:

Sub CopyPasteSpecial()
Dim oSource as range
Dim oTarget as range
Application.ScreenUpdating = False
Set oSource=Range(“A3:A61”) ‘(The range I

Reply | Quote

All of this can be shortened to:

Sub CopyPasteSpecial()
Dim oSource as range
Dim oTarget as range
Application.ScreenUpdating = False
Set oSource=Range(“A3:A61”) ‘(The range I

Reply | Quote

You’ll run into problems is column B is still empty – your code will move to th elast cell in column B (B65536) and then try to move one row down, which is impossible. Try the following modified and shortened version:

Sub CopyPasteSpecial()
Application.ScreenUpdating = False
Range(“A3:A61″).Copy
Workbooks.Open Filename:=”C:My DocumentsSpecialHandicaps.xls” ‘(The file I

Reply | Quote

Hans,
Thank you for your immediate reply. The only problem is the macro stops at:
Sheets(“Scores”).Range(“B66536”).End(xlUp).Offset(1, 0).PasteSpecial _
xlValues
Any idea why?
Thanks

Reply | Quote

No, I tried it out on a test workbook and it worked OK. What is the error message you get?

Reply | Quote

Hans & Jan
IInstead of: Sheets(“Scores”).Range(“B66536”).End(xlUp).Offset(1, 0).PasteSpecial xlValues
on 1 line I used: Sheets(“Scores”).select
Range(“B65536”).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlValues
This seems to work but I don’t know why

At any rate, you guys got me aimed in the right direction.
Thanks tons!

Reply | Quote

Hans & Jan
IInstead of: Sheets(“Scores”).Range(“B66536”).End(xlUp).Offset(1, 0).PasteSpecial xlValues
on 1 line I used: Sheets(“Scores”).select
Range(“B65536”).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlValues
This seems to work but I don’t know why

At any rate, you guys got me aimed in the right direction.
Thanks tons!

Reply | Quote

No, I tried it out on a test workbook and it worked OK. What is the error message you get?

Reply | Quote

Maybe the clipboard got emptied so there is nothing to paste?

Try issuing the copy command after the workbooks.Open statement.

Reply | Quote

Maybe the clipboard got emptied so there is nothing to paste?

Try issuing the copy command after the workbooks.Open statement.

Reply | Quote

Hans,
Thank you for your immediate reply. The only problem is the macro stops at:
Sheets(“Scores”).Range(“B66536”).End(xlUp).Offset(1, 0).PasteSpecial _
xlValues
Any idea why?
Thanks

Reply | Quote