Resaltar una celda mientras nos movemos por la hoja

[Invitado FernandoML]

El siguiente código que encontré y que me gustaría compartir con vosotros es el siguiente:

Cuando tenemos una tabla bastante grande y bajamos por ella, queremos buscar uno de los campos y muchas veces nos resulta bastante cansado cuando llevamos muchos registros.

El siguiente código realiza esta acción, es decir, cuando bajamos por las filas y queremos marcar por ejemplo el valor de la columna I insertaremos el siguiente código dentro de la Hoja.

• COLUMNA_INICIAL -----> Es la columna que queremos marcar.
  
• COLUMNAS ----------------> El el número de columnas que vamos a marcar
  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Forma As Excel.Shape

    Dim L#, T#, W#, H#


    Const COLUMNA_INICIAL   As Long = 9   'la columna a partir de la cual se va a resaltar la fila

    Const COLUMNAS          As Long = 1   'la cantidad de columnas a partir de COLUMNA_INICIAL que se van a resaltar

    Const GROSOR_BORDE      As Byte = 2   'el grueso del borde del rectángulo que resalta la fila

    Const COLOR_BORDE       As Byte = 9   'color del borde del rectángulo que resalta la fila. Use la paleta de colores de ColorIndex


    With Me.Cells(Target.Row, COLUMNA_INICIAL).Resize(, COLUMNAS)

        L = .Left

        T = .Top

        W = .Width

        H = .Height

    End With


    With Me.Shapes

        On Error Resume Next

            .Item("Resaltado").Delete

        On Error GoTo 0

        With .AddShape(1, L, T, W, H)

            .Name = "Resaltado"

            .Line.Weight = GROSOR_BORDE

            With .DrawingObject

                .Interior.ColorIndex = xlNone

                .Border.ColorIndex = COLOR_BORDE

            End With

        End With

    End With

End Sub

[/CODE]

Espero os guste

Un Saludo

FernandoML

[Gerson Pineda]

Muy bueno! solo que te recomiendo siempre subir el aporte en un libro, para que los usuarios puedan probarlo directamente

Saludos

[Invitado FernandoML]

Hola Gerson:

Con tu permiso lo pongo en el apartado Macros y Programación VBA

[Gerson Pineda]

Hola Gerson:

Con tu permiso lo pongo en el apartado Macros y Programación VBA

El apartado para aportes es aquí, solo agrega el archivo, los demás subforos son para consultas

Saludos