Asignar número diferente cada vez que se abra un archivo
Necesito me guíen en buscar una solución para lo siguiente: Tengo un archivo el cual se abre diariamente, pero, necesito que vaya guardando dentro del mismo archivo cuantas veces ha sido abierto durante el día (Solo que cuente durante el día).
1 respuesta
Respuesta de Elsa Matilde
1
En el evento Open del libro podrías guardar en 2 celdas de cierta hoja la fecha y el contador.
Private Sub Workbook_Open()
'x Elsamatilde
'se mira la fecha en H1 de Hoja1
With Sheets("Hoja1")
If .[H1] = Date Then
.[J1] = .[J1] + 1
Else
'guarda nueva fecha y empieza de 1
.[H1] = Date
.[J1] = 1
End If
End With
End SubLo que te queda por resolver es qué hacer antes de cambiar la fecha, es decir mañana. Y cómo forzar el guardado. Quizás sea conveniente que luego de la línea del End With le agregues la instrucción;
ActiveWorkbook. Save.
