Guardar libro con valores, no con fórmulas
Hola tengo un problema: Estoy trabajando con excel y éste tiene conexión a un software contable, que me permite sacar saldos de cuentas. He diseñado una serie de informes (uno en cada hoja). Que puedo hacer para guardar el archivo generado que corresponde a uno por cada cliente, ¿no me aparezcan las fómulas y solo los valores?. He probado con copiar y pegar valores pero el proceso es largo. ¿Hay alguna forma de hacerlo pues al abrirla desde otro equipo el archivo busca el origen y me salen error en todos los campos que tienen fórmula . El error es del tipo #NOMBRE?
Gracias ias por su ayuda.
Gracias ias por su ayuda.
1 Respuesta
Respuesta de Elsa Matilde
1
La manera es justamente con pegado especial y no debiera ser largo salvo que estés haciéndolo por celdas y no todo el rango.
Te dejo un ejemplo para que compares y veas la diferencia, si la hay:
sub copiadoesp()
'selecciona el rango total de datos
ActiveSheet.Range("A1:T150").Select
Application.ScreenUpdating = False
Selection.Copy
'agregar una hoja a continuación - opcional
Sheets.Add After:=ActiveSheet
'se posiciona en la primer celda destino
ActiveSheet.Range("A1").Select
'se utiliza Pegado Especial, valores, formatos, ancho de col
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End sub
Luego podes guardar esta hoja ya sin fórmulas y eventualmente eliminarla del libro original.
Te dejo un ejemplo para que compares y veas la diferencia, si la hay:
sub copiadoesp()
'selecciona el rango total de datos
ActiveSheet.Range("A1:T150").Select
Application.ScreenUpdating = False
Selection.Copy
'agregar una hoja a continuación - opcional
Sheets.Add After:=ActiveSheet
'se posiciona en la primer celda destino
ActiveSheet.Range("A1").Select
'se utiliza Pegado Especial, valores, formatos, ancho de col
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End sub
Luego podes guardar esta hoja ya sin fórmulas y eventualmente eliminarla del libro original.
