formating paste problem

[rjointern]

Hi,

So I've created some code that will copy and paste data from one worksheet in one workbook to another new worksheet that I have to create. Is there any way to automatically keep the textsize, column spacings, row spacings etc from the data that was copied?

Also the way that i am copying is using the workbook.worksheet.range.copy code, is there any way to not have to use the range and just copy the entire sheet in it's entirety? This would alleviate the issue I think, but I have failed to find the proper coding.

thanks.

 

[Norie]

Can we see your code?

You can copy an entire worksheet like this.

Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)

 

[rjointern]

heres my code

here's all four lines of code for my copying..

Workbooks("omg.xls").Sheets("adfas").Range("a1:da150").Copy
Workbooks("bbq.xls").Worksheets.Add
ActiveSheet.Name = "Day " & r
ActiveSheet.Paste

I don't know the way you're doing it. I'm a real novice at vba, but fairly good at c++ but it's been a while... so it's a little change

thnx for the help

 

[rjointern]

hmm

well that helped out immensely actually. thanks a bundle.

 

[rjointern]

um actually, i have another question... how can i use that code and take the data that i am copying and paste it into another workbook?

i'm trying to use..

Worksheets("omg.xls").Copy After:=Worksheets(Worksheets.Count)
Workbooks("bbq.xls").Worksheets.Add
Activesheet.name = "Day " & r
activesheet.Paste

but it's pasting the data in the omg.xls and not in the bbq xls like i want to....

any help would be appreciated

 

[Norie]

Try this.

Worksheets("omg.xls").Copy After:=Workbooks("bbq.xls").Worksheets(Workbooks("bbq.xls").Worksheets.Count)

 

[rjointern]

got a subscript out of range error.. and i also believe u meant to change omg.xls to my sheet name right?


Worksheets("asdfsa").Copy After:=Workbooks("bbq.xls").Worksheets(Workbooks("bbq.xls").Worksheets.Count)

thnx though

 

[rjointern]

omg!!

nevermind.. lol i'm so sorry it actually did work, my stupid testing earlier renamed one of the sheets so it didn't work initially... but i caught that..

thanks a lot man, you rock!