Keuzehulp creëren

[Marco9999]

Hallo,

Voor m'n werk ben ik bezig met een keuzehulp om de juiste NEN-norm te kunnen kiezen.

Wat is de bedoeling:
Als ik op blad 1 van bijgevoegde excel bij "Scope" een 1 invul wil ik op blad 2 alleen nog de normen laten zien die van toepassing zijn voor die Scope.
En als 2e keuzemogelijkheid wil ik een jaartal kunnen kiezen: als ik op blad 1 bij 'Jaar' bijvoorbeeld 2004 invul, wil ik alleen de normen laten zien die in dat jaar én de jaren daarvoor geldig waren.

Iemand een idee hoe ik dat kan doen?

Alvast mijn hartelijke dank!

Marco

 

[peter59]

Hallo,

Misschien iets met slicers?

 

[Marco9999]

Hallo Peter,

Dat is inderdaad ook een mogelijkheid, ik zat in de hoek van Visual Basic te denken.
Ik ga het eens even uitproberen.

Dank je wel!
groet,
Marco

 

[emields]

je kan het ook zo doen met vba

 

[Marco9999]

Dat is ook een mooie oplossing! :thumb:
Weet je toevallig ook nog een oplossing om dat alleen de normen te laten zien met een 'ja' er achter?

 

[emields]

Volstaat dit?

 

[Marco9999]

Helemaal top, dank je wel!

 

[HSV]

Helemaal top is het niet.
Ik denk dat dit beter past bij "Scope 7a en b".

Code eenvoudiger en korter.

 

[Marco9999]

Goedemorgen Harry,

Hartstikke bedankt, werkt inderdaad nét nog iets prettiger.

Nu heb ik nog een vraag.
Als ik de keuzehulp gebruik en ik kies bijvoorbeeld scope 1, jaar 2018, krijg ik 4 versies van de NEN1010.
Ik heb altijd de laatste versie (nu dus van 2016) nodig.
Is het mogelijk om de andere 3 er dan nog uit te filteren?

Alvast mijn hartelijke dank!

Groet,
Marco

 

[snb]

Is een draatabel dan niet eenvoudiger ?

 

[peter59]

@SNB

Deze suggestie had al gegeven in #2.
Maar deze is schijnbaar niet goed genoeg. Oftewel dit dient met VBA te gebeuren.

 

[HSV]

Hierbij de aangepaste versie indien een draaitabel niet wenselijk is.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
Application.ScreenUpdating = False
If Not Intersect(Target, Range("b1:b2")) Is Nothing Then
   Application.EnableEvents = False
    Cells(1, 5).CurrentRegion.Clear
  With Sheets("blad2").ListObjects(1)
      x = Application.Match(Range("b1").Value, .HeaderRowRange, 0)
       .Range.AutoFilter x, "ja"
       .Range.AutoFilter 2, "<=" & Range("b2").Value
         Union(.Range.Columns("A:C"), .Range.Columns(x)).Copy Range("e1")
       .DataBodyRange.AutoFilter
         With Cells(1, 5).CurrentRegion
           .Sort Cells(1, 5), , Cells(1, 6), , 2, , , 1
           .RemoveDuplicates 1
         End With
      Application.EnableEvents = True
 End With
End If
End Sub

 

[Marco9999]

Dank jullie wel voor de moeite! :thumb: