Extraer una hoja de un archivo y nombrarla!

02/02/2008 - 22:01 por ElProfe | Informe spam
Amigos del grupo:

Tengo un archivo "algo pesado" con el que debo elaborar una nomina de
pagos al personal; este archivo cuenta con aprox. 10 hojas, pero al
final solo se requiere una sola; la nómina final.

En esta oportunidad acudo a ustedes para solcitarles amablemente me
indiquen la forma como puedo exportar esa hoja, de manera automática,
sin formulas, con el mismo formato de la original, sin links ni
vinculos y sin que "arraste" el funcionamiento de los botones que
tiene la original.

De antemano me disculpo porque estoy seguro que esta solución ya fue
propuesta por alguno de los eruditos del grupo, pero la verdad no la
encontré o no la supe buscar.

Gracias anticipadas por su ayuda.

Manuel (ElProfe)
 

Leer las respuestas

#1 Héctor Miguel
03/02/2008 - 00:04 | Informe spam
hola, Manuel !

Tengo un archivo "algo pesado"... nomina de pagos al personal... con aprox. 10 hojas... al final solo se requiere una... la nomina final.
... como puedo exportar esa hoja, de manera automatica, sin formulas, con el mismo formato de la original, sin links ni vinculos
y sin que "arraste" el funcionamiento de los botones que tiene la original...



suponiendo que el tipo de botones que tiene incrustada la hoja son (botones) de la barra de herramientas "formularios"
y que las macros asignadas a ellos estan en modulos de codigo estandar (NO botones ActiveX con el codigo en el modulo de "la hoja") -?-
prueba con algo +/- como lo siguiente (una macro para copiar la hoja a un libro nuevo, desvincular su contenido y eliminar los botones)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Copiar_hoja_nominas()
Dim Bot As Button
' hacemos una copia de la hoja en un libro nuevo ... '
Worksheets("hoja1").Copy
' convertimos a constantes las formulas en la hoja activa '
Cells.Copy
Cells.PasteSpecial xlPasteValues
[a1].Select
With ActiveSheet
' desvinculamos botones de formulario de cualquier macro '
For Each But In .Buttons
But.OnAction = ""
Next
' eliminamos los botones de formulario '
.Buttons.Delete
End With
' el libro activo esta listo para ser guardado como... SIN formulas, botones, macros, etc. '

' ahora, decide que hacer con el libro original (ThisWorkbook) '

End Sub

Preguntas similares