Macro que copie los comentarios en una nueva fila
En excel 2010.
Tengo que extraer los comentarios de varias celdas, de varias filas, me podrán ayudar con una macro que: en una hoja empiece por la fila 1 hasta la 800
Cada fila me pegue los comentarios dentro de una celda, misma que este abajo de la celda que contenía el comentario y cuando termine la fila, ¿continué leyendo la siguiente fila y vuelva a insertar una nueva fila copiando los nuevos comentarios?.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub CopiarComentarios() 'Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = u To 1 Step -1 Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove For Each c In Rows(i).SpecialCells(xlCellTypeComments) c.Offset(1, 0) = c.Comment.Text Next If WorksheetFunction.CountA(Rows(i + i)) = 0 Then Rows(i + 1).Delete Next Application.ScreenUpdating = True MsgBox "Fin" End Sub
¡Gracias!
la prueba inmediatamente, saludos, y excelente día.
Después de probarla recuerda valorar la respuesta.
