A Henry le gustaría que una celda contenga un número que se incrementa cada vez que se imprime una copia de la hoja de trabajo. Por lo tanto, si la celda contiene el número 9 y él imprime 13 copias de la hoja de trabajo, cada copia contendrá, en esa celda, los números 9, 10, 11 y hasta el 21.

Esto, como puede adivinar, se hace mejor con una macro. Todo lo que se necesita hacer es imprimir la hoja de trabajo cuantas veces se desee, incrementando el valor de la celda después de cada impresión. En este caso, asumiré que la celda que se incrementará es B7. La siguiente macro manejará el proceso:

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

Tenga en cuenta que la macro le pregunta al usuario cuántas copias desea imprimir y luego imprime cada una, individualmente. Después de cada impresión, incrementa el valor almacenado en la celda B7. Si el usuario ingresa algo que no se traduce en una cantidad de copias, no se imprime nada.

Recuerde que si desea que el número de valor en B7 esté siempre actualizado, deberá guardar el libro en algún momento después de la última impresión. Además, si imprime utilizando algún método que no sea esta macro, el valor en B7 no reflejará el número de copias reales impresas.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12135) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.