🎒 GUARDAR HOJA en un LIBRO NUEVO con Macros ⛹🏻‍♂️

Si te gustó este video puedes invitarme un café ☕️ enviandome un Super Thanks😉
Este video te muestra el paso a paso de como generar una copia de una hoja especifica de un libro activo, hacer un guardar como y después de nombrar el nuevo archivo y guardarlo en la misma ubicación que el libro principal, todo esto mediante código VBA.
Te dejo el código para que puedas acortar tu tiempo de desarrollo de lógica y así puedas crecer en tus desarrollos.
Sub Guardar_Hoja_en_Libro_Nuevo()
Nombre_de_Hoja = [B4].Value
Ruta = ThisWorkbook.Path
Nombre_del_Archivo = [J7].Value
Worksheets(Array(Nombre_de_Hoja)).Copy
With ActiveWorkbook
.SaveAs Filename:=Ruta & "\" & Nombre_del_Archivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
End Sub
Curso Online de Excel 365 Básico: www.raulayala....
Obten un 30% de descuento si ingresas el Cupon: Oferta Especial
Contactarme en mis redes sociales
Facebook: / mtro.raulayala
Instagram: / raul_ayalaherrerazubieta
Twitter: / mtroraulayala
Linkedin: www.linkedin.c...

[@Angel_Alvarez_Concepcion57]

Excelente trabajo ingeniero gracias por su ayuda y abrazos desde Puerto Rico 🇵🇷

[@rashelguzmansanchez6880]

Gracias, me super encantó, eres lo máximo.

[@j.refugiovazquezvargas3701]

Gracias me super encanto

[@cocherialanussseannecchini3113]

.....Excelente ,, Muy Practico

[@raulayalaexcel]

Gracias, saludos

[@nelsonalbarracin4485]

Excelente, quiero saber si puedo exportar a un mismo libro y no a libros independientes?

[@oscaroriaslandivar]

Muy buen video.
Quisiera saber como puedo hacer si tengo hoja exel con una base de datos y copiar en hojas exel individuales.
muchas gracias

[@ceciborgato1940]

muchas gracias! Sabes como puedo hacer si ademas quiero crear varias hojas en base a una tabla de datos y guardarlas?

[@SaraLilianaNeiraMerchan]

Hola buenos días excelente video como podría adicionar el código a tu macro para que la hoja que estoy exportando a nuevo libro no se vaya con formulas ( los campos están formulados ) Gracias

[@gerson21222]

Excelente aporte, me podrías ayudar con algo? Quisiera que el archivo no se abra al finalizar el guardado, podrías ayudarme a identificar qué comando debo modificar? Sospecho que es el " FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False " pero no estoy seguro

[@raulrico6102]

Y para guardar varias hojas en un libro nuevo?

[@zodizuliam]

Sub Guardar_Hoja_en_Libro_Nuevo()
Nombre_de_Hoja = [N5].Value
Ruta = ThisWorkbook.Path
Nombre_del_Archivo = [J6].Value
Worksheets(Array(Nombre_de_Hoja)).Copy
With ActiveWorkbook
.SaveAs Filename:=Ruta & "F:\REPORTE PRODUCCIÓN CORPORATIVO" & Nombre_del_Archivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
End Sub
ayuda por favor......que error tiene en saveas me aparece en amarillo.... me copia la hoja no la guarda ni la cierra.