• 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.

Recenste datum in draaitabel

Status
Niet open voor verdere reacties.
N

nieuweharing

Gebruiker
Lid geworden
27 sep 2021
Berichten
42
Goedemorgen Helpmij medewerkers!

In het bijgaande Excel bestand staan in Blad1 gegevens met een datum.
In Blad3 zou ik graag alleen die gegevens zien met de meest recenste datum.
Zonder gebruik te maken van een slicer of een filter.
Is dat mogelijk?
In Blad3 heb ik e.e.a. nog verduidelijkt.

Ben erg benieuwd naar jullie antwoord!

Groetjes

Anne
 

Bijlagen

  • Recenste datum.xlsx
    21,6 KB · Weergaven: 21
Power Query gebruiken?
 

Bijlagen

  • Recenste datum (AC).xlsx
    31,9 KB · Weergaven: 25
Laatst bewerkt:
In Blad3 zou ik graag alleen die gegevens zien met de meest recenste datum.
Zonder gebruik te maken van een slicer of een filter.
Klik om te vergroten...

Wat je vraagt is een CIT (contradictio in terminis).
Als uit een bepaald aantal gegevens een op grond van een criterium beperkt aantal gegevens getoond moet worden, dien je alle gegevens af te lopen om te beoordelen welke gegevens aan het criterium voldoen.
De gegevens die daaraan voldoen moet je dan selecteren.
Hoe je het wendt of keert, dat proces kun je met allerlei andere termen aanduiden (zeven, selecteren, markeren, uitsplitsen, etc),, maar het proces is identiek aan het begrip dat wordt gebruikt voor het proces 'filteren'.

Dan maakt het niet uit of je autofilter, advancedfilter, een slicer, VBA of powerquery (Query !!) gebruikt: het proces is filteren.
 
Laatst bewerkt:
Eens... in mijn voorbeeldje gebruik ik Power Query voor het "transformeren" (= filteren) van de data zodat alleen de meest recente overblijft. Het gaat hier echter wel min of meer automatisch...
 
Hallo Alex,

Dit is idd de oplossing!
Ik was niet bekend met Power Query en zie nu wat het kan.

Heel erg bedankt!

Met vriendelijke groeten

Anne
 
een randgeval, door in de tabel een kolom mee aan te maken met een vlaggetje voor de laatste datum, kan je die meenemen om verder op uit te splitsen in je draaitabel.
En ... desnoods het verboden woord filteren gebruiken om enkel de laatste over te houden.
 

Bijlagen

  • Recenste datum.xlsx
    30,6 KB · Weergaven: 18
Eentje 100 % voor de gein: met enkel formules.
Alles op Blad1 gezet voor de overzichtelijkheid. Kan uiteraard verplaatst worden naar ander werkblad. En als de titels niet op rij 1 staan ook ff aan te passen.

Los van de gein: ik zou ook de oplossing van cow18 gebruiken!
 

Bijlagen

  • Recenste datum.xlsx
    11,9 KB · Weergaven: 16
nu we toch voor de gein bezig zijn, een formule in L2 die alleen in 2019 of 365 gaat, denk ik.
Code: 
=FILTER(Tabel1[[Aanschafdatum]:[Auto]];Tabel1[Aanschafdatum]=MAX(Tabel1[Aanschafdatum]))
 

Bijlagen

  • Recenste datum (1).xlsx
    18,9 KB · Weergaven: 19
cow18 zei:
een randgeval, door in de tabel een kolom mee aan te maken met een vlaggetje voor de laatste datum, kan je die meenemen om verder op uit te splitsen in je draaitabel.
En ... desnoods het verboden woord filteren gebruiken om enkel de laatste over te houden.
Klik om te vergroten...

Hallo cow18.

Eerlijk gezegd vindt ik jouw oplossing eenvoudiger en eleganter.
Alleen 1 vraag: hoe heb je de afleiding in kolom F gemaakt?

Groetjes

Anne
 
die had ik niet gemaakt, dat is nog van de vorige helper.
Ik heb enkel een tabel van je gegevens gemaakt, om zo gemakkelijker gedefineerde namen te kunnen gebruiken in mijn kolommen L:N
 
Gered door VBA:

Code: 
Sub M_snb()
   ListObjects(1).Range.Sort Cells(1, 2), 1, , Cells(1, 1), 2, , , 1
   For Each it In ListObjects(1).DataBodyRange.Columns(2).Cells
      If it = it.Offset(-1).Value Then it.EntireRow.Hidden = True
   Next
End Sub
 

Bijlagen

  • __Recent.xlsb
    22,8 KB · Weergaven: 14
Laatst bewerkt:
Hallo snb,

Dank je wel voor je input!
De macro heb ik aangepast zodat de sortering op aanschafdatum gaat.
Het is mijn bedoeling dat op Blad2 alleen de gegevens komen te staan van de recenste datum, in dit geval van 09/11/2021.
Kun je dit ook verwerken in de macro?

Groetjes en alvast bedankt!
Anne
 
Meest recent of recentst ( met 2 t's dus)

Als je met Excel werkt weet je toch wel hoe je in een werkblad naar gegevens in de 2e rij van een ander blad kunt verwijzen ?
Er zijn teveel methoden in Excel/VBA (copy, celverwijzing, autofilter, advancedfilter, etc.) om dit voor elkaar te krijgen.
Maar waarom twee keer dezelfde gegevens in een werkboek zetten ?
 
Laatst bewerkt:
Hallo specialisten,

Mede dankzij youtube ben ik inmiddels een stuk verder gekomen maar
in het laatste stukje zit ergens een denkfout, alleen ik zie niet waar.
De macro op Blad2 werkt op zich goed maar kopieert maar 1 regel vanaf blad1
terwijl er meerdere regels zijn met de geselecteerde datum die gekopieerd zouden moeten worden.

Kunnen jullie uitvissen waar mijn denkfout zit?

Alvast bedankt en groetjes

Anne
 

Bijlagen

  • Recenste datum.xlsm
    17 KB · Weergaven: 28
ik heb het opgelost door een macro te schrijven die in een kolom aangeeft of de datum
of het relevant is of niet gebaseerd op een =max datum.
werkt perfect
 
de eerste kolom waarin er iets terechtkomt op blad2 is de C-kolom, de 3e !
Code: 
Sub Koe()

     a = Worksheets("Blad1").Cells(Rows.Count, 3).End(xlUp).Row
     [COLOR="#FF0000"]mymax = Application.Max(Worksheets("blad1").Columns("C"))[/COLOR]
     
     For i = 2 To a

          If Worksheets("Blad1").Cells(i, 3).Value = [COLOR="#FF0000"]mymax[/COLOR] Then
               Worksheets("Blad1").Rows(i).Copy
               Worksheets("Blad2").Activate

               b = Worksheets("Blad2").Cells(Rows.Count, [COLOR="#FF0000"][SIZE=4]3)[/SIZE][/COLOR].End(xlUp).Row

               Worksheets("Blad2").Cells(b + 1, 1).Select

               ActiveSheet.Paste

               Worksheets("Blad1").Activate

          End If

     Next

     Application.CutCopyMode = False
     ThisWorkbook.Worksheets("Blad1").Cells(1, 1).Select

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan