Resaltar numero de una hoja a otra

Como puedo modificar el siguiente código que resalta cualquier numero coincidente de la columna AL de la hoja cundí en los números del rango d2:K30 de la hoja pista

Sub buscaCuadro()
Dim nrop As String
'busca la combinación de nros en los cuadros de pista
Set hopi = Sheets("pista")
'limpiar pista de colores anteriores     'opcional
hopi.Range("d2:k30").Interior.PatternColor = xlNone
'se recorre col AP de hoja resultado
For x = 2 To Range("AL" & Rows.Count).End(xlUp).Row
    nrop = Range("AL" & x)
    For i = 2 To 30             'filas
        'For j = 5 To 50 Step 5  'col
        If hopi.Cells(i, j) = (Left(nrop, 1)) And hopi.Cells(i, j + 1) = (Mid(nrop, 2, 1)) And hopi.Cells(i, j + 2) = (Mid(nrop, 3, 1)) And hopi.Cells(i, j + 3) = (Mid(nrop, 4, 1)) Then
            filx = i: colf = j
            hopi.Range(hopi.Cells(i, j), hopi.Cells(i, j + 3)).Interior.ColorIndex = 6
            Exit For
        End If
        Next j
        If hopi.Cells(i + 1, 5) = "" Then i = i + 2
    Next i
Next x
End Sub

1 Respuesta

Respuesta
3

He comprobado en tu hoja Pista que los números no aparecen duplicados. En ese caso así quedaría tu macro:

Sub buscaCuadro()
'x Elsamatilde
Dim nrop As String
Dim hoPi As Worksheet, hoCu As Worksheet
Dim x As Integer
Dim busco
'busca la combinación de nros en los cuadros de pista
Set hoPi = Sheets("pista")
Set hoCu = Sheets("Cundi")
'limpiar pista de colores anteriores     'opcional
hoPi.Range("d2:k30").Interior.PatternColor = xlNone
'se recorre col AP de hoja 'Cundi' (resultado).
'se ejecuta desde la hoja Cundi.
hoCu.Select
For x = 2 To Range("AL" & Rows.Count).End(xlUp).Row
    nrop = Range("AL" & x)
    'se sabe que no habrá números repetidos
    Set busco = hoPi.Range("d2:k30").Find(nrop, LookIn:=xlValues, lookat:=xlWhole)
    If Not busco Is Nothing Then
        'se colorea la celda encontrada en hoja Pista
        hoPi.Range(busco.Address(False, False)).Interior.ColorIndex = 6
    End If
Next x
MsgBox "Fin del proceso.", , "Información"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas