Como copiar de un libro a otro pero escogiendo las hojas
Tengo un archivo de excel lo que quiero es que se copie las hojas 1 y 2 a un nuevo libro con macros...
1 respuesta
Respuesta de Aneudys Martinez
1
EN UN MODULO
Copias estos
sub copiarhojas ()
libro1 = ActiveWorkbook.Name
nombre = InputBox("Nombre del archivo")
Workbooks.Add
libro2 = ActiveWorkbook.Name
Workbooks(libro1).Activate
sheet1.Copy after:=Workbooks(libro2).Sheets(Workbooks(libro2).Sheets.Count)
Hoja1.Copy after:=Workbooks(libro2).Sheets(Workbooks(libro2).Sheets.Count)
ActiveWorkbook.SaveAs nombre
ActiveWorkbook.Close False
end sub
Sheet1 o hoja1 son las hojas que quieres copier en el Nuevo libro
Inputbox te la opcion de darle el nombre al Nuevo libro
Libro1 este hace referencia a tu libro original
Libro2 este hace referencia tu Nuevo libro
Si te funciona no olvides valorar
