Extraer comentarios en Excel mediante una macro 💬 скачать в хорошем качестве

Extraer comentarios en Excel mediante una macro 💬

Como extraer fácilmente comentarios en una celda en Microsoft Excel, mediante una Macro, la cual extrae los comentarios a una columna a partir de un rango proporcional que contiene los comentarios que se desea extrae y pega relativa y verticalmente a partir de una celda inicial que se indique. En versiones más reciente de Excel Comentario paso a denominarse "Nota". Link código: https://wwwingenieriaburotica.blogspo... Sub IB·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 del cual se extraerán los comentarios:", "INGENIERÍA & BURÓTICA", 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:", "INGENIERÍA & BURÓTICA", , 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.", , "INGENIERÍA & BURÓTICA" End Sub