Necesito crear un formulario que me de la opción de buscar un dato y eliminar la fila si lo encuentra
Tengo una base de datos en donde en la columna A tengo los Rut de Clientes morosos y necesito buscar un cliente especifico que ya no es deudor y eliminarlo de la base de datos (fila).
1 respuesta
Respuesta de Victor Rodriguez
1
No te hace falta un formulario, con un inputbox es suficiente:
Sub Eliminar_Clientes()
On Error Resume Next
Cliente = InputBox("Ingrese el Cliente a Buscar y Eliminar")
Range("A1").Select
Cells.Find(What:=Cliente, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Range("A1").Select
End Sub
