Contador

Fejojal:
Como puedo hacer esto sin tener que dar un número a una celda. ¿Por ejemplo hacerlo con un cuadro de texto?
Agradezco de antemano tus atenciones.
Saludos.

1 respuesta

Respuesta
1
Es posible, desde luego. El problema es cómo mantener ese valor cuando cierras el archivo o terminas la ejecución de una macro.
Si lo guardas en un cuadro de texto (o una etiqueta, mejor) al finalizar el procedimiento o al cerrar el archivo perderías la información.
Existe, desde ya, una alternativa un tanto más sofisticada que consiste en guardar el valor en el Registro de Windows de la máquina donde opere.
Pero sabrás que tocar el Registro tiene sus riesgos. Además sólo sería válido para usarse en tal PC.
En alguna parte de tu código deberías usar, para guardar el último valor del textbox:
Private Sub GuardarCont()
Contador = Val(textbox1.Value)
SaveSetting "MiContador", "Ultimo", "UltimoValor", "Contador"
End Sub
Considera que se produce un error si por algún motivo no se puede guardar el valor de la clave.
Luego para recuperarlo, utilizarías algo como esta rutina:
Private Sub LeerCont()
Ultvalor = GetSetting("MiContador", "Ultimo", "Contador")
textbox1.Value = Ultvalor + 1
End Sub
Esto debería resolver tu planteo, pero personalmente prefiero destinar alguna celda perdida en el archivo que tocar el registro. Claro está, esto depende de ti.
Espero que esto ayude con tu problema. Si así fuera, agradeceré un comentario y que la finalices.
(Recuerda que mantener cierto número de respuestas pendientes impide que otros usuarios puedan consultarme)
Aclarando qué entendí mal o qué faltó.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas