Celda con comentario

[Janlui]

Que sentencia debo de realizar para preguntar si una Celda tiene Comentario.

Gracias

[JSDJSD]

Sub ExtraerComentarios()
 
'Definir la hoja donde se colocarán los comentarios
Dim hojaComentarios As Worksheet
Set hojaComentarios = ActiveWorkbook.Sheets("Hoja2")
 
'Extraer los comentarios si se ha seleccionado un rango
If TypeName(Selection) = "Range" Then
     
    'Establecer el rango a inspeccionar
    Set rango = Intersect(Selection, ActiveSheet.UsedRange)
     
    'Recorrer todas las celdas del rango
    For Each celda In rango.Cells
         
        'Obtener el comentario de la celda
        On Error Resume Next
        comentario = celda.Comment.Text
                 
        'Si la celda tiene un comentario
        If Len(comentario) > 0 Then
            fila = fila + 1
             
            'Insertar la direccón de la celda en la columna A
            'y el texto del comentario en la columna B
            hojaComentarios.Range("A" & fila) = celda.Address
            hojaComentarios.Range("B" & fila) = comentario
             
            'Opcional: Borrar el comentario original
            'celda.Comment.Delete
        End If
         
        comentario = ""
        On Error GoTo 0
    Next
End If
 
End Sub

 

[Janlui]

Hola, te explico si pongo esto

existe_comentario = Len(ActiveCell.Comment.Text)

Y si hay comentario, me dice el largo del comentario... pero si Activecell no tiene comentario me manda error

 

[JSDJSD]

Sabiendo que es el único error que nos puede reportar utiliza On Error Resume Next 

[Janlui]

Ya lo encontr'e

    If ActiveCell.Comment Is Nothing Then
        Existe = "no"
    Else
        Existe = "Si"
    End If

 

[JSDJSD]

ok

[Gerson Pineda]

Hace 3 horas, Janlui dijo:

Que sentencia debo de realizar para preguntar si una Celda tiene Comentario.

Gracias

A parte de lo aportado por JSD

Con esta linea identificas y seleccionas rápidamente, que celdas contienen comentarios

Range("A:A").SpecialCells(-4144).Select

 Hace un rato, aporte algo sobre comentarios aqui

La ventaja de usar este método, es que no necesito recorrer celdas que no tengan comentarios, va directo a ellas, por lo tanto el procedimiento es mucho mas eficiente 

 

Saludos 

[juan alberto]

Estimados esa macro esta perfecta para los comentarios de tipo nota pero cuando se requiere extraer comentarios que tienen hilos, como lo puedo hacer??

 

 

[Antoni]

Sube tu archivo Excel y pon un ejemplo de lo que tienes y de lo que quieres.

[juan alberto]

https://ibb.co/wQb6RFZ

 

En esa imagen deseo una macro que me permita extraer los comentarios incluyendo sus hilos, con la siguiente macro logro exportar el primen comentario pero no el segundo:

Sub ExtraerComentarios()

'Definir la hoja donde se colocarán los comentarios
Dim hojaComentarios As Worksheet
Set hojaComentarios = ActiveWorkbook.Sheets("Status Restricciones")

'Extraer los comentarios si se ha seleccionado un rango
If TypeName(Selection) = "Range" Then
    
    'Establecer el rango a inspeccionar
    Set rango = Intersect(Selection, ActiveSheet.UsedRange)
    
    'Recorrer todas las celdas del rango
    For Each celda In rango.Cells
        
        'Obtener el comentario de la celda
        On Error Resume Next
        comentario = celda.CommentThreaded.Text
                
        'Si la celda tiene un comentario
        If Len(comentario) > 0 Then
            fila = fila + 1
            
            'Insertar la direccón de la celda en la columna A
            'y el texto del comentario en la columna B
            hojaComentarios.Range("A" & fila) = celda.Address
            hojaComentarios.Range("B" & fila) = comentario
            
        End If
        
        comentario = ""
        On Error GoTo 0
    Next
End If

End Sub

 

[juan alberto]

Hace 48 minutos , juan alberto dijo:

ENLACE DE IMAGEN:

https://ibb.co/5r2HvLH

 

En esa imagen deseo una macro que me permita extraer los comentarios incluyendo sus hilos, con la siguiente macro logro exportar el primen comentario pero no el segundo:

Sub ExtraerComentarios()

'Definir la hoja donde se colocarán los comentarios
Dim hojaComentarios As Worksheet
Set hojaComentarios = ActiveWorkbook.Sheets("Status Restricciones")

'Extraer los comentarios si se ha seleccionado un rango
If TypeName(Selection) = "Range" Then
    
    'Establecer el rango a inspeccionar
    Set rango = Intersect(Selection, ActiveSheet.UsedRange)
    
    'Recorrer todas las celdas del rango
    For Each celda In rango.Cells
        
        'Obtener el comentario de la celda
        On Error Resume Next
        comentario = celda.CommentThreaded.Text
                
        'Si la celda tiene un comentario
        If Len(comentario) > 0 Then
            fila = fila + 1
            
            'Insertar la direccón de la celda en la columna A
            'y el texto del comentario en la columna B
            hojaComentarios.Range("A" & fila) = celda.Address
            hojaComentarios.Range("B" & fila) = comentario
            
        End If
        
        comentario = ""
        On Error GoTo 0
    Next
End If

End Sub

 

ENLACE DE IMAGEN :https://ibb.co/5r2HvLH

[juan alberto]

Hace 1 hora, Antoni dijo:

Sube tu archivo Excel y pon un ejemplo de lo que tienes y de lo que quieres.

ENLACE DE IMAGEN:

https://ibb.co/5r2HvLH

 

En esa imagen deseo una macro que me permita extraer los comentarios incluyendo sus hilos, con la siguiente macro logro exportar el primen comentario pero no el segundo:

Sub ExtraerComentarios()

'Definir la hoja donde se colocarán los comentarios
Dim hojaComentarios As Worksheet
Set hojaComentarios = ActiveWorkbook.Sheets("Status Restricciones")

'Extraer los comentarios si se ha seleccionado un rango
If TypeName(Selection) = "Range" Then
    
    'Establecer el rango a inspeccionar
    Set rango = Intersect(Selection, ActiveSheet.UsedRange)
    
    'Recorrer todas las celdas del rango
    For Each celda In rango.Cells
        
        'Obtener el comentario de la celda
        On Error Resume Next
        comentario = celda.CommentThreaded.Text
                
        'Si la celda tiene un comentario
        If Len(comentario) > 0 Then
            fila = fila + 1
            
            'Insertar la direccón de la celda en la columna A
            'y el texto del comentario en la columna B
            hojaComentarios.Range("A" & fila) = celda.Address
            hojaComentarios.Range("B" & fila) = comentario
            
        End If
        
        comentario = ""
        On Error GoTo 0
    Next
End If

End Sub

[Frank2021]

Hola,

Te envío mi propuesta

Public Function ReadComments(ByVal r As Range) As String

    On Error Resume Next
    Dim t As String
    t = r.CommentThreaded.Text & vbCrLf
    
    If t <> "" Then
        Dim comment As Excel.CommentThreaded
        For Each comment In r.CommentThreaded.Replies
            t = t & comment.Text & vbCrLf
        Next
    End If
    
    ReadComment = t

End Function

Ejemplo:

ReadComments(Range("E5"))

donde E5 es una celda con un hilo

Saludos

[juan alberto]

Hace 23 minutos , Frank2021 dijo:

ReadComments(Range("E5"))

donde E5 es una celda con un hilo

Saludos

ESA FORMULA VBA no me sirvió  https://ibb.co/BPqh60Z

[Antoni]

Public Function ReadComments(ByVal r As Range) As String
    On Error Resume Next
    Dim t As String
    t = r.CommentThreaded.Text & vbCrLf
    If t <> "" Then
        Dim comment As Excel.CommentThreaded
        For Each comment In r.CommentThreaded.Replies
            t = t & comment.Text & vbCrLf
        Next
    End If
    ReadComments = t '<----------------
End Function

 

[Antoni]

Hace 2 horas, Antoni dijo:

Sube tu archivo Excel, con imágenes no hacemos nada, y pon un ejemplo de lo que tienes y de lo que quieres.

 

[Frank2021]

Hola,

@Antoni, gracias por la corrección, le faltaba la "s" para devolver la cadena.

@juan alberto prueba ahora con la corrección, debería funcionar.

Saludos

[juan alberto]

Hace 1 hora, Antoni dijo:

Sube tu archivo Excel, con imágenes no hacemos nada, y pon un ejemplo de lo que tienes y de lo que quieres.

OK,

https://we.tl/t-lhkcIlUI6K

EN ESE ENLACE ESTA EL ARCHIVO, EN LA HOJA "STATUS DE RESTRICCIONES" ME GUSTARÍA UNA MACRO PARA EXPORTAR LOS COMENTARIOS DE LA HOJA "RESTRICCIONES" EN UNA SOLA COLUMNA  ACTUALMENTE UTILIZO UNA MACRO PERO NO ME EXTRAE LOS SUBCOMENTARIOS DE LA CELDA.

EJEMPLO:

EN LA IMAGEN NO SE EXPORTO EL SEGUNDO COMENTARIO DE LA CELDA K19 https://ibb.co/5r2HvLH , LA MACRO SOLO EXPORTO EL PRIMER COMENTARIO https://ibb.co/Mnn5Wcq DE LA CELDA K19

COMO MEJORO LA MACRO??

 

MACRO UTILIZADA:

Sub ExtraerComentarios()

'Definir la hoja donde se colocarán los comentarios
Dim hojaComentarios As Worksheet
Set hojaComentarios = ActiveWorkbook.Sheets("Status Restricciones")

'Extraer los comentarios si se ha seleccionado un rango
If TypeName(Selection) = "Range" Then
    
    'Establecer el rango a inspeccionar
    Set rango = Intersect(Selection, ActiveSheet.UsedRange)
    
    'Recorrer todas las celdas del rango
    For Each celda In rango.Cells
        
        'Obtener el comentario de la celda
        On Error Resume Next
        comentario = celda.CommentThreaded.Text
                
        'Si la celda tiene un comentario
        If Len(comentario) > 0 Then
            fila = fila + 1
            
            'Insertar la direccón de la celda en la columna A
            'y el texto del comentario en la columna B
            hojaComentarios.Range("A" & fila) = celda.Address
            hojaComentarios.Range("B" & fila) = comentario
            
        End If
        
        comentario = ""
        On Error GoTo 0
    Next
End If

End Sub

[juan alberto]

Hace 2 horas, Frank2021 dijo:

@juan alberto prueba ahora con la corrección, debería funcionar.

Muy agradecido por la función VBA, existe alguna posibilidad de que te mostrara en orden inverso los comentarios, es decir el hilo mas reciente primero???

[juan alberto]

Hace 2 horas, juan alberto dijo:

Muy agradecido por la función VBA, existe alguna posibilidad de que te mostrara en orden inverso los comentarios, es decir el hilo mas reciente primero???

ya lo solucione agradecido

[Antoni]

Abre el adjunto y pulsa sobre la flecha azul.

RESTRICCIONES P.OP.01.xlsm

[juan alberto]

Hace 13 horas, Antoni dijo:

Abre el adjunto y pulsa sobre la flecha azul.

RESTRICCIONES P.OP.01.xlsm 56.94 kB · 2 descargas

MUY AGRADECIDO, PERO SOLO PARA ENTENDER

QUE SIGNIFICA

  For x = 10 To .Range("B" & Rows.Count).End(xlUp).Row
      For y = 9 To 17 Step 2:

 

[Antoni]

Hace 9 horas, juan alberto dijo:

MUY AGRADECIDO, PERO SOLO PARA ENTENDER

QUE SIGNIFICA

  For x = 10 To .Range("B" & Rows.Count).End(xlUp).Row
      For y = 9 To 17 Step 2:

 

Bucle desde la fila 10 hasta la última fila de la con datos de la columna B y dentro de cada fila, bucle desde la columna 9 (I) hasta la columna 17(Q) de 2 en 2, o sea, columnas 9, 11, 13, 15 y 17 (J, L, N, O, Q).

[juan alberto]

Hace 4 horas, Antoni dijo:

Bucle desde la fila 10 hasta la última fila de la con datos de la columna B y dentro de cada fila, bucle desde la columna 9 (I) hasta la columna 17(Q) de 2 en 2, o sea, columnas 9, 11, 13, 15 y 17 (J, L, N, O, Q).

muy agradecido