Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate ahora y podrás: / 💪 Hacer preguntas a los expertos / ⬇️ Descargar ejemplos y plantillas / 🏅 Acceder a contenidos premium

Regístrate gratis

texto de un comentario en una celda automatic. en Excel con Macros

eperalta

New member
Buenas noches estimados,

tengo un inconveniente con el código de una macro estoy usando office 2019.

Cualquier ayuda se lo agradecería.

===== código ======
Sub comentario()

Dim ColumnaComent As Integer
Dim FilaComent As Integer
Dim ColumnaPegar As Integer
Dim FilaPegar As Integer
Dim FilaLimite As Integer

ColumnaComent = InputBox(" escribe el # de columna donde comienza el primer comentario")
FilaComent = InputBox(" escribe el # de fila donde comienza el primer comentario")
FilaLimite = InputBox(" escribe el # de fila donde termina los comentario")
ColumnaPegar = InputBox(" escribe el # de columna donde desea pegar el primer comentario")
FilaPegar = InputBox(" escribe el # de fila donde desea pegar el primer comentario")



For filas = FilaComent To FilaLimite

Texto = Cells(FilaComent, ColumnaComent).Comment.Text


Cells(FilaPegar, ColumnaPegar) = Texto

FilaComent = FilaComent + 1
FilaPegar = FilaPegar + 1

Next


=== error ===

1618284501120.png
 

Antoni

Well-known member
Selecciona el rango a tratar y ejecuta esta macro:
Código:
Sub ComentsToCelda(): On Error Resume Next
Application.ScreenUpdating = False
For Each celda In Selection
   celda.Value = celda.Comment.Text
Next
End Sub
 

Héctor Miguel

Well-known member
hola, a todos !
tengo un inconveniente con el código de una macro
no te serviria una funcion personalizada que rescate el texto del comentario de la celda que le pases como argumento ? (algo ± asi):
Código:
Function verComentarioDe(celda As Range) As String: Dim texto As String
  With celda(1)
    If Not .Comment Is Nothing Then texto = .Comment.Text
  End With: verComentarioDe = texto
End Function
 

eperalta

New member
Gracias estimados , ya fue solucionado creo que formule mal la pregunta , era extraer la url del hipervínculo.

Function Extraer_Hipervinculo(Rango As Range)
Dim Hipervinculo As String
Hipervinculo = Rango.Hyperlinks(1).Address
Extraer_Hipervinculo = Hipervinculo
End Function


1618344459198.png
 

Temas similares

Arriba