Contador de facturas

Hola Jose Manuel

El unico que te he encontrado es éste:

************************************************************************
Hace un par de años tuve la misma duda, hice una macro que
además de hacer un contador y mandar a imprimir me incluía
los datos de la factura en otra hoja y los dejaba listos
como una base de datos para hacer mis filtros.
Te paso el código de la macro:
O SI LO PREFIERES TE MANDO EL ARCHIVO DE EXCEL.

Sub IMPRIMIR()
Dim YouWantReg As Variant
With Sheets("factura")
nuevo = Range("nofact") + 1
nuevo = Sheets("factura").Range("nofact") + 1
'--> LA SIGUIENTE LÍNEA MANDA A IMPRIMIR
ActiveWindow.SelectedSheets.PrintOut Copies:=1
YouWantReg = MsgBox(PROMPT:="Sus datos son
correctos ?", _
Buttons:=vbYesNo,
title:=ActiveWorkbook.Name) 'title:="FacturaVsa")
If YouWantReg = vbYes Then
MsgBox "No. de factura es" & " " & Sheets("factura").Range
("nofact"), title:=ActiveWorkbook.Name '"FacturaVsa"
Sheets("FACTURA").PrintOut Copies:=1
'--> AQUÍ ESTÁ EL CÓDIGO QUE COPIA LOS DATOS DE LA FACTURA
EN LA BASE DE DATOA
Application.StatusBar = False '"generando ..."
Set TransRowRng = Worksheets("baseconsig").Cells(1,
1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
'
With Worksheets("baseconsig")
.Cells(NewRow, 1).Value = Sheets("factura").Range
("nofact")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 2).Value = Sheets("factura").Range
("dat")
End With
'

With Worksheets("baseconsig")
.Cells(NewRow, 3).Value = Sheets("factura").Range
("fab")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 4).Value = Sheets("factura").Range
("pair") + _
Sheets("factura").Range("uno") + Sheets
("factura").Range("dos") + Sheets("factura").Range("tres")
+ Sheets("factura").Range("cuatro") + Sheets
("factura").Range("cinco") + Sheets("factura").Range
("seis") + Sheets("factura").Range("siete") + Sheets
("factura").Range("ocho") + Sheets("factura").Range
("nueve") + Sheets("factura").Range("diez")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 5).Value = Sheets("factura").Range
("ABSOLUTE")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 6).Value = Sheets("factura").Range
("oserv")
End With
If Sheets("factura").Range("fab") = "1" Then
MsgBox Sheets("factura").Range("fab"),
title:=ActiveWorkbook.Name
ElseIf Sheets("factura").Range("fab") = "13" Then
MsgBox Sheets("factura").Range("fab"),
title:=ActiveWorkbook.Name
Else
MsgBox "El rango fábrica no es correcto" & " " & Sheets
("factura").Range("fab"), title:="FacturaVsa"
End If
'--> FIN DE LA RUTINA QUE COPIA LOS DATOS DE LA FACTURA EN
LA BASE DE DATOS

Range("nofact") = nuevo
MsgBox "No. de factura es" & " " & Sheets("factura").Range
("nofact"), title:=ActiveWorkbook.Name '"FacturaVsa"
End If
End With
End Sub


A sus órdenes.

Saludos,

Quisiera saber si alguien me puede ayudar con esto, como
puedo hacer un contador en excel para que cuando mande a
imprimir me sume 1 en una celda.

Gracias.

.

"Jose Manuel" escribió en el mensaje
news:

Hola a todos.
Estoy intentando encontrar un artículo que se publicó en este foro acerca
de la creación de contadores de facturas en una hoja Excel, pero no
consigo dar con él. A ver si hubiera alguien que pudiera echarme un cable,
ya que pretendo crear una plantilla de factura que cada vez que la abra
tenga un numero de factura superior al último que se creó.

Muchas gracias.

******************************************************************

Espero que se parezca algo a lo que buscas.

Ya me diras si te ha ido bien.

Un saludo

Joan Antoni Passaret