macro om de 15' uitvoeren

Status
Niet open voor verdere reacties.
M

moensk

Gebruiker
Lid geworden
23 jun 2013
Berichten
711
ik vond bijgaand script maar dat is gerelateerd aan een vaste dag en uur.
ik zoek een script dat zich elke 15' refreshen
kan dit ?

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
 
Dit in een Module1?
Code: 
Sub Verbruik()
    Application.OnTime Now() + TimeValue("00:15:00"), "Module1.Meterstand_uitlezen"
End Sub

Sub Meterstand_uitlezen()
    MsgBox "Hoi"
    Verbruik
End Sub
 
Schuift now + 15 min niet gewoon altijd mee op, aangezien now bij elke evaluatie ook schuift, zodat het altijd 15 min. in de toekomst blijft liggen ?
 
Op de manier zoals het er staat word de Sub Meterstand_uitlezen iedere 15 minuten uitgevoerd.
 
Er mist nog een code om het te stoppen.
Je bestand zal automatisch weer opstarten na sluiting.
 
Het script in een module geplaatst toch wordt het maar éénmalig uitgevoerd
kan iemand dit bekijken aub

Code: 
Sub Verbruik()
    Application.OnTime Now() + TimeValue("00:05:00"), "module1.orders"
End Sub

Sub orders()

    ActiveWorkbook.Connections("Query - vw_TMS_Vanboxtel_VRT_Zending_niet_definitief").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("Query - vw_TMS_Vanboxtel_VRT_Zending_niet_definitief").Refresh
    
End Sub
 
Dat komt omdat je mijn voorbeeld niet correct hebt overgenomen.

Code: 
Sub Verbruik()
    Application.OnTime Now() + TimeValue("00:05:00"), "module1.orders"
End Sub

Sub orders()
    ActiveWorkbook.Connections("Query - vw_TMS_Vanboxtel_VRT_Zending_niet_definitief").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("Query - vw_TMS_Vanboxtel_VRT_Zending_niet_definitief").Refresh
    [COLOR="#FF0000"]Verbruik[/COLOR]
End Sub
 
Laatst bewerkt:
Geen probleem natuurlijk :)
 
Een querytable heeft een ingebouwde eigenschap om in een bepaalde frekwentie te aktualiseren.
Gebruik die eigenschap in plaats van foutgevoelige VBA-code.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan