Insertar un número de registro para cada pedido con un Textbox que se incremente doblemente
Estimados compañeros:
Desde un Formulario deseo rellenar una hoja de pedidos, para lo cual he de insertar un Nº de registro de tal manera que se vaya incrementando con cada pedido y lo haga doblemente: desde el número 0000 y con el año actual.
Un ejemplo, para el pedido 5 sería: 0005/2014
Con la secuencia siguiente sólo incrementa desde el 0000
TextBox1.Value = Format(Application.WorksheetFunction.CountA(Range("A:A")), "0000")
Se podría hacer?
Gracias
1 Respuesta
Para llevar un nro de registro, quizás te convenga utilizar la función MAX:
TextBox1.Value = Format(Application. WorksheetFunction. Max(Range("A:A")) + 1, "0000")Para que solo incremente la parte 'numerica' debes darle a la col un formato personalizado, por ej:
0000\ /"2014"
El espacio entre las 2 barra no va, solo lo dejo para que no se confunda con la V corta. Esto hará que la función MAX solo mire la parte numérica.
Si la hoja guardará información de 2 o más años, ya no podrás utilizar este formato, tendrás que pensar en una col auxiliar donde concatenar los 2 valores: nro registro y año.
Sdos
Elsa
