Macros para crear carpeta sede Excel con nombre y se guarde en listo

Necesito un macro q desde Excel me permita crear nueva carpeta si es necesario y guarde archivo excel de hoja activa sin macros

Les comento mensualmente necesito crear una carpeta con el nombre del mes que empieza en este caso setiembre que viene y guarde ahí la hoja activa sin macros y posteriormente si ya esta creado solo selecciono el último mes osea la última carpeta que cree slds

Respuesta
1

Para crear una nueva carpeta esta sería una macro de ejemplo extraída de mi manual 500Macros:

Sub CreaDir()
MkDir "C:\Documents and Settings\MisDocumentos\MisFacturas"
End Sub

Debes saber de antemano en qué directorio ubicarla (por ahora quedó en el mismo que el libro activo y cómo le indicarás el nombre... con un Inputbox o contenido de celda  o mes en curso.... 

Sub CreaDir()
'x Elsamatilde
elmes = "Septiembre"        'ver cómo se lo indicarás
nvaruta = ThisWorkbook.Path & "/" & elmes   'indicar la ruta 
hojax = ActiveSheet.Name
MkDir nvaruta
'se guarda la hoja activa en esa carpeta, sin macros
ActiveSheet.Copy
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
With wb
'guardamos el libro sin macros cuyo nombre es la hoja copiada
    .SaveAs nvaruta & "\" & hojax & ".xlsx"
'cerramos el nuevo libro
    .Close
End With
'se libera el objeto
Set wb = Nothing
End Sub

¡Gracias! 

Pero Elsita mi detalle es

Tengo dos parámetros 

1. Si el mes esta en curso y la carpeta fue creada en este caso AGOSTO el libro q guardare debe guardarse ahí osea en el combobox  o listbx debe estar ya seleccionado el mes pienso??  q si creo la carpeta con ese nombre debe guardarse en una celda  del libro para q vaya reconociendo 

2. Imagemos q hoy estamos a día 31agosto..Y todos mis libros diarios se guardaron ahí hasta hoy..  Mañana creare nueva carpeta setiembre y ese nombre mañana me debe reconocer el cuadro de lista para solo ir guardando los libros hasta el 30 de setiembre sin macros 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas