Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy Column Width | Excel Programming | |||
Copy Column Width | Excel Programming | |||
Can I copy row height like i copy column width? | Excel Discussion (Misc queries) | |||
Copy Column width | Excel Discussion (Misc queries) | |||
Copy column width along with data?? | Excel Discussion (Misc queries) |