Como inserto un numero consecutivo en una plantilla de factura?

12/07/2006 - 19:02 por fabiandiaz.com | Informe spam
Deseo que cada vez que se abra una plantilla de factura que tengo, se inserte
automaticamente o en el peor de los casos de forma manual (dando click a un
boton) un numero consecutivo, para no tener que llevar una lista de papel y
estar marcando los consecutivos que ya he puesto en mis facturas.
 

Leer las respuestas

#1 ~ jose ~
12/07/2006 - 20:10 | Informe spam
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

Preguntas similares