buscar en un rango de datos numeros que estan en una columna

[fredy122]

hola expertos mi problema es el siguiente tengo unos datos numericos en la columna dj; y necesito buscarlos y resaltarlo de color amarillo  en el rango a1: cy42 

[Manuel_Mendoza]

Lo mas facil seria utilizar un formato condicional con fórmula.

Solo asegurate que la referencia de la fórmula comience en el mismo rango que tu selección (en mi ejemplo $A3).

[fredy122]

Hace 1 hora, Manuel_Mendoza dijo:

Lo mas facil seria utilizar un formato condicional con fórmula.

Solo asegurate que la referencia de la fórmula comience en el mismo rango que tu selección (en mi ejemplo $A3).

maestro es que tengo este codigo que de acuerdo a valores en la columna dj me los busca en en rango a1:cy42 pero ultimamente este codigo me esta generando muchos problemas y estoy buscando como modificarlo para que me funcione 

si usted me lo puede modificar se lo agradeceria

Sub buscar_reemplazar_color()
With Range("dj:dj")
    .ClearContents
    .NumberFormat = "@"
End With
x = Range("de" & Rows.Count).End(xlUp).Row
finy = 2
For Z = 2 To x
    nrox = Format(Range("de" & Z) & Range("df" & Z) & Range("dg" & Z) & Range("dh" & Z), "0000")
    If InStr(1, UCase(nrox), "X", 0) = 0 Then
        Range("dj" & finy) = nrox: finy = finy + 1
    End If
Next Z

Set DATOS = Range("A1:cy80").CurrentRegion
Set lista = Range("dj1").CurrentRegion
MATRIZ = DATOS
With lista
    For i = 2 To .Rows.Count
        numeros = .Cells(i, 1)
        cuenta = WorksheetFunction.CountIf(DATOS, numeros)
        If cuenta > 0 Then
            For j = 1 To cuenta
                If j = 1 Then Set busca = DATOS.Find(Format(numeros, "0000"), lookat:=xlWhole)
                If j > 1 Then Set busca = DATOS.FindNext(busca)
                On Error Resume Next
                Celda = busca.Address
                With Range(Celda)
                    .BorderAround ColorIndex:=0, Weight:=xlThick
                End With
            Next j
        Else
            GoTo SIGUIENTE
        End If
        On Error GoTo 0
      
SIGUIENTE:
    Next i
End With
SALIDA:
End Sub

 

[Manuel_Mendoza]

Ya veo que lei mal la pregunta  dejame revisar entonces

 

[Gerson Pineda]

Hace 1 hora, jhon fredy rodriguez dijo:

es que tengo este codigo que de acuerdo a valores en la columna dj me los busca en en rango a1:cy42 pero ultimamente este codigo me esta generando muchos problemas y estoy buscando como modificarlo para que me funcione 

@jhon fredy rodriguez ... y que esperas para subir el archivo?

 

Saludos @Manuel_Mendoza 

[fredy122]

envio este libro como ejemplo , el procedimiento es primero el boton coinciden ,luego el boton llamar y por ultimo el boton reemplazar que es el codigo que me interesa 

el codigo funciona muy bien aqui pero en mi otro libro tiene gran dificultad de realizarse por eso estoy buscando otra alternativa que haga lo mismo 

les agradezco su colaboracion 

 

Libro1.xlsm