Microsoft Excel incluye algunas herramientas excelentes que lo ayudan a filtrar tablas de datos grandes para incluir solo la información que desea que se muestre. En efecto, los filtros le permiten «cortar y cortar» sus datos hasta que obtenga lo que desea.

Al imprimir datos filtrados, es posible que desee saber qué corte y corte se realizó en los datos originales. Hay varias formas de mostrar sus criterios de filtrado. Una forma sencilla es utilizar las capacidades de filtrado avanzadas de Excel, que requieren que configure una pequeña tabla de criterios para sus datos. Si la tabla de criterios forma parte de lo que imprime, podrá ver sus criterios de filtrado con bastante facilidad.

Si usa AutoFilter, entonces necesita usar un enfoque diferente. Uno de estos enfoques se detalla en el sitio de John Walkenbach:

http://j-walk.com/ss/excel/usertips/tip044.htm

Esta solución utiliza una función definida por el usuario para devolver cualquier criterio de filtrado en uso en la columna actual. La función se puede utilizar en una celda, en esa columna, para mostrar los criterios. Si está utilizando filtrado avanzado, entonces el enfoque macro es un poco más complejo. Las siguientes macros (hay dos de ellas en la lista) examinan qué criterios avanzados están en juego y luego colocan los criterios en la parte izquierda del encabezado.

Sub AddFilterCriteria()

Dim strCriteria As String

strCriteria = FilterCriteria()

If strCriteria = "" Then         strCriteria = "No Filtering Criteria"

Else         strCriteria = "Filter Criteria:" & Chr(10) & strCriteria     End If

'   add Criteria string to Header/Footer     With ActiveSheet.PageSetup         .LeftHeader = strCriteria     End With End Sub

Function FilterCriteria() As String     Dim rngCriteria As Range, col As Range, cel As Range     Dim strCriteria As String, r As Integer, c As Integer     Const strCriteriaRange As String = "Criteria"



FilterCriteria = ""



On Error Resume Next     'Set Criteria-Range reference     Set rngCriteria = Range(strCriteriaRange)

If Err <> 0 Then Exit Function     On Error GoTo 0

'   Create Criteria String     c = 0     For Each col In rngCriteria.Columns         c = c + 1     ' CriteriaRange Columns         r = 1         ' CriteriaRange Rows         For Each cel In col.Cells             If r = 1 Then                 strCriteria = strCriteria & "Criteria" _                   & c & " (" & cel.Value & ") = "

Else                 strCriteria = strCriteria & "'" & cel.Value & "'"

If IsEmpty(cel.Offset(1, 0)) Then                     'Add New row Char if not Last Criteria Column                     If c < rngCriteria.Columns.Count Then                         strCriteria = strCriteria & Chr(10)

End If                     Exit For                 End If                 strCriteria = strCriteria & "  "

End If             r = r + 1         Next cel    ' next criteria row     Next col        ' next criteria column

FilterCriteria = strCriteria End Function

Para usar la macro, simplemente ejecute la macro AddFilterCriteria, después de haber configurado su filtrado avanzado. La macro lee la tabla de criterios y junta los criterios en una cadena que se coloca en el encabezado izquierdo.

_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 (3248) 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-Shows_Filter_Criteria_on_a_Printout [Mostrando criterios de filtro en una impresión].