Jump to content
Sign in to follow this  
josemaria

Borrar elemento

Recommended Posts

Hola;

tengo esta macro:


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("C: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("C1").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
[/CODE]

Lo que hace es buscar en un rango los caracteres que quieres borrar y los borra. Lo que a mi me interesa borrar es el valor 0.0, pues bien me borra todos los 0.0 pero tambien los 20.0, 30.0, 10.0 , etc.

Existiria alguna manera de que solo y exclusivamente me borre los 0.0?

Gracias.

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy