Werkblad automatisch opslaan Opmaak+Waardes

[tom01234]

Goedemiddag,

Ik wil graag een werkblad opslaan als nieuw werkblad. Nu gaat dit prima met volgende code:


Public Sub OpslBestand()

Dim ControleDocu As Variant
Sheets("controledocument").Copy
ControleDocu = "C:\Users\Gebruiker\Desktop\Controles 2016-2017" & Range("R1").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close

End Sub

Nu slaat deze 1 werkblad op als nieuw bestand maar met behoud van formules in het tabblad "controledocument". Ik wil dat deze formules vast waardes worden zodat dit geen verwijzingen worden.
Dit met behoud van opmaak van het blad.

Wie kan me helpen?

Bij voorbaat dank!

 

[edmoor]

Door dit er bij in te zetten direct na de Copy en voor het opslaan:

Dim cl As Range
For Each cl In ActiveWorkbook.Sheets(ActiveSheet.Name).UsedRange
    If cl.HasFormula Then cl.Value = cl.Value
Next cl

 

[HSV]

Misschien is dit al voeldoende.

[COLOR=#3E3E3E]Sheets("controledocument").Copy[/COLOR]
[COLOR=#0000ff]activesheet.usedrange =activesheet.usedrange.value[/COLOR]
[COLOR=#3E3E3E]ControleDocu = "C:\Users\Gebruiker\Desktop\Controles 2016-2017" & Range("R1").Value & ".xlsx"[/COLOR]

 

[tom01234]

Bedankt voor de hulp met bovenstaande oplossingen kan ik verder!