Hola,

simplemente necesito pasar el contenido de un comentario a un textbox que esta en un formulario.

Cuando abro el formulario, selecciono un registro y se me cargan todos los datos en distintos textbox del formulario.Uno de esos text box se tiene que cargar con el contenido del comentario.

 

Gracias 

TextBox1 = Range("A7").Comment.Text

Hola prueba así.

Hola @rolano,no me funciona. Me salta un error "Variable de objeto o bloque with no establecido.

Hola, se mas explicito, donde no te funcionó. Tienes que ver que el comentario este en la celda del código y el texbox.

@rolano, te adjunto el archivo. En la hoja COMISIONES, abro un formulario con el boton "Registrar" y al querer seleccionar un registro, me salta el error.

 

Si bien vas a ver que la celda no tiene ningun comentario, hay veces que tiene otras que no.

https://drive.google.com/open?id=12uh_9nW5Q-hEckLSlHqcPzHzUwZRHiho

Hace 47 minutos , Joaquin Wertmuller dijo:

@rolano, te adjunto el archivo. En la hoja COMISIONES, abro un formulario con el boton "Registrar" y al querer seleccionar un registro, me salta el error.

 

Hace 47 minutos , Joaquin Wertmuller dijo:

Private Sub cbo_Registro_Change()
    Dim Fila, Final As Integer
    Dim comentario As String
    Final = Cells(Rows.Count, 4).End(xlUp).Row

    If cbo_Registro.Value = Empty Then
        txt_Comision = ""
        txt_Dolar = ""
        txt_Fecha = ""
    End If

    For Fila = 5 To Final
        If cbo_Registro = Hoja05.Cells(Fila, 4) Then
            Me.txt_Comision = Hoja05.Cells(Fila, 9)
            On Error Resume Next
            Me.txt_Coment = Hoja05.Range("I" & Fila).Comment.Text
            Me.txt_Dolar = Hoja05.Cells(Fila, 12)
            Me.txt_Fecha = Hoja05.Cells(Fila, 14)

            Exit For
        End If
    Next
End Sub

Hola Joaquin Wertmuller, añade un controlador de errores en tu código y listo.

On Error Resume Next

Si se detecta un error, se pasará el control a la siguiente línea, omitiendo el anterior.

Anda perfecto. Gracias