Hoi allemaal,
Ik ben bezig met een macro te schrijven en ik wil deze automatisch laten draaien om 23:00 vanaf vandaag. Ik ben nog niet zo bekend met het gebruik van VBA. Hieronder de macro die ik heb, echter runt die deze niet op het gekozen tijdstip. Kan iemand mij hierbij helpen? Alvast bedankt!
Gr. Mart1
Private Sub Workbook_Open()
Application.OnTime TimeValue("23:00:00"), "MyMacro" 'Runs a macro at 23:00
End Sub
Sub MyMacro()
Range("B58:T107").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W58:Y63").Select
Application.CutCopyMode = False
Selection.Copy
Range("W3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Range("B113:T162").Select
Application.CutCopyMode = False
Selection.Copy
Range("B58").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W113:Y118").Select
Application.CutCopyMode = False
Selection.Copy
Range("W58").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=63
Range("B168:T217").Select
Application.CutCopyMode = False
Selection.Copy
Range("B113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W168:Y173").Select
Application.CutCopyMode = False
Selection.Copy
Range("W113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub