-
PT
-
ES
-
AO
-
CV
-
MZ
-
ST
-
GW
-
Professional
-
Executive
-
Public Sector
-
Omnia
-
Evolution
Al editar un archivo producido con el Office Extensions (OE) en una máquina con Excel, pero sin OE o conexión a la base de datos del ERP, los valores de las celdas que utilizan fórmulas del OE son preservados excepto si causan un recálculo directo o indirecto.
Antes de transportar ese archivo para otra máquina sin el OE, es posible remover las fórmulas del OE de cada celda y sustituirlas por el valor calculado de la celda.
De este modo, se obtiene un archivo sin dependencias para fórmulas del OE que puede ser abierto en cualquier máquina donde podemos editar libremente las celdas sin perder los valores previamente calculados.
Para ello, está disponible la siguiente macro VBA para Excel que puede ser ejecutada de acuerdo con las necesidades de cada archivo:
| Option Explicit Sub PRI_SelectionFormulasToValues() PRI_RangeFormulaToValue Selection End Sub Sub PRI_ActiveWorkbookFormulasToValues() Dim sht As Object For Each sht In ActiveWorkbook.Sheets PRI_RangeFormulaToValue sht.UsedRange Next End Sub Sub PRI_ActiveSheetFormulasToValues() PRI_RangeFormulaToValue ActiveSheet.UsedRange End Sub Sub PRI_RangeFormulaToValue(rng As Range) Dim cel As Range Dim formula As String For Each cel In rng If Len(cel.Value) > 0 Then formula = CStr(cel.formula) If InStr(1, formula, "PRI_", vbTextCompare) > 0 Then PRI_CellFormulaToValue cel End If End If Next End Sub Sub PRI_CellFormulaToValue(rng As Range) With rng .Cells.Copy .Cells.PasteSpecial xlPasteValues End With Application.CutCopyMode = False End Sub |
El código presentado es compatible con Excel 2010 y solo sirve de ejemplo.