Pom11

Makro pro převedení vzorců na hodnoty

(označ vše, zkopíruj, vlož jinak - hodnoty)

Cells.Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

' Range("A1").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
       SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Range("A1").Select

End Sub