UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

raptor


Hola, saludos a todos los usuarios de este foro.

Hoy se me ha presentado un pequeño problema con una macro, y esperaba a que alguien me pudiera orientar para lograr solucionar esto.

La situación es esta;
Tengo un código que copia las hojas del libro activo a uno nuevo, eso funciona bien, lo que necesito es que no se copien los comandbuttons. ¿Habrá una forma de solucionar esto?, ¿tal vez copiando rangos de celdas en lugar de toda la hoja?, no sé como resolverlo. De antemano muchas gracias.
Archivos
Libro99.zip
No tienes los permisos para descargar los archivos.
(20 KB)

Igtelo


Hola raptor.

En la respuesta 13 del tema hay un ejemplo y creo te sirve.

http://www.universoexcelforo.com/t977-permitir-solo-pegado-especial-valores

Saludos
Ignacio Téllez

raptor


Hola Igtelo, gracias por tu ayuda, pero creo que no me sirve del todo, es decir la macro que subí esta perfecta para lo que requiero, lo único que necesito es que no copie los commandbuttons, ¿habría alguna manera de que sólo copiara desde la celda a10 hacia abajo?, con eso se resolvería mi consulta. Es lo que he intentado pero no logro hacerlo. Gracias de antemano a todos y en especial a Igtelo!!

4RESUELTO posible respuesta el 05/08/14, 11:37 am

DEDOS


Hola, buen día

Sub dos()
Dim nom As Variant


        Sheets(Array("Hoja1", "Hoja2")).Copy
        ActiveSheet.Shapes("CommandButton1").Delete
        nom = InputBox("Introduzca un nombre válido para su archivo, sin extensión", "Nombre del archivo")
        On Error GoTo Fin
        ActiveWorkbook.SaveAs Filename:=nom & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Fin:
End Sub

TE paso ésta alternativa, que use hace algun tiempo. 
Saludos y suerte

raptor


Gracias DEDOS, me sirvió Very Happy 

Muchas gracias a Igtelo por su tiempo. Saludos.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.