Hola! Necesito por favor de su ayuda.
No se de programación pero he intentado guiarme de una macro que creó un conocido para aplicárselo a un archivo que tengo. El tema es que la macro me funciona bien hasta copiar el libro de Excel y crear uno nuevo pero no he podido hacer que se guarde con el nombre de la ruta de archivo.
Agradecería me ayuden.
Esta es la macro usada, adjunto archivo.
Sub control2558()
Application.ScreenUpdating = False
Dim I As Integer
I = 4
While Hoja10.Cells(I, 102) <> ""
Hoja10.Cells(6, 82) = Hoja10.Cells(I, 102)
Dim NombreArchivo, RutaArchivo As String
NombreArchivo = "Hoja Control " & Hoja10.Cells(I, 102)
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".xlsm"
Dim NuevoLibro As Workbook
Set NuevoLibro = Workbooks.Add
Hoja10.Copy Before:=NuevoLibro.Sheets(1)
NuevoLibro.SaveAs
NuevoLibro.Close
I = I + 1
Wend
MsgBox ("Proceso generado con éxito")
Application.ScreenUpdating = True
End Sub
clave a1.
Planillas_2.xlsm
