Macro que busque y resalte (color de relleno)

[ceSharp]

hola rafaelon,

lo cierto es que me ha costado bastante llegar a lo que pedías, pero casi que ha sido ya por 'mis c......' jejejejejeje
cópiate todo esto en tu módulo (borrando lo que ya tenias) y asigna la función buscar al botón que va a encontrar coincidencias en tus hojas
------------------------------------------------------
Dim valor As String, celda1 As String, celda2 As String
Dim inicio As String
Dim fila As String
Dim hoja As String
Dim totHojas As Integer
Dim algunaCoincidencia As Boolean
Dim i As Integer

Sub buscar()

hoja = "Hoja"

totHojas = ThisWorkbook.Sheets.Count

valor = InputBox("Ingrese Número")

If valor = "" Then
Exit Sub
End If

For i = 1 To totHojas
Sheets(hoja & i).Select
Call encontrarDato
Next

algunaCoincidencia = False
Exit Sub

End Sub



Sub encontrarDato()
On Error GoTo noEncontrado

Cells.Find(what:=valor, after:=ActiveCell, LookIn:=xlFormulas, lookat:=xlWhole, _
searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, _
searchformat:=False).Activate
'como ha encontrado uno ya tenemos alguna coincidencia
algunaCoincidencia = True

celda1 = ActiveCell.Address
celda2 = 0

Do While celda2 <> celda1
inicio = InStr(ActiveCell, valor)
fila = ActiveCell.Row
Rows(fila & ":" & fila).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

Cells.FindNext(after:=ActiveCell).Activate
celda2 = ActiveCell.Address
Loop
Exit Sub
noEncontrado:
'comprobamos si ya hemos visto todas las hojas
If i = totHojas And algunaCoincidencia = False Then
MsgBox ("No se han encontrado coincidencias")
Else
Exit Sub
End If

End Sub
----------------------------------------------------
ahora este código realiza una búsqueda exacta (antes no lo hacía; le ponias un uno y te marcaba todas las celdas que tuvieran un uno, aunque fuera un diez), marca toda la fila y además busca en todas las hojas que tenga el libro.

implementalo y nos cuentas a ver qué tal te va, ok?

salu2