ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copy worksheet and paste it in New workbook, all data except Formulas (https://www.excelbanter.com/excel-programming/299463-copy-worksheet-paste-new-workbook-all-data-except-formulas.html)

Sudarshan

Copy worksheet and paste it in New workbook, all data except Formulas
 
Hi,

I want to copy the entire worksheet and paste it into new
worksheet in new workbook. I want to copy everything
except formulas. I am able to do it though Paste special ,
values, format , comments everythings goes very well to
new worksheet except the Images. I have some images in
some cells in my workbook.

How to copy and paste images too..though VBA programming.

Thanks in advance.

Doug Glancy

Copy worksheet and paste it in New workbook, all data except Formulas
 
Sudarshan,

This copies Sheet1 from Book1 to Book2, adding the new sheet at the
beginning. It copies the whole sheet including images. The second line
converts all formulas in the UsedRange of the copied sheet to values:

Workbooks("Book1").Sheets("Sheet1").Copy
Befo=Workbooks("Book2").Sheets(1)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

hth,

Doug Glancy
"Sudarshan" wrote in message
...
Hi,

I want to copy the entire worksheet and paste it into new
worksheet in new workbook. I want to copy everything
except formulas. I am able to do it though Paste special ,
values, format , comments everythings goes very well to
new worksheet except the Images. I have some images in
some cells in my workbook.

How to copy and paste images too..though VBA programming.

Thanks in advance.




Sudarshan[_2_]

Copy worksheet and paste it in New workbook, all data except Formulas
 

-----Original Message-----
Sudarshan,

This copies Sheet1 from Book1 to Book2, adding the new

sheet at the
beginning. It copies the whole sheet including images.

The second line
converts all formulas in the UsedRange of the copied

sheet to values:

Workbooks("Book1").Sheets("Sheet1").Copy
Befo=Workbooks("Book2").Sheets(1)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

hth,

Doug Glancy
"Sudarshan" wrote

in message
...
Hi,

I want to copy the entire worksheet and paste it into

new
worksheet in new workbook. I want to copy everything
except formulas. I am able to do it though Paste

special ,
values, format , comments everythings goes very well to
new worksheet except the Images. I have some images in
some cells in my workbook.

How to copy and paste images too..though VBA

programming.

Thanks in advance.



.


Sudarshan[_2_]

Copy worksheet and paste it in New workbook, all data except Formulas
 
Hi,

Thanks for quick reply..It works fine..But I have one
problem.. The sheets which I am Copying has VBA code
behind it.. I don't want the code to be copied new
worksheet.. Any solutions for it..

Thanks,

Sudarshan


-----Original Message-----
Sudarshan,

This copies Sheet1 from Book1 to Book2, adding the new

sheet at the
beginning. It copies the whole sheet including images.

The second line
converts all formulas in the UsedRange of the copied

sheet to values:

Workbooks("Book1").Sheets("Sheet1").Copy
Befo=Workbooks("Book2").Sheets(1)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

hth,

Doug Glancy
"Sudarshan" wrote

in message
...
Hi,

I want to copy the entire worksheet and paste it into

new
worksheet in new workbook. I want to copy everything
except formulas. I am able to do it though Paste

special ,
values, format , comments everythings goes very well to
new worksheet except the Images. I have some images in
some cells in my workbook.

How to copy and paste images too..though VBA

programming.

Thanks in advance.



.


Frank Kabel

Copy worksheet and paste it in New workbook, all data except Formulas
 
Hi
see your other post

--
Regards
Frank Kabel
Frankfurt, Germany


Sudarshan wrote:
Hi,

Thanks for quick reply..It works fine..But I have one
problem.. The sheets which I am Copying has VBA code
behind it.. I don't want the code to be copied new
worksheet.. Any solutions for it..

Thanks,

Sudarshan


-----Original Message-----
Sudarshan,

This copies Sheet1 from Book1 to Book2, adding the new sheet at the
beginning. It copies the whole sheet including images. The second
line converts all formulas in the UsedRange of the copied sheet to
values:

Workbooks("Book1").Sheets("Sheet1").Copy
Befo=Workbooks("Book2").Sheets(1)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

hth,

Doug Glancy
"Sudarshan" wrote in message
...
Hi,

I want to copy the entire worksheet and paste it into new
worksheet in new workbook. I want to copy everything
except formulas. I am able to do it though Paste special ,
values, format , comments everythings goes very well to
new worksheet except the Images. I have some images in
some cells in my workbook.

How to copy and paste images too..though VBA programming.

Thanks in advance.



.




All times are GMT +1. The time now is 04:52 PM.

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