Como insertar "contador" en una celda de excel al imprimir varia.

10/11/2004 - 16:09 por Contador en una Celda | Informe spam
Tengo un formato en la cual en una celda quiero insertar un contador
automatico al imprimir. ejemplo. Al imprimir 10 copias del formato me vaya
contado en una celda automaticamente e impreso. 1 of 10, 2 of 10, 3 of
10...etc.
Como en Microsoft word Mail merge puedo hacer form letter.
O de otra forma, al imprimir 100 copias de un formato me vaya enumerando en
una de sus celdas automaticamente 1, 2, 3 hasta 100. puedo hacer eso?

Preguntas similare

Leer las respuestas

#1 L. A. M.
11/11/2004 - 14:09 | Informe spam
Creo que te sirve este codigo que debes colocar en el codigo del objeto
ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Hoja1.Range("a1") = Hoja1.Range("a1") + 1
If Hoja1.Range("a1")> = 100 Then
If MsgBox("Ya imprimiste 100 copias. Deseas reiniciar el contador?",
vbQuestion + vbYesNo) = vbYes Then Hoja1.Range("a1") = ""
End If
End Sub

Cuando completes 100 copias, el procedimiento te pregunta si quieres
reiniciar el contador.


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Contador en una Celda" <Contador en una
escribió en el mensaje
news:
Tengo un formato en la cual en una celda quiero insertar un contador
automatico al imprimir. ejemplo. Al imprimir 10 copias del formato me vaya
contado en una celda automaticamente e impreso. 1 of 10, 2 of 10, 3 of
10...etc.
Como en Microsoft word Mail merge puedo hacer form letter.
O de otra forma, al imprimir 100 copias de un formato me vaya enumerando
en
una de sus celdas automaticamente 1, 2, 3 hasta 100. puedo hacer eso?






Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida