Getallen uit een lijst halen als getal kleiner dan 0

[josdebrouwer]

Allen,

Ik heb rijen met artikelen, maar ik hoef alleen de artikelen te zien met een getal < dan 0.

Dan wil ik niet alleen de rij waar het getal staat < dan 0 maar alle rijen van dat artikel.

In het voorbeeld zal het duidelijker worden, is dit mogelijk met een draaitabel?

BVD

Jos

 

[WHER]

Geen draaitabel maar een extra kolom met een filter

 

[Timshel]

Onderstaand een oplossing met VBA.
Voeg een nieuw werkblad in voor de uitvoer: "Blad2" en pas de macro toe.

Sub tsh()
    Dim Br, Flt
    Dim i As Long
    Dim S As String
        
    Br = Sheets("Blad1").Cells(3, 1).CurrentRegion
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(Br)
            If Br(i, 2) < 0 Then .Item(Br(i, 1)) = 0
        Next
        For i = 2 To UBound(Br)
            If Not IsError(Application.Match(Br(i, 1), .Keys, 0)) Then S = S & "|" & i
        Next
    End With
    Flt = Application.Transpose(Split(Mid(S, 2), "|"))
    Sheets("Blad2").Cells(2, 1).Resize(UBound(Flt), 2) = Application.Index(Br, Flt, Array(1, 2))
End Sub

 

[josdebrouwer]

Beide bedankt, extra kolom met filter zal het worden, macro geen verstand van maar ga het toch kijken of het me lukt.

super bedankt