Hola, quisiera saber si pueden ayudarme hacer una macro que cree una carpeta con el nombre del cliente (celda C6) y dentro de esta carpeta que guarde la hoja (NOTA_DE_TRABAJO) con el numero de la (celda F2) y la fecha del día, quisiera que se guardara en el disco duro "E" en la carpeta "Notas", y al guardar quedarme en la hoja activa (CALCULADOR).

Esta macro la copie de internet pero no se modificarla.

EJEMPLO:

Sub guardar_Click()

Range("A1").Columns.Hidden = Not Range("A1").Columns.Hidden

Dim wb

Dim ruta, carpeta, libro, texto As String

ruta = InputBox("E:\notas")

'ruta = "E:\notas"

carpeta = ActiveSheet.Range("C6").Value

libro = ActiveSheet.Range("F2").Value

texto = ruta & carpeta & "\" & libro & ".xls"

Set comprobarcarpeta = CreateObject("Scripting.FileSystemObject")

If Not comprobarcarpeta.FolderExists(ruta & carpeta) Then

comprobarcarpeta.CreateFolder (ruta & carpeta)

End If

Application.ScreenUpdating = False

ActiveSheet.Copy 'Por esto es que salva sólo una hoja

Application.DisplayAlerts = False

Set wb = ActiveWorkbook

'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nbre o ruta

On Error Resume Next

With wb

.SaveAs texto

Application.DisplayAlerts = True

.Close True

End With

'Set wb = Nothing

'Sheets("NOTA_DE_TRABAJO").Select 'reemplaza por tu hoja

End Sub[/CODE]

Hola eltrompas

Debes subir un Archivo de ejemplo como indican las Normas del Foro, de lo contrario algún compañero que te pueda responder tendría que crear todo lo que tú necesitas.

Saludos

Lázaro.

ya he subido el ejemplo y disculpa.

No hay nadie que pueda echarle un vistazo a esta macro haber que debo cambiar.:eagerness:

ya he subido el ejemplo y disculpa.

El moderador te dice que:

Debes subir tu libro segun las normas del forum.

Subirlo quier decir; lo subes a una web almacenadora y luego colocas aqui el enlace o;

LO subes directamente a esta web que abajo del editor de respuestas o temas, esta un enlace para que subas tu libro, para que alguien conocedor de la materia te pueda ayudar.

Mientras no lo hagas, (cumplas las normas) no hay posibilidad de ayuda