Saltar al contenido

ERROR 424

publicado

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

Featured Replies

publicado
  • Autor

Necesito de su ayuda urgente, gracias

publicado

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

 

publicado
  • Autor

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

TEMA CERRADO

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.