Mover Hojas a Un libro nuevo

[RoberN]

Estimados,

tengo el siguiente problema, necesito una macros que genere hojas en el libro en el que se esta trabajando y luego las mueva a un libro nuevo, sin embargo no logro mover las hojas y me mueve la hoja activa. En el documento se encuentra una explicacion mas detallada, espero que puedan ayudarme.

Saludos,

Roberto

Libro1.zip

[obed_cruz]

RobertN,

Prueba con esta rutina.

Saludos.

Sub CopiarHojas()
Dim strWks As String
Dim varWks As Variant
Dim i As Integer

strWks = "Tgs1, jhads2, iudn3"
varWks = Split(strWks, ",")

 With ThisWorkbook
   For i = 0 To UBound(varWks)
     .Worksheets.Add After:=.Worksheets(.Worksheets.Count)
     .ActiveSheet.Name = varWks(i)
   Next i
  .Worksheets(varWks).Copy
 End With

End Sub[/PHP]

[RoberN]

Estimado obed_cruz,

Al copiar tu codigo en el modulo y llamarlo desde el boton me arroja error 1004, ademas hay un par de cosas que me preocupan; en el codigo veo el nombre de las hojas el cual como esta escrito en el archivo no puede usarse porque varia y utilizas el comando copy y yo necesito moverlas a un libro nuevo. Como dije anteriormente me arroja error 1004 asi que no sabria decir si efectivamente el codigo realiza las funciones que necesito. Gracias por la respuesta pero sigo buscando la solucion.

Saludos,

Roberto.

[RoberN]

Sigo sin poder lograr que que la macros me mueva las hojas a un libro nuevo, alguna suguerencia?

Gracias.

[chernandez1982]

Porque no seleccionas las Hojas con que deseas mover

Sheets("Hoja1").Select

Sheets("Hoja1").Move

debiera moverte a un nuevo libro....

Despues aplicas una macro para pedir que el libro te lo guarde con algun nombre...