Vinod utiliza con frecuencia las herramientas de filtrado avanzadas de Excel para copiar datos filtrados de una ubicación a otra. En algunos casos, le gustaría copiar no solo el contenido de la celda, sino también los comentarios de las celdas que cumplen con los criterios de filtrado. No está buscando una forma de filtrar en función de los comentarios, sino solo de copiar los comentarios junto con el contenido de la celda cuando utiliza las capacidades de filtrado avanzadas de Excel.

Por lo que sabemos, no hay forma de copiar comentarios usando filtrado avanzado; solo se copia el contenido de la celda. Sin embargo, es posible copiar fácilmente los comentarios mediante un proceso de dos pasos.

Primero, use el filtrado avanzado para filtrar sus datos, pero asegúrese de hacer el filtrado en el lugar; no especifique que desea que la información se copie en una ubicación diferente. Termina con una lista filtrada, que muestra solo las celdas que cumplen con sus criterios. A continuación, seleccione las celdas devueltas por el filtrado. Luego debe asegurarse de que Excel sepa que solo desea seleccionar las celdas visibles:

  1. Presione F5 para mostrar el cuadro de diálogo Ir a.

  2. Haga clic en Especial para mostrar el cuadro de diálogo Ir a especial. (Ver figura 1)

  3. Asegúrese de que la opción Solo celdas visibles esté seleccionada.

  4. Haga clic en Aceptar.

Con las celdas visibles seleccionadas (las ocultas por el filtrado no están seleccionadas), está listo para el segundo paso: Copie las celdas en otra ubicación utilizando técnicas de edición normales. El resultado es que los comentarios se copian junto con el contenido de la celda.

Si realiza esta tarea bastante y hasta le molesta hacer los dos pasos, podría automatizar la tarea. La siguiente macro aplicará un filtro avanzado en el lugar, copiará las celdas visibles en el Portapapeles y luego las pegará (y sus comentarios) en un nuevo libro de trabajo:

Sub AdvancedFilter_AndCopyComments()

With Range("Database")

' filter the data range         .AdvancedFilter Action:=xlFilterInPlace, _           CriteriaRange:=Range("Criteria"), Unique:=False         ' copy visible cells only         .SpecialCells(xlCellTypeVisible).Copy     End With

' goto to another worksheet     Sheets("Sheet1").Select     ' and paste the copied data     With Range("A1")

.PasteSpecial xlPasteColumnWidths         .PasteSpecial xlPasteAll     End With

Application.CutCopyMode = False End Sub

La macro asume que tiene configurados dos rangos con nombre: uno para los datos que se filtrarán (Base de datos) y el otro para los criterios de filtrado (Criterios). Ejecute la macro, y la información filtrada y comentada termina en Sheet1.

_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 (3169) 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-Copying_Comments_when_Filtering [Copiar comentarios al filtrar].