About Us

sugargenius

Don Guillett wrote:
Sub columntovalues()
Columns("m").Value = Columns("m").Value
End Sub
or
Columns(activecell.column).Value = Columns(activecell.column).Value

--
Don Guillett
SalesAid Software

"sugargenius" wrote in message
oups.com...
I need to copy a column and paste it special to remove formulas. The
columns position is variable.

here's what i've tried so far

*--remove formula for totals
IF lnTotalColumn 1
loXLSheet.Columns(lnTotalColumn).Copy
*!* loXLSheet.Range(Get_Col(lnTotalColumn)+
"1").PasteSpecial(xlPasteValues)
*!* loXLSheet.Columns(lnTotalColumn).PasteSpecial(xlPa steValues)
loXLSheet.Range(Get_Col(lnTotalColumn)+ "1").Select
loXLSheet.Application.Selection.PasteSpecial(xlPas teValues)
ENDIF

Most threw error:
OLE IDispatch exception code 0 from Microsoft Office Excel: This
operation requires the merged cells to be identically sized... (1429)

I'd rather not use selection.

Thanks for the suggestion Don. It doesn't work via OLE for some
reason. I get error

Array dimensions are invalid. (230)

If I loop through each cell, it works:

FOR x=4 TO loXLSheet.Cells(65536, lnTotalColumn).End(xlUp).Row
loXLSheet.Cells(x,lnTotalColumn).Value =
loXLSheet.Cells(x,lnTotalColumn).Value
ENDFOR

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy column, paste special formulas & number formats doesn't work	Beckey	Excel Discussion (Misc queries)	3	July 30th 09 07:51 PM
Copy and Paste formulas	GG	Excel Discussion (Misc queries)	1	October 30th 08 05:36 AM
copy data and formulas from a column and paste into a row	john.laffe[_2_]	Excel Worksheet Functions	1	December 12th 07 02:59 PM
Find last column, move formulas over, copy/paste data	Mike R.	Excel Worksheet Functions	0	September 19th 07 06:40 AM
Copy & Paste formulas	Urgent	Excel Programming	3	January 25th 05 10:47 PM

Menu

About Us