Guardar archivos consecutivos en excel
Hola, saludos a todos los expertos que me han ayudado con mi trabajo, de nuevo los molesto con la siguiente pregunta.
Ya termine un planilla que hace un serie de cosas, una de ellas es ir generando un base de datos. Ahora necesito que vaya guardando una copia de cada planilla(con el menor peso posible) en forma consecutiva; este consecutivo debe irlo leyendo del numero de cada planilla, que está por supuesto en un celda de esta palnilla.
Espero haber sido claro. De antemano tienen mis agradecimiento.
Ya termine un planilla que hace un serie de cosas, una de ellas es ir generando un base de datos. Ahora necesito que vaya guardando una copia de cada planilla(con el menor peso posible) en forma consecutiva; este consecutivo debe irlo leyendo del numero de cada planilla, que está por supuesto en un celda de esta palnilla.
Espero haber sido claro. De antemano tienen mis agradecimiento.
Respuesta de javigo
1
Yo emplearía la siguiente macro:
Sub Guardar_Libro()
Dim Nombre As String
Nombre = Range("A1").Value
If Nombre = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Su libro no se guardará", vbOKOnly, "Error!!!"
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\TUDIRECTORIO\" & Nombre, xlWorkbookNormal
End Sub
Aunque lo que no me queda claro es si quieres que te genere el cosecutivo con la macro o eso ya lo tienes solucionado en la celda correspondiente.
En fin, prueba esto y me dices si necesitas más ayuda.
Sub Guardar_Libro()
Dim Nombre As String
Nombre = Range("A1").Value
If Nombre = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Su libro no se guardará", vbOKOnly, "Error!!!"
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\TUDIRECTORIO\" & Nombre, xlWorkbookNormal
End Sub
Aunque lo que no me queda claro es si quieres que te genere el cosecutivo con la macro o eso ya lo tienes solucionado en la celda correspondiente.
En fin, prueba esto y me dices si necesitas más ayuda.
