Macro Guardar; hoja especifica, nombre automático en carpeta predefinida.
Estoy trabajando en un libro con 2 hojas, necesito guardar solo la hoja 2, en una carpeta predefinida y que al guardar, utilice la celda "F3" para generar el nombre del archivo.
Estaria bien que al guardar, borre la celda F3 para no duplicar el archivo.
Os dejo un ejemplo: Hoja ejemplo
2 respuestas
Te adjunto macro explicada y extraída del capítulo 17.13 (Guardando libros) de mi manual 500Macros.
Sub Guardar()
'x Elsamatilde
Dim Ruta, nombre As String
'se controla que las celdas tengan datos
If [C5] = "" Or [C7] = "" Then MsgBox "Faltan datos": Exit Sub
Ruta = Range("C5").Value
nombre = Range("C7").Value
ActiveSheet.Copy
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
With wb
'controla posible error de ruta o nombre
On Error Resume Next
'guardamos el libro
.SaveAs Ruta & "\" & nombre & ".xlsx"
If Err.Number > 0 Then GoTo sinGuardar
'cerramos el nuevo libro
.Close
End With
'se libera el objeto
Set wb = Nothing
'en libro con macro se borra F3 o se incrementa en 1
[F3] = [F3] + 1 ' o se borra con [F3] = ""
Exit Sub
sinGuardar:
MsgBox "Se presentó un problema al guardar... verifica ruta y nombre."
'se elimina el libro creado
ActiveWorkbook.Close False
End SubTe dejé 2 opciones para la celda F3.... o que incrementes en 1 su valor o que la borres.
¡Gracias!
Tengo otras macros dentro de la hoja, por esta razón necesito limitar la copia a determinadas celdas, aun que lo guarde como; xlsx estas macros se ejecutan.
Cuando se guarda como xlsx no se guardan las macros ... pero si la hoja que genera el libro las contiene en sus eventos Change o Selection o alguna otra, te aparecerá el mensaje de seguir guardando sin o con macros.
Para evitar este mensaje y que guarde sin consultar (como xlsx) agregá la línea que inhabilita los mensajes justo debajo de la instrucción With wb
With wb Application.DisplayAlerts = False
Y antes del End With la volvés a habilitar:
Application.DisplayAlerts = True End With
Sdos!
¡Gracias!
Busco algo especifico, en realidad no soy mucho de videos, me gusta la charla tu a tu de toda la vida, respetuosamente, gracias, seguro que estos videos serán de gran ayuda para quien busca algo de este estilo.