Graag tips weet geen titel. Iets met filter?

[barendrecht82]

Hoi allemaal,

Mijn vraag is als volgt.

In tabblad data komen alle gegevens terecht die uit ons systeem komt. Hier wil ik een nieuwe tabblad aan toevoegen alszijnde een overall blad.

Tabblas data is een overzicht van alle orders met een bepaalde leverdatum. Tabblad overall wil ik zonder een filter in de rode cel een datum invullen en dan dat het gele vlak (zie bestand) automatisch wordt aangevuld met als target de datum..

Hoe kan ik dit opbouwen?

Bekijk bijlage gegevensophalen.xlsxBekijk bijlage gegevensophalen.xlsx

 

[VenA]

Dat kan met het geavanceerde filter.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
  Cells(1).CurrentRegion.ClearContents
  Blad1.Cells(1).CurrentRegion.Resize(, 5).AdvancedFilter xlFilterCopy, Range("G1:G2"), Cells(1)
End Sub

 

[barendrecht82]

Wow.. hoe heb je dat voor elkaar gekregen?

Waar kan ik die formule zien want dit kan ik echt voor alles toepassen... geweldig.

 

[VenA]

Dit is geen formule maar een stukje VBA code. De code is terug te vinden in de bladmodule van blad 'Overall'. Druk op <Alt> + <F11> om in de VB-editor te komen.

 

[barendrecht82]

Nu probeer ik de vba aan te passen maar dat lukt niet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$2" Then Exit Sub
Cells(1).CurrentRegion.ClearContents
Blad1.Cells(1).CurrentRegion.Resize(, 7).AdvancedFilter xlFilterCopy, Range("I1:I2"), Cells(1)
End Sub


Hier wordt de datum alleen gehanteerd. Ik wil weten wat tot en met die datum wordt geleverd. De If Target.Address <> "$I$2" pas ik aan naar If Target.Address <= "$I$2" , maar dat geeft niks weer...

 

[VenA]

Het Change Event wordt getriggerd door Target. Dus als je iets wijzigt in I2 ga dan verder met de code en anders verlaat de sub. Je zal dus de filtervoorwaarden aan moeten passen.

Door een storing bij Ziggo is de uitleg weggevallen maar enige zelfstudie kan ook geen kwaad.