• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Keuzehulp creëren

Status
Niet open voor verdere reacties.

Marco9999

Gebruiker
Lid geworden
4 jan 2011
Berichten
72
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
 

Bijlagen

Hallo,

Misschien iets met slicers?
 

Bijlagen

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
 
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?
 
Helemaal top is het niet.
Ik denk dat dit beter past bij "Scope 7a en b".

Code eenvoudiger en korter.
 

Bijlagen

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

Deze suggestie had al gegeven in #2.
Maar deze is schijnbaar niet goed genoeg. Oftewel dit dient met VBA te gebeuren.
 
Hierbij de aangepaste versie indien een draaitabel niet wenselijk is.

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan