UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

JoaoM


Esta macro es para la descripción del titulo
Agradeceria me la comentara y los comentarios que le agregue me los corrijan
Código:
Sub CrearHoja()
'hoja-en-una-carpeta-creada-automaticamente
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\" 'Origen del libro
    año = Year(Date) 'Año para la Carpeta1 a crear si no existe
    mesn = Format(Month(Date), "00") 'Mes(número) para (Sub) laCarpeta2
    mesl = Format(Date, "mmm") 'Mes para (Sub) Carpeta2
    mesx = mesn & "-" & mesl 'Mes para (Sub) Carpeta2
    carpeta1 = ruta & "año-" & año 'Nombre para Carpeta1
   
'Para el MsgBox
    p = "\Presupuesto.xlsx"
    pp = "Código"
    ppp = carpeta2
   
'Crear Carpeta1 año-2015
    If Dir(carpeta1, vbDirectory) = "" Then
        MkDir (carpeta1)
    End If
   
'Crear Carpeta2 03-mar
    ppp = carpeta1 & "\" & mesx
    If Dir(ppp, vbDirectory) = "" Then
        MkDir (ppp)
    End If
   
'Copiar hoja y enviar como libroa la carpeta2
    Sheets(pp).Copy
    ActiveWorkbook.SaveAs ppp & p
    ActiveWorkbook.Close
    '
    MsgBox "Hoja " & pp & " Creada como libro en la carpeta " & ppp & p, vbInformation, "Hoja Guardada"
End Sub

Otra cosilla que pretendo es que haga su función pero que en ves de ser automática, me permita seleccionar la carpeta donde Guardar como: y darle el nombre que yo quiera o tenga en determinada celda, Ej. D8.

Nombre de la hoja a guardar SIN CODIGO ALGUNO, El dato de E8 & Formato = Date "dd-mm-yy"
Archivos
Guardar Hoja sin macros_1.zip
No tienes los permisos para descargar los archivos.
(18 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.