Ayuda con macro para buscar y resaltar

[Omar Duron]

Que tal amigos, soy nuevo en este tema y me gustaría que me ayudaran con una macro que haga lo siguiente:

que busque un valor numérico en un rango especifico, una vez que lo encuentre que me seleccione la linea completa con un color distinto para resaltarlo y que una vez encontrado si cambio de celda se quite el color y la linea quede nuevamente en el color por defecto, ademas que me avise si el valor buscado no esta en el rango especifico, este es el código que tengo hasta ahora:

Sub buscar()

valor_buscado = InputBox("Factura a buscar", "Busca folios")

On Local Error Resume Next

If valor_buscado <> "" Then

Range("D5:d100000").Select

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

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

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

ActiveCell.Select

End If

End Sub

Espero recibir ayuda.

Gracias

[AlexanderS]

Debes adjuntar un archivo de ejemplo para poder ayudarte.

Normas del Foro

Salu2

[Omar Duron]

OK VA EL EJEMPLO DEL ARCHIVO

buscar y resaltar.xls

[AlexanderS]

Prueba con este código:

Sub buscar()

Dim valor_buscado As String


valor_buscado = InputBox("Factura a buscar", "Busca folios")

On Local Error Resume Next

If valor_buscado <> "" Then


Set celda = Columns("D").Find(valor_buscado, , , xlWhole)

If celda Is Nothing Then MsgBox "Factura no encontrada", vbInformation: Exit Sub

celda.Select

End If

End Sub

[/CODE]

Salu2

[Omar Duron]

[uSER=143023]@Riddle[/uSER]. Gracias funciona bien ahora solo me falta el proceso de cambiar el color de la linea