Macro para buscar un dato especifico y eliminar la fila completa
Tengo esta Macro para buscar y eliminar una fila completa si encuentra el valor entregado:
Sub Eliminar_Celdas()
BuscarDato = InputBox("Ingrese el Dato a Buscar y Eliminar")
Range("A1").Select
Cells.Find(What:="BuscarDato", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Range("A1").Select
End Sub
Al ejecutarla me arroja el error 91.
Que puede estar pasando. Más allá de enviarme la corrección me podrían explicar que sucede.
1 Respuesta
Respuesta de Victor Rodriguez
1
Prueba quitando las comillas de "Buscardato", ya que con las comillas le estas diciendo que busque el texto Buscardato, no el valor que le has dado a la variable Buscardato mediante el inputbox
