Kører makroer i ikke aktive ark vi VBA

Du kan checke alle åbne regneark med koden

Sub test()
For Each y In Application.Workbooks
    MsgBox y.Name
Next
End Sub

Det er lidt farligt at skifte til et andet ark, hvis brugeren sidder og arbejder i et andet.

Hvad laver makroen?

ok, Jeg har et regneark med realtidsopdateret óbligationskurser m.v. Klokken 9 og klokken 15:30 tager makroen en kopi af disse realtidskurser og indsætter dem som værdier i to andre kolonner på de angivne tidspunkter. Makroerne virker fint og jeg køre dem via application.ontime og det virker fint, men KUN hvis jeg har arket maksimeret foran mig på skærmen. Ellers får jeg en fejlmeddelse om at den ikke lan finde arket. Jeg ville jo netop gerne undgå manuelt at være tvunget til at maksimere mit ark på de angivne tidspunkter?? Kan dette lade sig gøre, og hvordan gør jeg??

Husk at skrive hvilken workbbook den skal skrive i

Den workbook med koden i hedder altid ThisWorkbook

ThisWorkbook.sheets(1.range o.s.v.

hmm kabbak, jeg er ikke sikker på at jeg forstår dig helt. Kan du eventuelt uddybe lidt??

Sub run()
Range("a1") = Now
Application.OnTime TimeValue("00:00:1") + Now, "run"
Call tst
End Sub

Sub tst()
[a2] = [a2] + 1
End Sub

de 2 ovenstående kører fint samtidig med en anden projektmappe er
åben og aktiv

prøv at paste din kode så vi kan checke for mulige problemer.

Hej Excelent

Her er en af mine makroer.

Sub Makro1()

    Range("E5:E40").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("a1").Select
    ThisWorkbook.Save
Denne sammen med 3 andre også meget simple makroer er skrevet i Module1 og virker helt fint.
Derudover har jeg i Thiswoorkbook skrevet;

Private Sub Workbook_open()

Application.OnTime TimeValue("09:30:00"), "makro1"

Application.OnTime TimeValue("15:30:00"), "makro2"

Application.OnTime TimeValue("09:00:00"), "makro3"

Virker også helt fint men kun når arket er aktivt.
Jeg er ikke for god til det her VBA så jeg har nok overset noget meget vigtigt.

Når du arbejder i en ikke aktiv projektmappe, kan du ikke bruge .Select

Ret:

Range("E5:E40").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("a1").Select
    ThisWorkbook.Save

til

    ThisWorkbook.Worksheets("Ark1").Range("E5:E40").Copy
    ThisWorkbook.Worksheets("Ark1").Range("G5").PasteSpecial Paste:=xlPasteValues
    ThisWorkbook.Save

eller

Dim Data As Variant
    Data = ThisWorkbook.Worksheets("Ark1").Range("E5:E40")
    ThisWorkbook.Worksheets("Ark1").Range("G5:G" & UBound(Data) + 4) = Data ' de + 4 er fordi den starter i G5
ThisWorkbook.Save

er der mere kode i denne, for dette alene kører ikke timeren ?

Private Sub Workbook_open()
Application.OnTime TimeValue("09:30:00"), "makro1"
Application.OnTime TimeValue("15:30:00"), "makro2"
Application.OnTime TimeValue("09:00:00"), "makro3"

Hvorfor ikke blot tilføje 3 jobs i "planlagte opgaver". Så kører det også, uanset om Excel er åbnet eller ej.

Hey Allesammen, mange tak for jeres henvendelser. Excelent, jeg kan sende dig arket så du kan se præcis hvordan det er opbygget i sin simple form??. Og nej der er ikke mere kode i timeren og det virker faktisk fint når bare arket er åbent og aktivt.
Kabbak, jeg prøver at kigge lidt på dine løsningsforslag og vender tilbage

Mange tak so far

ok
pm@madsen.tdcadsl.dk

Hvordan går det her?

Hej

Har som sagt opgivet under en anden tråd opgivet arket.

Så luk spørgsmålet.

Jep!

Husk at acceptere dit eget svar.