Saltar al contenido

cambiar linea de codigo

publicado

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

publicado

Hola, si la macro se va a ejecutar siempre en la hoja activa, simplemente borra esa línea del código

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.