Buenos días, necesito que al seleccionar un elemento de una lista desplegable me muestre solamente los resultados de esa selección  en otra tabla. Por poner un ejemplo, sobre el archivo que adjunto al seleccionar en la lista desplegable A1 solo aparezca lo sombreado en amarillo. El resto oculto.

Gracias de antemano

Libro2.xlsx

Una idea con VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim filterRange As Range
    Dim selectedValue As String
    Dim lastRow As Long
    Set ws = ThisWorkbook.Sheets("Hoja1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set filterRange = ws.Range("A4:D" & lastRow)
    If Not Intersect(Target, ws.Range("B2")) Is Nothing Then
        selectedValue = ws.Range("B2").Value
        filterRange.AutoFilter Field:=1, Criteria1:=selectedValue
        If selectedValue = "" Then
            filterRange.AutoFilter
        End If
    End If
End Sub

Libro2.xlsb

Gracias por su ayuda!!!

Hola de nuevo. voy a complicarlo un poco más. Si añado un segundo filtro nuevo. Me da igual que ambos filtros condicionen o no a la hora de seleccionar ambos. Si condicionan mejor, si es posible.

Gracias por antelación

Libro2A.xlsx

Hola a ambos,

@Gigi74, si te es igual conseguirlo en un rango aparte,  puedes aplicar:

=APILARV(A4:D4;FILTRAR(A5:.D999;(A5:.A999=B2)+(B5:.B999=B3)))

Saludos,

Gracias de  todas formas, pero busco hacerlo con VBA. Son 12.000 filas a filtrar

En 11/3/2025 at 15:09 , Gigi74 dijo:

Hola de nuevo. voy a complicarlo un poco más. Si añado un segundo filtro nuevo. Me da igual que ambos filtros condicionen o no a la hora de seleccionar ambos. Si condicionan mejor, si es posible.

Gracias por antelación

Libro2A.xlsx 9.44 kB · 2 descargas