MS Excel

Téma: Odebrání vzorců před uložením z buněk

Zaslal/a golfino 7.1.2014 17:27

Ahojte používám tlačítko na uložení a vytvoření zálohy dokumentu. Dokument se mi ukládá v názvu s datumem tak že mám zálohy každý den. Aby záloha když ji otevřu byla celá a nepočítala se podle dnešní data tak před ukložením odebírám vzorce tímto VBA.

Sub ULOZIT()

ThisWorkbook.Save
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Copy
ws.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\kniha_ukladani\Kniha_sluzeb_" & Range("G11") & "_" & Range("G12").Text & "_" & Range("F7").Text & ".xlsm"
MsgBox ("KNIHA BYLA ULOŽENA. ZAVÍRÁM KNIHU.")
Application.Quit
End Sub

problém je nyní v tom že záloha je celá bez vzorců

mě by stačilo aby kod odebral vzorce jen z buňky G11 a G12 kde se počíta z datumu systémového času
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Copy
ws.Cells.PasteSpecial xlPasteValues
Next

Poradí někdo?

Zaslat odpověď >

AL(7.1.2014 17:42)#017091

Dim ws As Worksheet, mysheet As Worksheet
For Each ws In ThisWorkbook.Worksheets
Set mysheet = ws
With mysheet
.[G11].Value = .[G11]
.[G12].Value = .[G12]
End With
Next ws
Set mysheet = Nothingcitovat

lubo(8.1.2014 2:46)#017096

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.[G11:G12].Value = .[G11:G12].Value
End With
Nextcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.