Clinton tiene un libro de trabajo que contiene más de 200 hojas de trabajo que son rellenadas por varias personas de su empresa durante el mes. Al final del mes, necesita imprimir estas hojas de trabajo. No todas las hojas de trabajo contienen datos y Clinton solo quiere imprimir las hojas de trabajo que contienen datos para no desperdiciar papel. Se pregunta si hay, quizás, una macro que pueda usar para imprimir solo aquellas hojas de trabajo que tienen un valor en la celda G41.

La respuesta es que tal macro podría escribirse con bastante facilidad. Solo necesitaría averiguar cuántas hojas de trabajo hay, verificar la celda G41 en cada una de ellas y luego imprimir solo si hay algo en esa celda.

La siguiente macro realiza solo estas operaciones.

Sub PrintMost()

Dim wks As Worksheet     For Each wks In ActiveWorkbook.Worksheets         If Not IsEmpty(wks.Range("G41")) Then             wks.PrintOut         End If     Next     Set wks = Nothing End Sub

La macro podría modificarse fácilmente para realizar otras operaciones, como preguntar si se debe imprimir una hoja de trabajo determinada o preguntar cuántas copias se deben imprimir.

_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 (3502) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Printing_Only_Non-Blank_Worksheets [Imprimiendo solo hojas de trabajo que no están en blanco].