Verticaal zoeken i.c.m. als dan

[Han...]

Goedendag,

Wil kan mij hierin een handje helpen?

Zie bijgaand test voorbeeld.

Tabblad Verkort wordt het werkblad.
Tabblad Database is… de database waaruit de gegevens gehaald moeten worden.
(Dit is in werkelijkheid een groot bestand A2 t/m BZ5798)

Mijn bedoeling is dat ik in het Tabblad Verkort op basis van de celwaarde van H1 alleen datgene uit de database krijg te zien die aan de waarde van H1 voldoet.

In dit geval “”gerealiseerd”
Ik wil dan dus eigenlijk alleen maar die 4 regels zien die zijn gerealiseerd.

 

[jverkerk]

zoiets?

 

[jkpieterse]

Als je Office 365 hebt, overweeg dan eens de FILTER functie.

 

[Han...]

Dank je jkpieterse
Ik ben een beetje bekend met de filter functie.
Maar bestand is dusdanig groot dat het alsnog onoverzichtelijk is.
De rijen zijn dan wel geselecteerd maar dan zijn er nog zoveel kolommen die ik tijdelijk niet wil zien.
Vandaar het 2e tabblad met een verkorte versie.

 

[emields]

of zo, met een stukje vba. dus eerst opslaan als xlsm en dan het nieuwe bestandopenen.

 

[Han...]

Dank jverkerk
Dit is inderdaad al iets meer wat ik zoek.
En werkt goed.

Ook dank emields.
Werkt ook goed en mijn lay-out blijft dan overeind.


Ga hiermee even aan de slag.

 

[AlexCEL]

Met KIES.KOLOMMEN kun je de gewenste kolommen uit het filterbereik halen, in de gewenste volgorde.

Voor je voorbeeld:

=KIES.KOLOMMEN(FILTER(Database!A2:.E1000;Database!E2:.E1000=H1;"");2;4;5;3;1)

 

[Warme bakkertje]

Zoals altijd herleid je de interactie met het werkblad in een verstandig geschreven code tot een minimum.
Zeker in een werkblad met bijna 6K regels vermindert de verwerktijd met een tienvoud (zeker als je de ScreenUpdating aan het begin van de code niet uitschakelt)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [h1]) Is Nothing Then
        [A2].CurrentRegion.Offset(1).ClearContents
        With Sheets("database").ListObjects("Tabel1").DataBodyRange
            Data = Filter(.Parent.Evaluate("Transpose(If(" & .Columns(5).Address & "=""" & Target.Value & """,row(1:" & .Rows.Count & ")))"), False, 0)
            If UBound(Data) = -1 Then Exit Sub
            temp = Application.Index(.Value, Application.Transpose(Data), Array(2, 4, 5, 3, 1))
            [A3].Resize(UBound(temp), 5) = temp
        End With
    End If
End Sub