jueves, 27 de febrero de 2014

Resaltar la columna de la celda que estoy seleccionando

En la publicación anterior, habíamos visto como resaltar la fila de la celda que estoy seleccionando; sin embargo ahora me preguntaron como hacerlo para una columna.
El proceso es muy similar al anterior, solo tendremos que cambiar un par de lineas en el código fuente. Sin embargo, si no leyeron la publicación anterior, aquí les dejo todos los pasos:
Paso 1. Activamos el Visual Basic for application presionando las teclas ALT + F11

Paso 2. Insertamos un módulo (hacemos clic en el menú Insertar, luego seleccionamos Módulo.

Paso 3. En el módulo copiaremos el siguiente código:
          Public celdaAnterior As Range
          Public celdaActual As Range

Esas lineas crean dos variables que almacenaran el rango de la celda anterior y de la actual. 

Paso 4. Hago doble clic en la hoja que quiero que se marque las celdas, en este caso, seleccionaremos la "Hoja1" y copiaremos el siguiente código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next

    Set celdaAnterior = celdaActual
    Set celdaActual = Target
    celdaAnterior.EntireColumn.Interior.Color = xlNone
    Target.EntireColumn.Interior.Color = RGB(100, 180, 145)
End Sub

 Este procedimiento se realizará cuando cambie la selección de una celda.

Paso 5. Finalmente cierro el Visual Basic, y en el Excel, donde haga clic se pintará del color indicado, como observamos en la siguiente imagen:

Espero que les sirva.

Saludos

Ing. Enrique Neciosup Morales