Copy / Paste problem

Caltrin · May 25th 2004

Sub CopyTest()

Range("A1:H18").Copy
Range("A65536").Select
Selection.End(xlUp).Select

ActiveCell.Offset(7, 0).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("A65536").Select
Selection.End(xlUp).Select

Application.CutCopyMode = False
ActiveCell.Offset(0, 0).Select

End Sub

this is the code I use now.... It does the paste BUT it doesn't paste correctly.. I mean when I copy and paste manually all the formulas work when I use this code above everything seems OK but formulas do not work correctly ... can you give me the adaptation so that the above code actually does the same thing as a manual copy paste fro everything in range A1:H18 with a few rows in between so that the user can click a button assigned with this macro and create copies of the selected area at will

yjoshi · May 25th 2004

Hi,

I think you can increas performace of your code by this way

Code

Sub CopyTest1()
   Range("A1:H18").Copy Destination:=Range("A65536").End(xlUp).Offset(7, 0)
   Range("A65536").End(xlUp).Select
End Sub

Also, I tested the code and is working fine even with formulae.

Can you tell what is the problem with formulae?

Caltrin · May 25th 2004

Doesnt work correctly

If I manually copy paste and tanspose my table it works

If I manually copy paste no transpose it doesnt work

but I dont want my table to be in another direction ! (thats what the transpose does apparently)

If I use your code it gives a copy but it doesn"t work completely

only if I traspose it works ... I wonder why

yjoshi · May 25th 2004

Do you want Paste Transpose?

Code

Sub CopyTest1()
   Range("A1:H18").Copy
   Range("A65536").End(xlUp).Offset(7, 0).PasteSpecial Transpose:=True
   Range("A65536").End(xlUp).Select
End Sub

My sincere apologies if i am still unable to understand.... If you can describe your problem better, it can help

Copy / Paste problem

Participate now!

Share