Guardar nombre de archivo con numero correlativo
A los miembros de este foro, en esta ocasión quisiera pedir su ayuda en como granar el el nombre de un archivo y numero inicial y que luego lo valla haciendo correlativo, ejemplo PLANILLA00.xlsm y a partir de ahí se valla grabando consecutivamente, adjunto macro que me permite grabar dicha macro, pero manualmente.
Sub guardar24072015()
NOMBRE = ActiveWorkbook.Name
CARPETAA = ActiveWorkbook.Path
filaa = CARPETAA & "\" & NOMBRE
nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO")
If nombrar = vbYes Then
filab = CARPETAA & "\" & "plantilla electronica1"Else
titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO")
If titulo = "" Then
Exit Sub
Else
filab = CARPETAA & "\" & UCase(titulo) & ".xlsm"
End If
End If
ActiveWorkbook.Save
ActiveWorkbook.SaveAs fileName:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
xnombre = ActiveWorkbook.Name
Workbooks. Open (filaa)
Sheets("LLENADO"). Range("B7:G16"). ClearContents
Sheets("LLENADO"). Range("K7:P16"). ClearContents
Sheets("LLENADO"). Range("B21:G30"). ClearContents
Sheets("LLENADO"). Range("K21:P30"). ClearContents
Sheets("LLENADO"). Range("B35:G44"). ClearContents
Sheets("LLENADO"). Range("K35:P44"). ClearContents
Sheets("LLENADO"). Range("B49:G58"). ClearContents
Sheets("LLENADO"). Range("K49:P58"). ClearContents
Sheets("LLENADO"). Range("B63:G72"). ClearContents
Sheets("LLENADO"). Range("K63:P72"). ClearContentsSheets("LLENADO"). Range("I7:I16"). ClearContents
Sheets("LLENADO"). Range("R7:R16"). ClearContents
Sheets("LLENADO"). Range("I21:I30"). ClearContents
Sheets("LLENADO"). Range("R21:R30"). ClearContents
Sheets("LLENADO"). Range("I35:I44"). ClearContents
Sheets("LLENADO"). Range("R35:R44"). ClearContents
Sheets("LLENADO"). Range("I49:I58"). ClearContents
Sheets("LLENADO"). Range("R49:R58"). ClearContents
Sheets("LLENADO"). Range("I63:I72"). ClearContents
Sheets("LLENADO"). Range("R63:R72"). ClearContentsWorkbooks("ESTRUCTURA PLANILLAS.xlsm").Save
Sheets("LLENADO").Select
Range("B7").SelectWorkbooks(xnombre).Close savechanges = True
Sheets("LLENADO").Range(Cells(7, 1), Cells(lastRow, 50)).ClearContents
End Sub
1 respuesta
Este ejemplo, si mal no recuerdo antes de eliminar el libro creaba una copia con un número correlativo. Ten cuidado que el libro se autoelimina, lee bien el ejemplo primero
Sino crea un número correlativo antes y luego guardar
También puedes contar los archivos y sumar uno, como en el ejemplo que recorre todos los archivos del directorio, tu solo debes poner un contador conta= contá+1 cada vez que el bucle recorra los archivos sumará uno y tendrás la cantidad de archivo a eso le sumas uno y obtienes el número siguiente de archivo para nombrar el que requieres.
visita http:// programarexcel.com descarga cientos de ejemplos de macros gratis
suscribe a https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ recibirás actualizaciones de las nuevos ejemplos que se presenten.
Buenas noches amigo Programar Excel, capte la idea de acuerdo a los videos proporcionados y se pudo agregar el numero correlativo, por lo quedaría como tema SOLUCIONADO.
¡Gracias!
