Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Macro starten op een bepaalde tijd

  1. #1
    Senior Member
    Geregistreerd
    30 augustus 2010
    Vraag is opgelost

    Macro starten op een bepaalde tijd

    Geacht forum,

    In het exel-bestand "Verbruik" wordt via de macro, "Meterstand_uitlezen",module1, mijn meterstanden uitgelezen en opgeslagen

    Nu wil ik dat dat iedere week op het zelfde tijdstip automatisch gaat.

    Iedere Zaterdag om 23:00 uur

    Onderstaande code heb ik gevonden (van HSV) maar hij doet het niet.

    Wil u mij hiermede helpen?
    Vriendelijke groet, Jaap




    CODE]
    Code:
    Private Sub Workbook_Open()
     ThisWorkbook.Verbruik
    End Sub
    
    
    Sub Verbruik()
    If Weekday(Date, vbMonday) = 6 Then
         Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
    End If
     Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
    End Sub

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat zal het best wel doen, maar alleen zolang dat document in Excel open staat.
    Wat je wilt kan via de Windows Task Scheduler.
    Laatst aangepast door edmoor : 15 mei 2019 om 15:43
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Senior dotchiejack's avatar
    Geregistreerd
    28 december 2010
    Locatie
    Antwerpen
    Afstand tot server
    ±185 km
    Hier wordt de macro Module1.Meterstand_uitlezen aangeroepen, dit kan gewoon niet,als je een macro deze naam geeft krijg je een foutmelding.
    Code:
    Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
    MVG,
    Philiep
    Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
    Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

  4. #4
    Senior Member
    Geregistreerd
    30 augustus 2010
    Edmoor,

    Ja het document staat open maar doet het niet op een geplande tijd
    Ik heb met rechts geklikt op het betr. blad en toen Programma code gekozen
    en daar de code geplaatst.
    Klopt dit soms niet?

    Via Task Scheduler kan het ook maar hoe dat gaat weet ik ook niet. (nog nooit gedaan)

    dotchiejack,

    Ook als ik module1 weg laat , gebeurd er niets.

    Jaap

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Werkt hier prima al is het nog geen 23:00 uur.

    Code:
    Private Sub Workbook_Open()
     ThisWorkbook.Verbruik
    End Sub
    Sub Verbruik()
     Application.OnTime TimeValue("19:59:00"), "Module1.VenA"
     Application.OnTime TimeValue("19:59:05"), "Module2.VenA"
    End Sub
    Code:
    Sub VenA()
      MsgBox "vanuit Module1"
    End Sub
    Code:
    Sub VenA()
      MsgBox "vanuit Module2"
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Senior Member
    Geregistreerd
    30 augustus 2010
    VenA,

    De code is bepaald goed maar ik doe dus iets anders fout.
    Daarom heb ik maar een proefbestandje aangemaakt. ( die het ook niet doet)

    Wat doe ik fout??
    Jaap
    Bijgevoegde bestanden Bijgevoegde bestanden

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Doet het hier gewoon. Je moet even de tijd aanpassen het bestand opslaan en weer openen. (of even handmatig de code in Thisworkbook uitvoeren) Ik zou ook even de code uit de module van Blad1 weghalen (hoort daar niet)
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Senior Member
    Geregistreerd
    30 augustus 2010
    VenA,

    Helemaal goed!!
    Dat was het.
    Je moet de code eerst even uitvoeren zodat bij declaraties "Open" komt te staan.
    Dank je wel.
    Jaap

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren