Codigos Macro Excel

Buscar y eliminar un valor en Excel
[pic][pic]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 eltamañ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 cuandoestamos 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 quehacer 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
EndIf
Loop
Range("A1").Select
If Borrado = True Then
MsgBox "Valores encontrados y borrados", vbInformation, "Borrados"
Else
MsgBox "Valor no encontrado.", vbExclamation, "No encontrado"
End IfElse
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 ) paramodificar 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 lacelda, 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...