Skip to main content
se añadieron 25 caracteres en el cuerpo
Origen Enlace
user74220
user74220

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.

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 Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then

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

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.

se añadieron 25 caracteres en el cuerpo
Origen Enlace
user74220
user74220

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 Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then Y luego no se que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

Dim Clr As Long Dim rng As Range Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then

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

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 Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then Y luego no se que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

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 Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then

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

se añadieron 71 caracteres en el cuerpo
Origen Enlace
user74220
user74220

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 IfDim Clr As Long Dim rng As Range Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = vbYellowClr Then peroY luego no se que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

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 If Range("A3:P88").Interior.Color = vbYellow Then pero luego no que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

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 Clr = vbYellow Rng = Activesheet.Range("A3:P88") If Rng = rng.Interior.Color = Clr Then Y luego no se que hacer para que se marque como la celda activa, y después de eso pase a la siguiente celda.

Editar título;eliminar despedida
Origen Enlace
Rubén
  • 11.5k
  • 7
  • 41
  • 85
Loading
Origen Enlace
user74220
user74220
Loading