hola buenas tardes quisiera saber como puedo ejecutar este codigo cambiandole esta linea
Sheets("santander").Select
por hoja activada o la hoja seleccionada
el codigo completo es este
Sub buscaCuadro()
Dim nrop As String
'busca la combinación de nros en los cuadros de pista
Set hopi = Sheets("pista")
Sheets("santander").Select
'limpiar pista de colores anteriores 'opcional
hopi.Range("E2:AV40").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 35 'filas
For j = 5 To 38 Step 5 'col
If hopi.Cells(i, j) = Val(Left(nrop, 1)) And hopi.Cells(i, j + 1) = Val(Mid(nrop, 2, 1)) And hopi.Cells(i, j + 2) = Val(Mid(nrop, 3, 1)) And hopi.Cells(i, j + 3) = Val(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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
hola buenas tardes quisiera saber como puedo ejecutar este codigo cambiandole esta linea
Sheets("santander").Select
por hoja activada o la hoja seleccionada
el codigo completo es este
Sub buscaCuadro()
Dim nrop As String
'busca la combinación de nros en los cuadros de pista
Set hopi = Sheets("pista")
Sheets("santander").Select
'limpiar pista de colores anteriores 'opcional
hopi.Range("E2:AV40").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 35 'filas
For j = 5 To 38 Step 5 'col
If hopi.Cells(i, j) = Val(Left(nrop, 1)) And hopi.Cells(i, j + 1) = Val(Mid(nrop, 2, 1)) And hopi.Cells(i, j + 2) = Val(Mid(nrop, 3, 1)) And hopi.Cells(i, j + 3) = Val(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