Jump to content
okaribupi

BUSCAR REGISTRO PERO SI NO LO ENCUENTRA MsgBox DE ERROR

Recommended Posts

Hola, soy nuevo en estas lides y estoy atascado. 

Se trata de que a través de un botón en una de las hojas abra un InputBox donde podamos indicar un numero de registro a buscar y localice ese numero de registro (ojo, no hay dos registros iguales) de entre muchos números de registro que se van a encontrar siempre en la misma columna pero el numero de filas van a ir variando, puesto que se trata de localizar ese registro, seleccionar la fila donde se encuentra y eliminar la fila entera. 

He conseguido con el código abajo indicado que esto lo realice. 

El problema es que cuando pongo un numero de registro que no existe, es decir que no se encuentra en ninguna de las filas de esa columna donde figuran numeros de registro me da error.

Me gustaria que si esto sucede saliera un MsgBox indicando que ese numero de registro no existe y al darle aceptar volviera al InputBox para indicarle un nuevo registro a buscar.  

Agradeceria vuestra ayuda. Gracias anticipadas.

 

Private Sub CommandButton1_Click()

Dim datos As String

datos = InputBox("que dato buscamos???")

Cells.Find(What:=datos, After:=ActiveCell, LookIn:=xlValues, lookat:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Selection.EntireRow.Select
Selection.Interior.Color = 255

resultado = MsgBox("¿Seguro que quiere borrar registro Nº Póliza?", vbYesNo, "CONFIRMAR BORRADO")

If resultado = vbYes Then
Selection.EntireRow.Delete
End If
    
If resultado = vbNo Then
Close
End If
    
End Sub

Edited by okaribupi

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png