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

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Enumeracion automatica

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

Responder a este mensaje

#2 Erick J. Icaza, AMBITEC Nicaragua

19/07/2006 - 17:16 | Informe spam

Hola, disculpen que me entrometa en la discusión, pero me parece muy valioso
el dato, he tratado de utilizarlo, pero nose si es que estoy haciendolo mal,
abrí el editor de visual basic, pegue el codigo y grabé el Libro, pero al
escribir 1 en la celda A1 que se refiere a numOrden, no me cambia el numero,
es que soy demasiado novato y estoy haciendo algo mal? donde debo utilizar
el codigo que proporcionastes?

Responder a este mensaje

#3 AnSanVal

19/07/2006 - 18:33 | Informe spam

Tal ves no cambiaste la línea: Range("numOrden").Value =
Range("numOrden").Value + 1
a: Range("A1").Value = Range("A1").Value + 1

Saludos desde Tenerife (España).
*****************************
"Erick J. Icaza, AMBITEC Nicaragua" <erickicaza@(nospam)hotmail.com>
escribió en el mensaje news:

Hola, disculpen que me entrometa en la discusión, pero me parece muy
valioso el dato, he tratado de utilizarlo, pero nose si es que estoy
haciendolo mal, abrí el editor de visual basic, pegue el codigo y grabé el
Libro, pero al escribir 1 en la celda A1 que se refiere a numOrden, no me
cambia el numero, es que soy demasiado novato y estoy haciendo algo mal?
donde debo utilizar el codigo que proporcionastes?

Responder a este mensaje

#4 AnSanVal

19/07/2006 - 18:38 | Informe spam

Hola de nuevo Erick.
En el Editor de VBA haz doble clic en ThisWorkbook y pegas el código a la
derecha.
El número solamente se incrementa cuando mandas a imprimir.

Saludos desde Tenerife (España).
******************************
"Erick J. Icaza, AMBITEC Nicaragua" <erickicaza@(nospam)hotmail.com>
escribió en el mensaje news:

Hola, disculpen que me entrometa en la discusión, pero me parece muy
valioso el dato, he tratado de utilizarlo, pero nose si es que estoy
haciendolo mal, abrí el editor de visual basic, pegue el codigo y grabé el
Libro, pero al escribir 1 en la celda A1 que se refiere a numOrden, no me
cambia el numero, es que soy demasiado novato y estoy haciendo algo mal?
donde debo utilizar el codigo que proporcionastes?

Responder a este mensaje

#5 Erick J. Icaza, AMBITEC Nicaragua

19/07/2006 - 19:03 | Informe spam

Todo funciona bien, creo que estaba pegando el codigo solamente a la hoja
activa, y habia quitado las comillas.

Bueno, mil gracias por la aclaración

Responder a este mensaje

Ads by Google