1

Me gustaría pedir su ayuda para hacer dos botones de navegación, en botón "siguiente" y el botón "anterior", la cosa es esta: tengo este buscador

Y cada vez que el usuario le de Click al botón "Siguiente" el programa debe ir a la siguiente celda coloreada de amarillo y hacerla la celda activa (para que pueda ser modificada) y si le da de nuevo a "siguiente" debe ir a la siguiente celda pintada de amarillo y así sucesivamente, y para el botón "Anterior" pues sería que regrese a la ultima celda donde estuvo. Hasta ahora se que la condición que debería usar para buscar las celdas coloreadas es

Dim Clr As Long
Dim rng As Range
Dim Cell As Range
Clr = vbYellow
Rng = Activesheet.Range("A3:P88") For Each Cell in Selection If Rng = rng.Interior.Color = Clr Then
Cell = Activecell.Select

Y luego no se que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

3
  • No creo que la condición que mencionas funcione como piensas. Mira el código que está en artículo Finding Cells Filled with a Particular Color en particular por atención a For Each rCell In Selection
    – Rubén
    Commented el 23 abr. 2018 a las 15:03
  • Es difícil leer tu código. En lugar de colocarlo entre líneas colócalo como bloque usando apropiadamente la sangría y saltos de línea. Además es mejor que pongas un ejemplo mínimo verificable.
    – Rubén
    Commented el 23 abr. 2018 a las 15:34
  • @Rubén, es que luego del If no se como mas avanzar, no se como decirla la condición de si la celda que esta evaluando es de color amarillo la haga la celda activa
    – user74220
    Commented el 23 abr. 2018 a las 15:40

1 respuesta 1

1

Usa el grabador de macros

Ejemplo del resultado de usar el grabador para encontrar la siguiente celda amarilla

Sub Siguiente()
'
' Siguiente Macro
'

'
    With Application.FindFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate
End Sub

Luego al código anterior le cambiamos el nombre del Sub y SearchDirection:=xlNext por SearchDirection:=xlPrevious

Sub Anterior()
'
' Anterior Macro
'

'
    With Application.FindFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=True).Activate
End Sub

Luego asigna cada macro al botón correspondiente de tu formulario siguiendo las instrucciones de Asignar una macro a un botón Formulario o Control

1
  • Te agradezco mucho tu ayuda, estos códigos que me has dado funcionan muy bien, los seguiré estudiando junto con todas las paginas que me has dado para seguir avanzando con mi aprendizaje, muchas gracias
    – user74220
    Commented el 23 abr. 2018 a las 16:02

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.