Copia de valores

Si. Es muy fácil. Seleccionas lo que quieres copiar, lo
copias al portapapeles y a continuación lo pegas con la
opción 'pegado especial' y marcas la casilla 'valores.

Muy buenas.

Tengo un fichero excel con fórmulas y vínculos a otros

libros. Mi idea ahora

es crear un nuevo fichero copia del anterior pero sólo de

los valores y

formatos, no de las fórmulas y referencias. La acción la

llevaría a cabo

mediante un botón, por ejemplo.

¿Es posible hacer lo que digo?

Muchas gracias y un saludo.


.

Pero si lo que quiero es copiar un libro entero con varias hojas, ¿tengo que
hacerlo hoja por hoja o hay una manera más rápida?

Gracias.


escribió en el mensaje
news:63ab01c4c8da$984040f0$
Si. Es muy fácil. Seleccionas lo que quieres copiar, lo
copias al portapapeles y a continuación lo pegas con la
opción 'pegado especial' y marcas la casilla 'valores.

Muy buenas.

Tengo un fichero excel con fórmulas y vínculos a otros

libros. Mi idea ahora

es crear un nuevo fichero copia del anterior pero sólo de

los valores y

formatos, no de las fórmulas y referencias. La acción la

llevaría a cabo

mediante un botón, por ejemplo.

¿Es posible hacer lo que digo?

Muchas gracias y un saludo.


.

Luises,
Prueba esta macro. Ojo: solo se eliminaran formulas y referencias en las
celdas, o sea q si tienes formulas o referencias en validacion, formato
condicional, graficos, rangos denominados, etc. se copiaran tal cual.
Saludos,
KL

Sub CopiarSinFormulas()
Dim hoja As Worksheet
Dim esteFichero As String
Dim nuevoFichero As Variant

esteFichero = ThisWorkbook.Name
nuevoFichero = Application.GetSaveAsFilename _
(esteFichero, "Libros de Microsoft Excel (*.xls),*.xls")

Select Case VarType(nuevoFichero)
Case vbBoolean
MsgBox "Operacion cancelada"
Case Else
Application.ScreenUpdating = False
For Each hoja In ThisWorkbook.Sheets
With hoja
.Activate 'necesario para eliminar la seleccion
With .Cells
.Copy
.PasteSpecial xlPasteValues
End With
.Range("A1").Select
End With
ThisWorkbook.Sheets(1).Activate
Application.CutCopyMode = False
Next hoja
Application.ScreenUpdating = True
On Error GoTo ManejoDeErrores
ActiveWorkbook.SaveAs Filename:=nuevoFichero
End Select
Exit Sub
ManejoDeErrores:
MsgBox "El archivo no se ha guardado!"
End Sub

"Luises" wrote in message
news:%

Pero si lo que quiero es copiar un libro entero con varias hojas, ¿tengo
que
hacerlo hoja por hoja o hay una manera más rápida?

Gracias.


escribió en el mensaje
news:63ab01c4c8da$984040f0$
Si. Es muy fácil. Seleccionas lo que quieres copiar, lo
copias al portapapeles y a continuación lo pegas con la
opción 'pegado especial' y marcas la casilla 'valores.

Muy buenas.

Tengo un fichero excel con fórmulas y vínculos a otros

libros. Mi idea ahora

es crear un nuevo fichero copia del anterior pero sólo de

los valores y

formatos, no de las fórmulas y referencias. La acción la

llevaría a cabo

mediante un botón, por ejemplo.

¿Es posible hacer lo que digo?

Muchas gracias y un saludo.


.

