¿Que macro debo tener para que me copie unas pestañas, las cambie de nombre y las mueva a un libro nuevo?
Necesito una macro que copie unas pestañas, las cambie de nombre, las mueva a un nuevo libro, y que las guarde en una ubicacion con un nombre determinado.
Necesito una copia de una pestaña que se llama "Registro" y quiero que se llame "Registro Filtro". Por otro lado, necesito 3 copias de una pestaña que se llama "Arbol" y quiero que en el nuevo libro se llamen "Antes", "Coste" y "Despues".
Estas 4 pestañas renombradas que aparezcan en un nuevo libro que se tiene que llamar igual que los valores que aparecen en las celdas N5 y N12 de la pestaña original de "Arbol".
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub CopiarPestañas()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Sheets("registro").Copy
Set l2 = ActiveWorkbook
l2.ActiveSheet.Name = "Registro Filtro"
l1.Sheets("Arbol").Copy after:=l2.Sheets(l2.Sheets.Count)
ActiveSheet.Name = "Antes"
l1.Sheets("Arbol").Copy after:=l2.Sheets(l2.Sheets.Count)
ActiveSheet.Name = "Coste"
l1.Sheets("Arbol").Copy after:=l2.Sheets(l2.Sheets.Count)
ActiveSheet.Name = "Despues"
nombre = l1.Sheets("Arbol").[N5] & l1.Sheets("Arbol").[N12]
l2.SaveAs Filename:=l1.Path & "\" & nombre, FileFormat:=xlOpenXMLWorkbook
l2.Close
MsgBox "Nuvo libro creado"
End SubSaludos.Dante Amor
