24/Sep/05 13:56
Cambia las fórmulas por el valor.
encontré una macro para esto:
[code:1:5ebbcc51d8]Sub PegaValores()
'Quita las formulas y pega solo valores
'En todas las celdas de todas las hojas
Dim Sht As Worksheet
Application.Calculation = xlCalculationManual
For Each Sht In Worksheets
If TypeName(Sht) = "Worksheet" Then
Sht.UsedRange.Value = Sht.UsedRange.Value
End If
Next
Application.Calculation = xlCalculationAutomatic
End Sub[/code:1:5ebbcc51d8]
Esto quita las formulas y pega el valor en todas las celdas de todos las hojas.
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═