NUMERACION AUTOMATICA EN UNA CELDA

07/01/2005 - 20:21 por juan carlos | Informe spam
como hago para que me de un consecutivo cada que imprima una hoja y vuel va a
entrar en ella
 

Leer las respuestas

#1 KL
08/01/2005 - 03:40 | Informe spam
Hola Juan Carlos,

Creo q habra q hacer uso del codigo VBA. Una opcion podria ser creando un
boton con un macro asignado. Este macro primero mandaria el documento a
imprimir y luego incrementaria el valor de la celda en cuestion. Algo asi:

Private Sub CommandButton1_Click()
With ActiveSheet
.PrintOut
.Range("A1") = .Range("A1") + 1
End With
End Sub

Tambien se podria usar el evento Before Print del objeto Workbook, pero esta
solucion tendria dos inconvinientes principales:
- el codigo se disparara tanto si se impime el documento como si se llama la
vista previa, q luego no quiere decir q se vaya a imprimir necesariamente el
documento. Y tambien si se cancela la impresion la celda ya se habra
actualizado igualmente.
- la celda se tendra q incrementala antes de imprimir - no despues
-el codigo se disparara si se imprime cualquier hoja del libro no una hoja
en concreto.
Por ejemplo este codigo hay que copiarlo al modulo VBA de EsteLibro
(ThisWorkbook)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MiCelda As Range
Set MiCelda = Sheets("Hoja1").Range("A1")
MiCelda = MiCelda + 1
End Sub

Saludos,
KL

"juan carlos" <juan wrote in message
news:
como hago para que me de un consecutivo cada que imprima una hoja y vuel
va a
entrar en ella

Preguntas similares