numerar automaticamente facturas en excel

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

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:

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?

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:

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:

> 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?