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 de Elsa Matilde
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
