Héctor tiene una hoja de trabajo grande que contiene aproximadamente 600 filas y 70 columnas. Distribuidas a lo largo de estas 43.000 celdas hay unas 200 celdas con comentarios. Héctor quiere extraer los comentarios y colocarlos en celdas a la derecha del cuerpo principal de la tabla de datos. Si, por ejemplo, se adjunta un comentario a la celda C43, le gustaría que el texto de ese comentario termine en la celda CC43 y que se elimine el comentario original.

Puede pensar que podría usar Pegado especial para realizar la tarea, pero eso no funciona. Si copia las celdas originales y luego usa Editar | Pegar especial | Comentarios, solo los comentarios se pegan en las celdas de destino. Siguen siendo comentarios y no texto en celdas, lo que va en contra del objetivo de Héctor.

La única forma de manejar este tipo de extracción es utilizar una macro. Lo siguiente, cuando se ejecuta en una selección de celdas, extraerá los comentarios, moverá el texto del comentario y luego eliminará el comentario original.

Sub CommentsToCells()

Dim rCell As Excel.Range     Dim rData As Excel.Range     Dim sComment As String

' Horizontal displacement     Const iColOffset As Integer = 78

' extract comments from selected range     If TypeName(Selection) = "Range" Then         Set rData = Intersect(Selection, ActiveSheet.UsedRange)

For Each rCell In rData.Cells             On Error Resume Next             sComment = rCell.Comment.Text             If Len(sComment) > 0 Then                 rCell.Offset(, iColOffset).Value = sComment                 rCell.Comment.Delete             End If             sComment = ""

On Error GoTo 0         Next     End If End Sub

La macro usa la constante iColOffset para especificar cuántas celdas hacia la derecha se debe mover el texto de un comentario. En este caso, el desplazamiento (78) es igual a tres «alfabetos» (26 * 3), por lo que el texto de un comentario originalmente en la columna C terminará en la columna CC.

_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 (2981) 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_to_Cells [Copiando comentarios a celdas].