¿Cómo seleccionar un rango basado en el valor de una celda en otra columna en Excel?

En este artículo, hablaré sobre cómo seleccionar rangos basados en el valor de una celda en otra columna. Tomemos un ejemplo: si las celdas muestran FALSO en la columna C, las celdas relativas en las columnas A y B se seleccionarán como se muestra en la siguiente captura de pantalla. No hay una función integrada para resolver esta tarea, pero en este artículo, te mostraré cómo manejarlo con código VBA.

Seleccionar rango basado en el valor de una celda en otra columna mediante código VBA

Seleccionar rango basado en el valor de una celda en otra columna mediante código VBA

Seleccionar rango basado en el valor de una celda en otra columna mediante código VBA

1. Habilita la hoja que deseas usar y presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código en la nueva ventana del Módulo.

VBA: Seleccionar rango basado en el valor de una celda

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

3. Presiona la tecla F5 para ejecutar el código VBA, y luego los rangos se seleccionarán basándose en los valores de la columna C.

Nota: en el script de VBA, Hoja2 es el nombre de la hoja activa, C indica la columna en la que deseas basar la selección, y A y 2 en ("A" & xRg.Row).Resize(, 2) indican que se seleccionarán dos columnas desde la columna A. Puedes cambiar las referencias según sea necesario.

Consejo: Si quieres seleccionar rápidamente celdas que sean iguales a un valor específico, prueba usando la utilidad Seleccionar celdas específicas de Kutools para Excel como se muestra en la siguiente captura de pantalla. ¡Descarga y prueba gratis ahora!