............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Copiar Hojas a otro al final de las hojas del libro destino

Ver el tema anterior Ver el tema siguiente Ir abajo

Copiar Hojas a otro al final de las hojas del libro destino

Mensaje por joseaquino el Miér Jun 26, 2013 8:52 pm

Que tal a todos.

Necesito complementar el codigo de una macro, para que al copiar hojas de un libro a otro las copie al final del libro destino, hasta ahora no he encontrado como se habilite el count al copiar me envia error
este es el codigo que trato de correr

ActiveSheet.Copy After:=Workbooks("Concentrado.xlsm").Sheets(Sheets.Count)

y solo corre si le doy el numero de hoja

ActiveSheet.Copy After:=Workbooks("Concentrado.xlsm").Sheets(1)

saludos y espero me puedan apoyar

joseaquino

Masculino Cantidad de envíos : 6
Edad : 39
Ciudad - Pais : MEXICO
Version de Excel : 2003
Fecha de inscripción : 22/05/2013

Volver arriba Ir abajo

Re: Copiar Hojas a otro al final de las hojas del libro destino

Mensaje por Tatayayan el Jue Jun 27, 2013 5:19 pm

Hola, hice correr el tú código con dos libros abiertos (a uno o llmé concentrrado.xlsm) y no tuve problema, ahora si el libro esta cerrado me da error, es decir abre el libro "concentrado" y corre la macro.
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Copiar Hojas a otro al final de las hojas del libro destino

Mensaje por joseaquino el Vie Jun 28, 2013 12:35 am

Hola gracias por contestar, efectivamente esta macro únicamente corre con los dos libros abiertos, lo que necesito es que las hojas que vaya copiando las ponga al final de todas las fojas del libro destino que en este caso es concentrado

saludos espero me pueda seguir ayudando

joseaquino

Masculino Cantidad de envíos : 6
Edad : 39
Ciudad - Pais : MEXICO
Version de Excel : 2003
Fecha de inscripción : 22/05/2013

Volver arriba Ir abajo

Re: Copiar Hojas a otro al final de las hojas del libro destino

Mensaje por Tatayayan el Vie Jun 28, 2013 8:32 am

Hola, es que no puedo seguir ayudando dado que la instrucción:
ActiveSheet.Copy After:=Workbooks("Concentrado.xlsm").Sheets(Sheets.Count)
no me da error y no sé lo que te puede estar pasando, se entiende?
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Copiar Hojas a otro al final de las hojas del libro destino

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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