27/08/2007, 10:24
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 1 mes Puntos: 17 | |
| Re: crear numerador
prueba esto :
numeropagina = 0
While numeropagina < 1255
etiqueta = ""
For x = 5 To 1 Step -1
etiqueta = etiqueta & " " & Format(numeropagina + x, "00000")
Next x
MsgBox etiqueta
numeropagina = numeropagina + 5
Wend
QUe hace?
en la variable etiqueta guarda las cadenas de numeros que tu necesitas, el ejemplo los imprime como mensaje, tu debes ocuparlas donde necesites con el formato que requieras,
crea un formulario y pega el codigo en un boton, lo ejecutas y lo pruebas, si te sirve, la raja
saludos!!!! |