Excel - array para copiar hojas

 
Vista:
sin imagen de perfil

array para copiar hojas

Publicado por Antonio (2 intervenciones) el 19/06/2015 17:51:04
Buenos tardes, quisiera saber si es posible de alguna manera con un bucle for next recorrer todas las hojas del libro y según un valor dado en la hoja seleccionarla o no para hacer lo siguiente, copiar las hojas seleccionadas en un libro nuevo, tal como haría con esta línea de código.

Sheets(Array("Hoja1", "Hoja3", "Hoja5")).Copy

Desde el bucle veo las hojas y se el nombre de las que debo seleccionar, pero no se como crear la línea o como debería quedar para que haga lo mismo que línea que puse anteriormente, todos los intentos, me dieron errores, no siempre serian las mismas hojas, podría ser una o varias las seleccionadas.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

array para copiar hojas

Publicado por nn (11 intervenciones) el 19/06/2015 19:40:40
copiando de una a la vez

Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
ws.Copy After:=LibroDestino.Worksheets(1)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

array para copiar hojas

Publicado por Antonio (2 intervenciones) el 20/06/2015 11:52:23
Gracias, no se porque solo intentaba hacerlo con un array, se soluciono haciéndolo de una en una.
Doy por cerrado el tema
Gracias por la ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar