[SOLUCIONADO] Macro buscar valor y eliminar fila

[fernan2k8]

Buenos días a todos, os pido ayuda porque estoy atascado en esta macro.
Tengo una celda D11 donde introduzco un valor numérico(nº cliente) y una base de datos en la misma hoja con todos los clientes ordenados por su nº.
La macro que estoy diseñando consiste en borrar la fila que contenga el nº de cliente que pongo en la celda D11.

EL problema es que si busco el cliente 1 me borra todos los clientes que contengan un 1 (el 11, el 111,...)

Sub eliminar_cliente()
'
' eliminar_cliente Macro
'

'
Dim Borrar As Boolean
Borrar = False
valor_buscado = Range("D11")
On Local Error Resume Next
If IsNumeric(valor_buscado) Then
Do While Err.Number = 0
Columns("G").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.EntireRow.ClearContents
Borrar = True
End If
Loop
Range("d11").Select
If Borrar = 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

Espero que me podais ayudar.
Muchas gracias!!

[mrocf]

Ya habrás notado, Fernando, que uno de los parámetros del método Find es: LookAt.
En este caso particular tienes asignado: LookAt:=xlPart, ¿Verdad?

Si en la ayuda del VBA lees sobre cuál es su función/uso aprenderás -simultáneamente- "algo" nuevo sobre las macros y sobre el método buscar del Excel.

Tennos al tanto de tus avances, por favor.
Saludos, Cacho R.

[fernan2k8]

Muchas gracias mrocf!! Tema solucionado!!

Después habían varias cosas que estaban mal, pero ya está solucionado y funcionando perfectamente.

De nuevo, mil gracias :)

[mrocf]

Iniciado por fernan2k8

Muchas gracias mrocf!! Tema solucionado!!

Hasta la próxima, entonces.