Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Macro voor automatisch overzicht van gisteren  (gelezen 13793 keer)

0 leden en 1 gast bekijken dit topic.

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Macro voor automatisch overzicht van gisteren
« Gepost op: 22 juni 2021, 21:33:50 »
Hey,

Ik heb een probleem met mijn macro. Deze macro zou ervoor moeten zorgen dat elke dag automatisch een overzicht genomen word van de afgelopen dag en dit overzicht dan daarna automatisch doormaild naar de desbetreffende mail-lijst.
Het werkblad heeft een opmaak zoals op de bijgevoegde afbeelding "capture.jpg". Dit werkblad bevat een slicer, pivot table en pivot chart.

Het probleem is dat ik het niet in orde krijg om enkel de gegevens van de afgelopen dag te laten zien. Ik krijg altijd van meerdere dagen te zien.

In bijgevoegde afbeelding "macro.jpg" kunnen jullie zien hoe mijn macro is opgebouwd.

Hopelijk kan iemand mij helpen, want ik zie het bos door de bomen niet meer. Ik ben al verschillende malen opnieuw begonnen, maar krijg het niet opgelost ...

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro voor automatisch overzicht van gisteren
« Reactie #1 Gepost op: 22 juni 2021, 22:26:14 »
Hallo krico,

Je bent er al een tijdje, maar toch welkom op Oplossing.be  :)

Een afbeelding van je code aanhangen .... welke helper moet dit allemaal gaan overtypen?
Het zou zeer nuttig zijn om een voorbeeld (.xlsm) aan te hangen waarin je gevoelige data vervangt door fictieve.

Zo wordt je hopelijk snel geholpen.

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro voor automatisch overzicht van gisteren
« Reactie #2 Gepost op: 22 juni 2021, 22:38:21 »
Als je de datum in het "Rijen-gebied" zet kan het simpelweg zo

Sub jvr()
  ActiveSheet.PivotTables("Draaitabel1").PivotFields("Datum").PivotFilters.Add xlDateYesterday
End Sub

Of een slicer van een complete datum, ipv gesplitst in jaren/maanden/dagen

Sub jvrr()
    For Each it In ActiveWorkbook.SlicerCaches("Slicer_Datum").SlicerItems
      it.Selected = DateValue(it.Name) = Date - 1
    Next
End Sub

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #3 Gepost op: 23 juni 2021, 09:17:01 »
Hey Veerj,

De lay-out moet zo blijven, dus de datum in het rijen gebied zetten kan ik niet doen.

De slicer had ik zelf ook al veranderd van dag/maand/jaar naar een volledige datum. Maar omdat ik dit niet aan het werk kreeg had ik deze terug naar de oorspronkelijke vorm gezet.
Ik ga het terug veranderen en proberen zoals jij het voorgesteld hebt.

Ik hou je op de hoogte...

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #4 Gepost op: 23 juni 2021, 09:29:16 »
@SoftAid...

Ik kan helaas geen voorbeeld bijvoegen. Ik kan nl de info niet eruit halen die eigen is aan de firma...
Al mijn documenten staan op mijn werk PC, dus kan pas maandag de code omvormen naar een *.txt file zodat ze niet moet overgetypt worden...

Mijn excuses hiervoor

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Macro voor automatisch overzicht van gisteren
« Reactie #5 Gepost op: 23 juni 2021, 22:44:54 »
krico, omdat ik getriggerd werd door je slicers in zo'n mooie vorm, kon ik 't niet laten om toch zelf dan maar een voorbeeld aan te maken en zo uit te zoeken op welke manier je zo'n "kalender-achtige" slicer maakt.
Dat bleek gelukkig niet zo moeilijk. Daarna ook je code-deel min of meer overgenomen dat zorgt voor het zoeken naar gisteren. Ik kan er geen probleem in vinden (of in elk geval niet in mijn voorbeeld).
Misschien kan je dus jouw en mijn versie vergelijken en zo uitvogelen of er verschillen zijn en zien waarom jij niet "gisteren" in je slicer krijgt.

P.s. zó zie je dus dat het aanmaken van een voorbeeldje om je probleem uit te leggen niet zo ingewikkeld hoeft te zijn. ;)
______________________________

Groet, Leo

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #6 Gepost op: 24 juni 2021, 08:15:21 »
Hey RedHead,

Bedankt voor de moeite die je er in steekt !
Ik ga dit maandag op mijn werk proberen aangezien ik thuis niet aan mijn files kan.

Ik hou je op de hoogte

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #7 Gepost op: 30 juni 2021, 12:55:28 »
@ Redhead

Ik heb je code gebruikt op mijn file, maar deze werkt helaas ook niet. Ik krijg alle data in mijn overzicht "tot" gisteren en niet enkel gisteren.

Ik voeg morgen een kopie toe van mijn file waar ik alle gevoelige info uit gehaald heb.

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Macro voor automatisch overzicht van gisteren
« Reactie #8 Gepost op: 30 juni 2021, 14:15:17 »
zo dan?
|-|aije

ik gebruik Office 2016 Professional Plus

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #9 Gepost op: 01 juli 2021, 09:30:26 »
In bijlage heb ik mijn file bijgevoegd.

Ik heb tot nu toe jullie voorstellen geprobeerd, maar helaas zat er de oplossing er nog niet bij.

