copy paste as value except total rows

[Vcoppens]

Hi, I am not sure if this is possible.

I have an excel spreadsheet with lots of formulas - I call it my worksheet.

To be presented to mgmnt, the content needs to be pasted as a numbers value only. This I know how to do.

The "Total" rows (meaning subtotal and grandtotal rows) need to show the formulas in the final spreadsheet.

Is there an easy way to do this?

Right now I do copy - paste value and overwrite the "Totals" row as a copy - paste formula.

I am not very good with macros.

Thank you very much !

 

[TheRogue]

I would do it exactly as you said.
Another option would be to create a copy of the original sheet (w/ the formulas) & change all of the formulas to =Sheet1!A1 (A2,A3 & so forth), then hide Sheet1.
They get their numbers, the formulas on what they see are meaningless, your formulas are protected (but still there) & you can protect the whole thing, so that they can't break it (or unhide Sheet1).

 

[Sam_D_Ben]

Guess using "Show Formula" function in the formula tab will help you.

 

[Michael M]

@Vcoppens
Make a sheet called "mgmnt" then use this code

Sub MM1()
Dim lr As Long
ActiveSheet.UsedRange.Copy Sheets("mgmnt").Range("A1")
lr = Sheets("mgmnt").Cells(Rows.Count, "A").End(xlUp).Row
    With Sheets("mgmnt").Rows("1:" & lr - 1)
        .Value = .Value
    End With
End Sub

 

[Vcoppens]

@Vcoppens
Make a sheet called "mgmnt" then use this code

Sub MM1()
Dim lr As Long
ActiveSheet.UsedRange.Copy Sheets("mgmnt").Range("A1")
lr = Sheets("mgmnt").Cells(Rows.Count, "A").End(xlUp).Row
    With Sheets("mgmnt").Rows("1:" & lr - 1)
        .Value = .Value
    End With
End Sub

Thank you very much MichaelM, Sam-D-Ben and TheRogue: I will be working on your suggestions and see which one does the best job.

Have a nice weekend!