Anónimo
Ayuda Macro
Hola,
Necesito por favor saber como realizar dos macros. Una de ellas es para que el archivo de excel se "guarde como". Lo ideal sería que la propia macro generase el nombre del archivo al guardalo (que sería por ejemplo un número correlativo), pero también podría introducirse manualmente.
La otra macro es para que envíe el archivo por email a varias direcciones predeterminadas.
Gracias de antemano!
Necesito por favor saber como realizar dos macros. Una de ellas es para que el archivo de excel se "guarde como". Lo ideal sería que la propia macro generase el nombre del archivo al guardalo (que sería por ejemplo un número correlativo), pero también podría introducirse manualmente.
La otra macro es para que envíe el archivo por email a varias direcciones predeterminadas.
Gracias de antemano!
1 respuesta
Respuesta de tavopz
1
Con respecto a lo primero, puede ser algo así:
Sub GuardarComo()
y = Range("A1").Value
x = "C:\Archivos\" & y & ".xls"
ThisWorkbook.SaveAs (x)
End Sub
Como verás, la idea es que la macro tome el nombre de la celda A1 y lo guarda en una carpeta con ese dato. Debes cambiar la macro indicando el nombre de la carpeta donde lo deseas.
Con respecto al segundo asunto. Este código envía por mail el archivo activo:
Sub MandaMail()
ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Titulo del mail"
MsgBox ("El mail fue enviado con éxito!!")
End Sub
Claro, debes cambiar la dirección de correo dentro de Recipients.
Sub GuardarComo()
y = Range("A1").Value
x = "C:\Archivos\" & y & ".xls"
ThisWorkbook.SaveAs (x)
End Sub
Como verás, la idea es que la macro tome el nombre de la celda A1 y lo guarda en una carpeta con ese dato. Debes cambiar la macro indicando el nombre de la carpeta donde lo deseas.
Con respecto al segundo asunto. Este código envía por mail el archivo activo:
Sub MandaMail()
ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Titulo del mail"
MsgBox ("El mail fue enviado con éxito!!")
End Sub
Claro, debes cambiar la dirección de correo dentro de Recipients.