Buscar y eliminar un valor en Excel

Excel ofrece diferentes opciones para borrar datos y valores, algunas más ágiles que otras, y una de ellas actúa con gran velocidad sin importarla el tamaño de la base de datos.

La gran ventaja que nos ofrece Excel, es la posibilidad de programar tareas que nos permitan hacer nuestro trabajo más rápido, lo que es de capital importancia cuando estamos manipulando miles de registros. Nada fácil encontrar uno para borrarlo.

Por suerte existen varias rutinas en Visual Basic (macros) que nos permiten automatizar este trabajo.

Todo lo que hay que hacer es pegar el siguiente código en nuestro editor de Visual Basic:


Sub buscaryborrar()

Dim Borrar As Boolean

Borrar = False

valor_buscado = InputBox("Introduzca el valor a buscar y borrar", "Valor a buscar")

On Local Error Resume Next

If valor_buscado <> "" Then

Do While Err.Number = 0

Columns("A:Z").Select

Selection.Find(What:=valor_buscado, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

If Err.Number = 0 Then

ActiveCell.Select

Selection.ClearContents

Borrar = True

End If

Loop

Range("A1").Select

If Borrado = True Then

MsgBox "Valores encontrados y borrados", vbInformation, "Borrados"

Else

MsgBox "Valor no encontrado.", vbExclamation, "No encontrado"

End If

Else

MsgBox ("Valor no válido")

End If

End Sub

Todo lo que hay que modificar en este código es la primera línea para cambiar el nombre de la macro  y la línea 8  (Columns("A:Z").Select ) para modificar el rango en el que Excel ha de buscar el valor a borrar.

Este código permite buscar y borrar un dato que se encuentre en la hoja activa únicamente.

La macro borrará todo el contenido de la celda, aún cuando sólo una parte de ella coincida con el término de búsqueda, por lo que en algunos casos puede no servir para algunas tareas, pero en todo caso resulta ser un buen ejemplo para desarrollar otras que se adapten más a nuestras necesidades.

Contenido relacionado:
Compartirlo
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.