Como inserto un numero consecutivo en una plantilla de factura?

Hola,

, se inserte
automaticamente o en el peor de los casos de forma manual (dando click a un
boton) un numero consecutivo,

Este código lo tienes que poner en el modulo del libro "ThisWorkbook"


Private Sub Workbook_Open()
If ActiveSheet.Name = "Hoja1" Then
If Not Application.IsNumber(Range("A1").Value) Then
Range("A1").Value = 0
Range("A1").Value = Range("A1").Value + 1
End If
End Sub

un saludo,
jose

Gracias Jose, ahoa el punto es cual es el paso a seguir? ya inserte el
codigo, pero ahora como defino de cuantos digitos va a ser el consecutivo y
la celda en la que lo voy a colocar?

Gracias.

"~ jose ~" escribió:

Hola,
>, se inserte
> automaticamente o en el peor de los casos de forma manual (dando click a un
> boton) un numero consecutivo,

Este código lo tienes que poner en el modulo del libro "ThisWorkbook"


Private Sub Workbook_Open()
If ActiveSheet.Name = "Hoja1" Then
If Not Application.IsNumber(Range("A1").Value) Then
Range("A1").Value = 0
Range("A1").Value = Range("A1").Value + 1
End If
End Sub

un saludo,
jose

Hola

...es cual es el paso a seguir?

Lo que tienes que hace ahora es cerrar el libro y al abrirlo de nuevo
verás que te suma "1" en la celda A1

..., pero ahora como defino de cuantos digitos va a ser el consecutivo

si quieres empezar (o seguir) tus facturas con el numero por ejmplo
1000 lo que tienes que hace es poner en la celda A1 el numero 1000 y al
abrirlo de nuevo te aparecerá el 1001

la celda en la que lo voy a colocar?

para modificr la ubicación de la celda a colocar el "contador" solo
tienes que cambiar en el código expuesto todos los "A1" por la celda
que te interese.

Un saludo,
jose

>
> Este código lo tienes que poner en el modulo del libro "ThisWorkbook"
>
>
> Private Sub Workbook_Open()
> If ActiveSheet.Name = "Hoja1" Then
> If Not Application.IsNumber(Range("A1").Value) Then
> Range("A1").Value = 0
> Range("A1").Value = Range("A1").Value + 1
> End If
> End Sub
>
> un saludo,
> jose
>
>