Madhabi quiere imprimir cuatro copias de una hoja de trabajo, pero el valor de la celda A7 cambia para cada copia. Los cuatro valores son «Original»,

«Duplicar», «Archivo» y «Controlador». Siendo todos los demás datos iguales, Madhabi se pregunta cómo puede cambiar el texto de la celda A7 mientras imprime.

Un posible enfoque es crear cuatro hojas de trabajo diferentes que contengan esencialmente la misma información. Las hojas de trabajo 2 a 4 podrían hacer referencia a las celdas de la hoja de trabajo 1, con la excepción de la celda A7, que podría configurarse en cada hoja de trabajo con un valor diferente («Original»,

«Duplicado», etc.).

Sin embargo, un mejor enfoque sería crear una macro rápida que podría utilizar para su impresión. La macro podría manejar cambiar el valor de la celda A7 justo antes de que se imprima la hoja de trabajo cada vez. Aquí hay un ejemplo simple:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

La macro coloca los cuatro valores destinados a la celda A7 en una matriz. Luego, la macro recorre cada uno de los cuatro elementos de la matriz, coloca el valor en la celda A7 y luego imprime la hoja de trabajo. La impresión se realiza en la impresora predeterminada del sistema.

La macro podría asignarse fácilmente a una tecla de método abreviado oa la barra de herramientas de acceso rápido (como se describe en otros ExcelTips) para que pueda imprimir las cuatro copias rápidamente.

_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 (9962) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.