Necesito macro que guarde 1 hoja de 1 libro con nombre de una celda, en carpeta creada por macro
Buen día, necesito apoyo en crear una macro que guarde una hoja de un libro con el nombre de una combinación de celdas (c5&" "&c6) sin formulas en una carpeta creada por la misma macro con el nombre de una celda, gracias por el apoyo me ha sido de mucha utilidad en mi área laboral. Saludos
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia en la macro [D5] por la celda en donde tienes el nombre de la carpeta. Cambia "hoja2" por el nombre de la hoja que quieras copiar. La macro la debes ejecutar en la hoja que tienes los datos del nombre del archivo en las celdas C5 y C6.
La "hoja2" deberá estar también en este libro que tiene la macro.
Sub GuardaArchivo() 'Por.Dante Amor On Error Resume Next carpeta = [D5] hoja = "hoja2" ' nombre = [C5] & " " & [C6] ruta = ThisWorkbook.Path & "\" MkDir ruta & carpeta ' Sheets(hoja).Copy ActiveWorkbook.SaveAs ruta & carpeta & "\" & nombre & ".xlsx" ActiveWorkbook.Close End Sub
Saludos.Dante Amor
