Problema con el contador
Hola fejoal. El otro día me ayudaste a poner un contador en un documento de excel y lo prove una vez y funciono pero no exactamente cono esperaba porque quiero aplicarlo a una plantilla y la plantilla abre un documento nuevo cada vez por eso no incrementa.
1 Respuesta
Respuesta de fejoal
1
Acabo de volver de mi fin de semana y noté tu pregunta.
Es extraño el planteo, pero puede ser porque evito usar las plantillas.
De todos modos, el problema pasa por que estas no se graban, sino que se graba como un archivo nuevo.
Si estás de acuerdo, bastará conque la macro que te sugerí en la respuesta anterior, cambie el numero al siguiente que tenga guardado y grabe el archivo, sin que el usuario lo note.
Tu macro de inicio sería entonces:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Hoja1").Range("B4").Value = Sheets("Hoja1").Range("B4").Value + 1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, FileFormat _
:=xlTemplate, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
True, CreateBackup:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
De esta manera, tu plantilla sí conservaría la numeración interna y el documento nuevo que se cree a partir de ella llevará la numeración correspondiente.
Espero que esto te ayude.
Un abrazo!
Fernando
Es extraño el planteo, pero puede ser porque evito usar las plantillas.
De todos modos, el problema pasa por que estas no se graban, sino que se graba como un archivo nuevo.
Si estás de acuerdo, bastará conque la macro que te sugerí en la respuesta anterior, cambie el numero al siguiente que tenga guardado y grabe el archivo, sin que el usuario lo note.
Tu macro de inicio sería entonces:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Hoja1").Range("B4").Value = Sheets("Hoja1").Range("B4").Value + 1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, FileFormat _
:=xlTemplate, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
True, CreateBackup:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
De esta manera, tu plantilla sí conservaría la numeración interna y el documento nuevo que se cree a partir de ella llevará la numeración correspondiente.
Espero que esto te ayude.
Un abrazo!
Fernando
