PC-HELP.CZ

Zdravím všechny excel machry, potřeboval bych pomoct s úpravou kódu.
Mám soubor, který potřebuju uložit jako nový soubor se zvoleným názvem, ale potřebuji to uložit jako hodnoty, protože v tomto souboru načítám data z jiných listů pomocí jiných funkcí.
Je možné modifikovat níže uvedený kód, kterým to nyní ukládám? Popřípadě vymyslet jiný způsob při zachvání podmínek názvu atd.

Díky

Private Sub CommandButton1_Click()
' SaveSheet()
Dim fName As String
ActiveSheet.Copy
With ActiveSheet.UsedRange
.Copy


End With
On Error Resume Next
ActiveSheet.OLEObjects.Visible = True
ActiveSheet.OLEObjects.Delete
On Error GoTo 0

Application.CutCopyMode = False
fName = Range("G1")
ActiveWorkbook.SaveCopyAs fileName:=fName & Format(Date, "yyyymmdd - ") & Range("C9").Text & ".xlsx"
FileFormat = xlOpenXMLWorkbook
ActiveWorkbook.Close (False)

MsgBox "Soubor byl uložen"

End Sub

Ahoj, řešil jsem něco podobného. Třeba ti to pomůže. http://www.pc-help.cz/viewtopic.php?f=35&t=127883&p=1000443#p1000443

Toto je super. Zrušilo to propojení které jsem tam měl nastavené. Akorát já bych potřeboval aby se všechno změnilo na hodnoty protože mám tam i jeden sloupec kde zůstal vzorec a to taky nechci aby šlo vidět.

I tak díky za super vylepšovák

Podobnou věc řeším tímto makrem. Asi to jde udělat i sofistikovaněji, ale označenou oblast kopíruji na stejné místo, akorát dám vložit jako hodnoty.
Vzorce se tím vyruší.

Transmit píše:Asi to jde udělat i sofistikovaněji

Ano - když už jste to zmínil, tak lze