Celda cambia de color a medida que se desplaza



Procedimiento de VBAMacro de Excel que hace que la celda vaya cambiando de color a medida que se desplaza por otra, también puedes darle un vistazo a dar formato a una fila dependiendo del valor de una celda, donde se explica y podrás descargar un ejemplo, de como se puede dar un formato a las fila actual dependiendo del valor de la celda actual.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.


  


Un post bastante relacionado con el tema de ejecutar macros dependiendo donde se encuentra la celda activa es como ejecutar una macro al activar una celda, lo cual es bastante útil cuando se requiere que la macro ejecute un determinado códido de VBA si la celda activa está en cierta posición, por ejemplo si la celda activa esta en la columna A2 ejecute cierta suma, si esta en A3 otra suma u cualquier operación o evento que queramos que ocurra dependiendo si el cursor se encuentra en el rango requerido.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.











Public celdaAnt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'rutina que ilumina la celda 2 col delante
'solo se ejecuta si se selecciona 1 celda de la col C
If Target.Cells.Count = 1 And Target.Column = 3 Then
Target.Offset(0, -2).Interior.ColorIndex = 5 'color azul a la celda
'Target.EntireRow.Interior.ColorIndex = 3 'color rojo a la fila
If celdaAnt <> "" Then
Range(celdaAnt).Interior.ColorIndex = 0 'quita color a la celda
'Range(celdaAnt).EntireRow.Interior.ColorIndex = 0 'quita color a la fila
End If
'se guarda la celda anterior
celdaAnt = Target.Offset(0, -2).Address
End If
End Sub





Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends