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 1918 keer)

0 leden en 2 gasten bekijken dit topic.

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #15 Gepost op: 19 juli 2021, 20:26:27 »
Hey Veerj,

Bedankt voor je suggestie !

Ik heb het zojuist geprobeerd, maar het werkt helaas niet. Ik blijf van verschillende maanden krijgen. Hij blijft alle maanden tot nu toe selecteren en alle jaren.
Ivm de jaren is het geen probleem momenteel, maar vanaf volgend jaar wel, want dan heb ik meerdere jaartallen in de file staan. En dan vrees ik dat ik hetzelfde probleem met de jaartallen ga hebben als nu met de maanden

Je tip om de refresh bij het openen af te zetten, heeft idd de meldingen doen verdwijnen dus dat is al opgelost ...


Offline Veerj

  • Volledig lid
  • **
  • Berichten: 115
Re: Macro voor automatisch overzicht van gisteren
« Reactie #16 Gepost op: 19 juli 2021, 20:32:13 »
Had het bij mij even getest maar daar ging het wel goed. Plaats eens je bestand met mijn aanpassing erin verwerkt

Offline krico

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro voor automatisch overzicht van gisteren
« Reactie #17 Gepost op: 19 juli 2021, 20:40:10 »
In bijlage de file.

Als ik de datum van gisteren selecteer en laat dan de macro lopen heb ik idd alle gegevens van gisteren.
Laat ik de macro lopen als een andere datum toevallig nog geselecteerd staat, krijg ik niet meer de gegevens van gisteren, maar van meerdere dagen.
Als ik mijn script laat lopen, is dit hetzelfde. Dan krijg ik ook meerdere datums.

Helaas heb ik het script nodig om via windows task scheduler automatisch de gegevens van gisteren door te mailen naar de desbetreffende personen.

Offline Veerj

  • Volledig lid
  • **
  • Berichten: 115
Re: Macro voor automatisch overzicht van gisteren
« Reactie #18 Gepost op: 19 juli 2021, 20:57:44 »
Ik heb zojuist precies gedaan wat je zei en het gaat bij mij goed. Heb er hieronder even bij iedere slicer een .ClearAllFilters voor gezet. Dat lost het waarschijnlijk op bij jou.

Je gehele code kan zo:
Alleen het pad even aanpassen naar wens

Sub Mail_workbook_Outlook_1()
   
    arr = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
    iGisteren = Date - 1
   
    With ActiveWorkbook.SlicerCaches("Slicer_dag")
       .ClearAllFilters
        For i = 1 To .SlicerItems.Count
           .SlicerItems(i).Selected = .SlicerItems(i).Name = Day(iGisteren)
        Next i
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_maand")
       .ClearAllFilters
        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")
       .ClearAllFilters
        For i = 1 To .SlicerItems.Count
            .SlicerItems(i).Selected = .SlicerItems(i).Name = Year(iGisteren)
        Next i
    End With
       
    saveLocation = ThisWorkbook.Path & "\" & "Dagoverzicht.pdf"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, saveLocation

     strbody = "Hej," & vbNewLine & vbNewLine & _
          "" & vbNewLine & _
          "In bijlage kunnen jullie het dagoverzicht terugvinden van de fouten zonder boeking" & vbNewLine & _
          "" & vbNewLine & _
          "" & vbNewLine & _
          "Met vriendelijke groeten," & vbNewLine & _
          "With kind regards," & vbNewLine & _
          ""

    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "test.test@test.com"
        .Subject = "Dagoverzicht van de fouten zonder boeking"
        .Body = strbody
        .Attachments.Add saveLocation
        .Display
    End With
End Sub
« Laatst bewerkt op: 19 juli 2021, 22:05:28 door Veerj »

 


www.combell.com