Ayuda consecutivo factura

[vihuma]

Buenas Tardes a todos los EXCELentisimos participantes de este foro !!

De nuevo para solictar una colaboracion en cuanto a un tema:
Pese a la busqueda en los post del foro y las pruebas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[T3MPL4R10VB]

Buenas Tardes.

Sin necesidad de Cambiar la progración original de Tu Formulario, veo que lo que debes hacer es en la Programación de Boton NUEVO cuando llevas el numero de la factura al Label2...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[vihuma]

Gracias por tu aporte !! funciona bien, aunque existe el detalle de que cuando cierro el form y lo abro de nuevo me salta el consecutivo 2 numeros y como tomo el valor que me trae el label...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[vihuma]

Ok disculpa !! encontre la manera !!!

Que pena !! vale la misma solucion que me diste para el otro !!

Gracias por tu aporte !! :wink: :wink:

 

[T3MPL4R10VB]

Bueno y que tal si al Cargar el Formulario, manejas el numero de las Facturas en una Celda de otra Hoja de Calculo que este Oculta y asi te aseguras que puede tener el Dato siempre en el Libro...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Esta es una manera de almacenar un valor movil en un archivo, sin guardarlo en ninguna celda, y poder recuperarlo desde VBA, invocando el Nombre definido.

ActiveWorkbook.Names.Add...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Vayan como complemento estas lineas de codigo:
Sub PROBAR()

Dim num As Long



num = Evaluate("numfact")

num = num + 1


ThisWorkbook.Names.Add "numfact", RefersTo:=num, Visible:=False



End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Hola chicos,

Sub PROBAR()
Dim num As Long
num = Evaluate("numfact")
num = num + 1
ThisWorkbook.Names.Add "numfact", RefersTo:=num, Visible:=False
End Sub

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Totalmente de acuerdo: la idea era simplemente mostrar la creación de la "casilla de alojamiento invisible y donde la vida de la variable supera, procedimiento, modulos, proyectos...persiste aun...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Totalmente de acuerdo: la idea era simplemente mostrar la creación de la "casilla de alojamiento invisible y donde la vida de la variable supera, procedimiento, modulos, proyectos...persiste aun...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí