numerar automaticamente facturas en excel

14/06/2006 - 22:34 por Rafael Molina | Informe spam
Tengo hecha una plantilla de factura y quisiera que me numerara cada factura
automáticamente para que cuando tenga que hacer una factura nueva, no tenga
que ir a mirar el número que le puse a la última. ¿es posible hacer esto con
excel?

Preguntas similare

Leer las respuestas

#1 Francisco MTY
15/06/2006 - 01:04 | Informe spam
Podrias enviar una copia del archivo y poder asi trabajar con el mismo.

saludos

mailto:
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES
#2 groman83
16/06/2006 - 00:16 | Informe spam
Hola Rafa:
Yo también manejo un archivo de excel para facturar y tuve en algún
momento la misma inquietud que planteas y la solucione creando una macro
con el siguiente codigo:
Nota: Yo tengo un libro con una hoja llamada 'Factura', en esta hoja el
numero de la factura que necesito ir incrementando esta ubicado en la
celda "E2", por lo tanto el codigo quedaria asi:

VbleNumeroFactura = Trim(Str(Worksheets("Factura").Range("E2").Value + 1))
TamanoNumFact = Len(NumeroFactura)
CerosIzquierda = 7 - TamanoNumFact
Select Case CerosIzquierda
Case Is = 1
NumeroFactura = "0" & NumeroFactura
Case Is = 2
NumeroFactura = "00" & NumeroFactura
Case Is = 3
NumeroFactura = "000" & NumeroFactura
Case Is = 4
NumeroFactura = "0000" & NumeroFactura
Case Is = 5
NumeroFactura = "00000" & NumeroFactura
Case Is = 6
NumeroFactura = "000000" & NumeroFactura
End Select
Worksheets("Factura").Range("E2").Value = NumeroFactura

Puedes crear un boton en la barra de herramientas que invoque esta macro.
Si tienes alguna inquietud no dudes en volver a escribir.




Rafael Molina wrote:

Mostrar la cita
con
Mostrar la cita
#3 groman83
16/06/2006 - 00:26 | Informe spam
Rafa:

Debo de aclarar que la numeración de mi factura es de 7 dígitos, y cada
que se genere un consecutivo el resto de posiciones las relleno con ceros.
Es decir, si voy en el consecutivo 58, entonces la próxima factura en en
la celda quedaría así: 0000059, o si voy en el consecutivo 165 entonces en
la celda se vería el número de la próxima factura así: 0000166.
Una autosugerencia a mi código es que uses en la línea: 'VbleNumeroFactura
= Trim(Str(Worksheets("Factura").Range("E2").Value + 1))' una celda
diferente a E2 con formato numérico y la que originalmente es E2 Colócale
formato de celda de texto para evitar incongruencias de tipos de datos.

bye



Giovanny Roman wrote:

Mostrar la cita
factura
Mostrar la cita
tenga
Mostrar la cita
Ads by Google
Search Busqueda sugerida