ERROR 424

[gacg1310]

Buenas Tardes desde Colombia:

 

Acudo a ustedes por el ERROR 424 que me esta saliendo en mi formulario. Sale cuando digito una cedula que no existe en la hoja base. El al crear esa cedula la pega un registro abajo de la ultima cedula creada pero sale el error y me saca de excel.

Agradezco su ayuda

base 1.3.xlsm

[gacg1310]

Necesito de su ayuda urgente, gracias

[Antoni]

El problema está al añadir un registro nuevo a un combobox/listbox dentro de un evento utilizando Row.Source.

Modifica la última parte del procedimiento:

Private Sub ComboBox1_AfterUpdate()
On Error GoTo FIN
'.....
'.....
'.....
FIN:
   SINO = MsgBox("El documento '" & Me.ComboBox1.Value & "' no se encuentra. Desea crearlo?", vbYesNo)
   If SINO = vbYes Then
      cédula = ComboBox1.Value
      ComboBox1.RowSource = ""
      Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = cédula
      ComboBox1.RowSource = Range("Tabla2[CEDULA]").Address
   End If
End Sub

 

[gacg1310]

Antoni, como siempre es mi salvador..... muchas gracias

TEMA CERRADO