Enumeración Automática de Recibos

19/07/2006 - 13:48 por Josema | Informe spam
Hola Grupo ¿podríais decirme algún código que pusiera de alguna forma de tal
manera que me fuera enumerando los recibos que doy?
Imaginenemos que creo un textbox y quiero que se recojan en el los números
de recibos que voy dando: 1,2,3,4,5,6, etc. De manera que cuando comience a
dar recibos siempre esté en el que corresponda. Si un día termine en el 10,
cuando llamo al formulario al día siguiente este ya preparado en el 11, y
así sucesivamente.
Gracias
Josema
 

Leer las respuestas

#1 AnSanVal
19/07/2006 - 14:20 | Informe spam
Puedes utilizar el evento BeforePrint, por ejemplo:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' numOrden se refiere a la celda que contiene el número de orden.
Range("numOrden").Value = Range("numOrden").Value + 1
End Sub

Saludos desde Tenerife (España).
*******************************
"Josema" <josedoalARROBAhotmail.com> escribió en el mensaje
news:
Hola Grupo ¿podríais decirme algún código que pusiera de alguna forma de
tal manera que me fuera enumerando los recibos que doy?
Imaginenemos que creo un textbox y quiero que se recojan en el los números
de recibos que voy dando: 1,2,3,4,5,6, etc. De manera que cuando comience
a dar recibos siempre esté en el que corresponda. Si un día termine en el
10, cuando llamo al formulario al día siguiente este ya preparado en el
11, y así sucesivamente.
Gracias
Josema


Preguntas similares