Ik heb wat binnen mijn kennis ligt, alles geprobeerd, maar vind de fout niet... Tot grote ergernis

De macro zou enkel gisteren moeten zichtbaar maken in het werkblad "Dag Overzicht". Dit overzicht van "gisteren" word dan opgeslagen als Dagoverzicht.pdf en automatisch doorgemaild. Dit laatste werkt allemaal, het is dus enkel het overzicht van "gisteren" wat het probleem is.

Hopelijk zien jullie wel wat ik fout heb gedaan... Want ik ben momenteel ten einde raad.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Macro voor automatisch overzicht van gisteren
« Reactie #10 Gepost op: 01 juli 2021, 22:00:43 »
Je vergelijkt appels met peren...
knopnaam       MyDay
<20-4-2021    30
>2-7-2021     30
10-apr        30
10-aug        30
Dit gaat niet werken natuurlijk. ;)
Je moet je variabele MyDay wél dezelfde waarde geven als de knopnaam waarmee je wilt vergelijken. Zo werkt het wel namelijk...
'myDay = Day(Now() - 1)
myDay = Format(Date - 1, "d-mmm")

With ActiveWorkbook.SlicerCaches("Slicer_Datum_zonder_tijd")
    For i = 1 To .SlicerItems.Count
        If .SlicerItems(i).Name <> myDay Then
            .SlicerItems(i).Selected = False
        Else
            .SlicerItems(i).Selected = True
        End If
'        Debug.Print .SlicerItems(i).Name, myDay
    Next
End With
Wat dus in de debugger dit resultaat geeft in het vergelijken...
<20-4-2021    30-jun
>2-7-2021     30-jun
10-apr        30-jun
10-aug        30-jun
10-dec        30-jun
...en het slicerfilter goed toepast.

Overigens vind ik het sliceroverzicht zo volkomen onwerkbaar met al die datums. Misschien een goed idee om toch nog eens mijn eerdere voorbeeldbijlage te bestuderen.  :)
______________________________

Groet, Leo

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #11 Gepost op: 14 juli 2021, 07:05:37 »
Hey RedHead,

Sorry dat ik niet meer had gereageerd... Er is momenteel chaos op mijn werk en heb 2 weken anderen moeten gaan helpen waardoor mijn eigen werk is blijven liggen.
Ik kan me nu eindelijk terug bezighouden met mijn eigen werk.
Ik heb je de code van je laatste post gebruikt, maar het resultaat blijft hetzelfde. Ik krijg niet enkel het overzicht van "gisteren" te zien.

Ik ben, zoals je voorgesteld had, terug overgegaan naar het beeld met de afzonderlijke slicers. Dit is zoals je ook aanhaalde, veel overzichtelijker.

Ik ga deze terug uittesten...

Alvast bedankt !


Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Macro voor automatisch overzicht van gisteren
« Reactie #12 Gepost op: 14 juli 2021, 14:29:52 »
krico, geen probleem van niet reageren als je druk bent. Sterkte daarmee.
Heb je ook mijn bijlage van de laatste post geprobeerd op je werk? Doet die het wél netjes? Of loopt die op je werk óók mis? Zo niet, dan moet je echt goed naar de verschillen gaan kijken met wat er in jouw workbook staat en wat in mijn aangepaste versie.
Maar goed, werken met de afzonderlijke slicers is vast een stuk mooier en simpeler te behappen.
______________________________

Groet, Leo

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #13 Gepost op: 19 juli 2021, 16:16:46 »
Hey RedHead,

Ik heb alles getest ...

Als ik de macro laat lopen, krijg ik het overzicht van de afgelopen datum (de dag), maar dit van iedere afgelopen maand & jaar.
Dus hij gaat wel 1 dag terug (dus gisteren), maar houd geen rekening met de maand en het jaar.
Ik heb de file zoals hij nu gebruikt moet worden bijgevoegd.

Telkens als ik de macro laat lopen krijg ik achteraf nog 2 meldingen.
Ik laat de macro wel lopen aan de hand van een script. Ik heb dit ook bijgevoegd in een txt file zodat je dit ook kan zien wat ik probeer.
Foto's van de 2 meldingen zitten ook in bijlage. Hier mag telkens "OK" geantwoord worden.

Hopelijk weet jij raad

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro voor automatisch overzicht van gisteren
« Reactie #14 Gepost op: 19 juli 2021, 16:56:12 »
Vervang alle code boven "Set OutApp" door onderstaand.
Probeer ook "refresh bij openen werkboek" uit te zetten voor de draaitabellen. Misschien lost dat de eerste melding op

arr = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
  iGisteren = Date - 1
   
    With ActiveWorkbook.SlicerCaches("Slicer_dag")
        For i = 1 To .SlicerItems.Count
         .SlicerItems(i).Selected = .SlicerItems(i).Name = Day(iGisteren)
        Next i
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_maand")
        For i = 1 To .SlicerItems.Count
            .SlicerItems(i).Selected = .SlicerItems(i).Name = arr((Month(iGisteren) - 1))
        Next i
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_jaar")
        For i = 1 To .SlicerItems.Count
            .SlicerItems(i).Selected = .SlicerItems(i).Name = Year(iGisteren)
        Next i
    End With

 


www.combell.com