He probado tu código pero me aparece un error de ejecución ("No coinciden
los tipos") y se para la ejecución en "Next hoja". ¿Sabes por qué?

Gracias por dedicarme tu tiempo.


"KL" escribió en el mensaje
news:

Luises,
Prueba esta macro. Ojo: solo se eliminaran formulas y referencias en las
celdas, o sea q si tienes formulas o referencias en validacion, formato
condicional, graficos, rangos denominados, etc. se copiaran tal cual.
Saludos,
KL

Sub CopiarSinFormulas()
Dim hoja As Worksheet
Dim esteFichero As String
Dim nuevoFichero As Variant

esteFichero = ThisWorkbook.Name
nuevoFichero = Application.GetSaveAsFilename _
(esteFichero, "Libros de Microsoft Excel (*.xls),*.xls")

Select Case VarType(nuevoFichero)
Case vbBoolean
MsgBox "Operacion cancelada"
Case Else
Application.ScreenUpdating = False
For Each hoja In ThisWorkbook.Sheets
With hoja
.Activate 'necesario para eliminar la seleccion
With .Cells
.Copy
.PasteSpecial xlPasteValues
End With
.Range("A1").Select
End With
ThisWorkbook.Sheets(1).Activate
Application.CutCopyMode = False
Next hoja
Application.ScreenUpdating = True
On Error GoTo ManejoDeErrores
ActiveWorkbook.SaveAs Filename:=nuevoFichero
End Select
Exit Sub
ManejoDeErrores:
MsgBox "El archivo no se ha guardado!"
End Sub

"Luises" wrote in message
news:%
> Pero si lo que quiero es copiar un libro entero con varias hojas, ¿tengo
> que
> hacerlo hoja por hoja o hay una manera más rápida?
>
> Gracias.
>
>
> escribió en el mensaje
> news:63ab01c4c8da$984040f0$
> Si. Es muy fácil. Seleccionas lo que quieres copiar, lo
> copias al portapapeles y a continuación lo pegas con la
> opción 'pegado especial' y marcas la casilla 'valores.
>
>
>
>>Muy buenas.
>>
>>Tengo un fichero excel con fórmulas y vínculos a otros
> libros. Mi idea ahora
>>es crear un nuevo fichero copia del anterior pero sólo de
> los valores y
>>formatos, no de las fórmulas y referencias. La acción la
> llevaría a cabo
>>mediante un botón, por ejemplo.
>>
>>¿Es posible hacer lo que digo?
>>
>>Muchas gracias y un saludo.
>>
>>
>>.
>>
>
>

Sera q tienes hojas escondidas o protegidas. Si me lo confirmas te modifico
la macro para q lo tome en cuenta.

Saludos,
KL

"KL" wrote in message
news:

Luises,
Prueba esta macro. Ojo: solo se eliminaran formulas y referencias en las
celdas, o sea q si tienes formulas o referencias en validacion, formato
condicional, graficos, rangos denominados, etc. se copiaran tal cual.
Saludos,
KL

Sub CopiarSinFormulas()
Dim hoja As Worksheet
Dim esteFichero As String
Dim nuevoFichero As Variant

esteFichero = ThisWorkbook.Name
nuevoFichero = Application.GetSaveAsFilename _
(esteFichero, "Libros de Microsoft Excel (*.xls),*.xls")

Select Case VarType(nuevoFichero)
Case vbBoolean
MsgBox "Operacion cancelada"
Case Else
Application.ScreenUpdating = False
For Each hoja In ThisWorkbook.Sheets
With hoja
.Activate 'necesario para eliminar la seleccion
With .Cells
.Copy
.PasteSpecial xlPasteValues
End With
.Range("A1").Select
End With
ThisWorkbook.Sheets(1).Activate
Application.CutCopyMode = False
Next hoja
Application.ScreenUpdating = True
On Error GoTo ManejoDeErrores
ActiveWorkbook.SaveAs Filename:=nuevoFichero
End Select
Exit Sub
ManejoDeErrores:
MsgBox "El archivo no se ha guardado!"
End Sub

"Luises" wrote in message
news:%

Pero si lo que quiero es copiar un libro entero con varias hojas, ¿tengo
que
hacerlo hoja por hoja o hay una manera más rápida?

Gracias.


escribió en el mensaje
news:63ab01c4c8da$984040f0$
Si. Es muy fácil. Seleccionas lo que quieres copiar, lo
copias al portapapeles y a continuación lo pegas con la
opción 'pegado especial' y marcas la casilla 'valores.

Muy buenas.

Tengo un fichero excel con fórmulas y vínculos a otros

libros. Mi idea ahora

es crear un nuevo fichero copia del anterior pero sólo de

los valores y

formatos, no de las fórmulas y referencias. La acción la

llevaría a cabo

mediante un botón, por ejemplo.

¿Es posible hacer lo que digo?

Muchas gracias y un saludo.


.