ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copy Range including Formats and Forumulas (https://www.excelbanter.com/excel-programming/383841-copy-range-including-formats-forumulas.html)

ALV

Copy Range including Formats and Forumulas
 
We are trying to copy a Range to another worksheet in a C# Excel 2007 add-in
and want to get everything from the source range, including the cell formats
and formulas.

Our code is:

Excel.ListObject inTable -- is passed to the function

Excel.Range drange = inWorksheet.get_Range("A1", Type.Missing);
Excel.Range tableRange = drange;
Excel.ListColumn lcolumn = inTable.ListColumns[column];
lcolumn.Range.Copy(drange);
Excel.Range trange = drange.get_Resize(lcolumn.Range.Count, 1);
tableRange = inTable.Application.Union(tableRange, trange, Type.Missing,
Type.Missing,Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing,


The result of the copy has only the values from the source range.

Thanks.

ALV

Copy Range including Formats and Forumulas
 
We found the cause for this...a call to set the range style in another
function was messing up the copy.

"ALV" wrote:

We are trying to copy a Range to another worksheet in a C# Excel 2007 add-in
and want to get everything from the source range, including the cell formats
and formulas.

Our code is:

Excel.ListObject inTable -- is passed to the function

Excel.Range drange = inWorksheet.get_Range("A1", Type.Missing);
Excel.Range tableRange = drange;
Excel.ListColumn lcolumn = inTable.ListColumns[column];
lcolumn.Range.Copy(drange);
Excel.Range trange = drange.get_Resize(lcolumn.Range.Count, 1);
tableRange = inTable.Application.Union(tableRange, trange, Type.Missing,
Type.Missing,Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing,


The result of the copy has only the values from the source range.

Thanks.



All times are GMT +1. The time now is 03:20 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com