Jump to content

Recommended Posts

Posted (edited)

@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

Edited by Joaquin Wertmuller
Link to post
Share on other sites
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.
Link to post
Share on other sites
×
×
  • Create New...

Important Information

Privacy Policy