Celda cambia de color a medida que se desplaza

Procedimiento de VBA o Macro 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 seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar 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 gustó por favor compártelo con tus amigos
If you liked please share it with your friends