Copy just the values

[Jaz]

I have a excel spreadsheet that has a formula for each cell. Is there a way
to copy just the results and past them into a new worksheet? That way, it
doesn't have to reference and formulas or workbooks?

Thanks,
Jasper

 

[Ron de Bruin]

Hi Jaz

Worksheet or workbook ?

You can copy for example the activesheet in a new workbook and change the formulas to values

Manual
Copy the cells and use Edit>PasteSpecial...values on the new sheet


Or with code


Dim Destwb As Workbook

ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Change all cells in the worksheet to values
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False

 

[Jaz]

THANKS!!!

Hi Jaz

Worksheet or workbook ?

You can copy for example the activesheet in a new workbook and change the formulas to values

Manual
Copy the cells and use Edit>PasteSpecial...values on the new sheet


Or with code


Dim Destwb As Workbook

ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Change all cells in the worksheet to values
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False