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 |
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) |