Msg Box Código para numero parte no existente
Experto. Tengo un combobox llamado ComboNPE que carga números de parte de una hoja llamada INVENTARIOACTUAL!A2:A999 de la propiedad RowSource de la ventana de propiedades.
¿que código seria para que al ir escribiendo en el combo y si me equivoco me desplegué numero parte no existe? Porque cada ves que escribo algún dato mal sin utilizar la flecha del combobox para buscarlo en la lista, tratando de acelerar la búsqueda. Me aparece la pantalla de error. Mostrando la linea mal en el código.
de antemano Gracias.
Saludos
1 respuesta
Respuesta de Dante Amor
1
Agrega el siguiente código al evento ComboNPE_Change
Private Sub ComboNPE_Change()
'Por.Dam
'valida valores que existan en el combo
On Error Resume Next
If ComboNPE.List(ComboNPE.ListIndex, 0) = "" Then
If ComboNPE <> "" Then
MsgBox "Número parte no existe", vbCritical, "Error"
ComboNPE.SetFocus
ComboNPE = ""
End If
End If
End SubSaludos.DAM
