numero de factura

Supondré que el número de factura lo guardas como valor de
una celda determinada, por ejemplo la celda A1 de la Hoja1.

Private Sub Workbook_Open()
Worksheets("Hoja1").Range("A1").Value = Worksheets
("Hoja1").Range("A1").Value + 1
End Sub

todo ello dentro de ThisWorkbook. Cada vez que abras el
libro el valor de la celda A1 aumentará en una unidad.
También podrías asociar el incremento al click en un botón
de comando al imprimir o a cualquier otro evento que
consideres.

Saludos desde Zaragoza-España.

Hola!

Tengo la factura diseà±ada, pero me encuentro con un

estàºpido problema. Tengo que aà±adir el numero de factura
manualmente cada vez que realizo una nueva? no existe
ninguna formulilla que automà ticamente ponga el numro de
factura en funcion de la anteriormente realizada?

muchas gracias comunidad
.

"DAvid" escribió:

Hola!

Tengo la factura diseñada, pero me encuentro con un estúpido problema. Tengo que añadir el numero de factura manualmente cada vez que realizo una nueva? no existe ninguna formulilla que automàticamente ponga el numro de factura en funcion de la anteriormente realizada?
muchas gracias comunidad

Tengo un caso similar y para eso utilicé en el código esta macro y en excel las fórmulas que aquí le relaciono.

EN EL CÓDIGO...

Sub Numero()
Range("E1001").Select
Selection.Copy
Range("E1002").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


EN EXCEL...
COLUMNA

E999

FILA D1000 =SI(B1000=0;E1002;(E1003-1))
FILA D1001 =SI(B1000=0;E1002;E1002+1)
FILA D1002 1
FILA D1003 á002+1
FILA D1004 =H1002+1