Macro para extraer comentarios de una columna en Excel

0

 


Código:


Sub ExtraerComentarios()

    Dim R As Range, C As Range, I As Range, B As Comment

    On Error Resume Next

    Set R = Application.InputBox("Selecciona el rango de columna de la cual se extraerán los comentarios:", Type:=8)

    On Error GoTo 0

    If R Is Nothing Then Exit Sub

    On Error Resume Next

    Set C = Application.InputBox("Selecciona la celda a partir de la cual se pegarán los comentarios:", Type:=8)

    On Error GoTo 0

    If C Is Nothing Then Exit Sub

    For Each I In R

    If Not I.Comment Is Nothing Then

    Set B = I.Comment

    C.Value = B.Text

    End If

    Set C = C.Offset(1)

    Next I

    MsgBox "Los comentarios se han extraído correctamente."

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel