Copy Column Width
Ha! So close, yet so far away :)
Thanks Garry! On Wednesday, May 4, 2011 3:48:26 PM UTC-6, GS wrote: After serious thinking Steve wrote : Hi Garry, I'm getting an "expected end statement" on this line: .UsedRange.Copy wksTarget.range("1:1").PasteSpecial xlPasteColumnWidths within this subset of code: With wksSource .Columns("K:K").AutoFilter Field:=1, Criteria1:="Y" .UsedRange.Copy wksTarget.Range("1:1").PasteSpecial xlPasteColumnWidths .UsedRange.Copy wksTarget.Range("1:1") '//put the data .Columns("K:K").AutoFilter End With On Wednesday, May 4, 2011 2:03:34 PM UTC-6, GS wrote: Steve has brought this to us : Hello. I'm copying a range of cells with the code below to a different worksheet. How can I modify the code to also copy over the column widths from the source page? Thanks! With wksSource .Columns("K:K").AutoFilter Field:=1, Criteria1:="Y" .UsedRange.Copy wksTarget.Rows("1:1") .Columns("K:K").AutoFilter End With Try... With wksSource .Columns("K:K").AutoFilter Field:=1, Criteria1:="Y" .UsedRange.Copy wksTarget.Range("1:1").PasteSpecial xlPasteColumnWidths .UsedRange.Copy wksTarget.Range("1:1") '//put the data .Columns("K:K").AutoFilter End With -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Steve, That's supposed to be 2 separate lines. Your trying to infer the destination and you can't do that with PasteSpecial. So either put it back the way I posted it OR separate the two with a colon. -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
Copy Column Width
Steve formulated on Wednesday :
Ha! So close, yet so far away :) Thanks Garry! You're welcome! <FWIW The order of things is deliberate so as to avoid the overwrite alert that comes with Paste or PasteSpecial. so the columns get formatted before dumping the data into them. -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
All times are GMT +1. The time now is 11:35 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com