PDA

View Full Version : Solved: Copy/Paste cells?



Ryu
11-17-2008, 05:57 AM
Hi people,

What I want to do is really simple but annoying at the same time, was hoping someone could offer me some help please. What I have is loads of worksheets and I want to copy cells A3 to K6 from worksheet 1 and paste them in all of the worksheets in the same cells.

So far I have the following coding:



Public Sub CopyPaste()
Dim wksh As Worksheet

For Each wksh In ActiveWorkbook.Worksheets
wksh.Range("A3:K6").Copy Destination:=wksh.Range("A3:K6")
Next
End Sub



The only problem is that what I want is the allignment of the cells to be exactly the same as they are in worksheets 1 in all of the worksheets - so basically once the data has been copied over I want the column size to remain the same.

Thanks

Bob Phillips
11-17-2008, 06:07 AM
That code doesn't copy from worksheet 1.

And doesn't copy maintain the alignment?

Ryu
11-17-2008, 09:44 AM
Problem solved

lucas
11-17-2008, 09:49 AM
Can you show your work.....where you qualified the copy so others can learn from your project?