2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #18682 bajor14 csendes tag
    Új Válasz #18682
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    bajor14

    csendes tag

    Sziasztok!

    Eléggé kezdő vagyok a dologban ez lenne az első makróm… 
    van egy makró ami minden fél órában lefut (fontos, hogy minden fél és egész órában… így a now + 30 sec sajnos nem működik…) viszont ha a munkafüzetet bezárom akkor az időzítő miatt újra megnyitja és futtatja… ezt kellene lelőni…

    ezt így oldottam meg:

    Application.OnTime TimeValue("07:30:00"), "fris", ("07:30:01")
    Application.OnTime TimeValue("08:00:00"), "fris", ("08:00:01")
    Application.OnTime TimeValue("08:30:00"), "fris", ("08:30:01")
    Application.OnTime TimeValue("09:00:00"), "fris", ("09:00:01")
    Application.OnTime TimeValue("09:30:00"), "fris", ("09:30:01")
    Application.OnTime TimeValue("10:00:00"), "fris", ("10:00:01")
    Application.OnTime TimeValue("10:30:00"), "fris", ("10:30:01")
    Application.OnTime TimeValue("11:00:00"), "fris", ("11:00:01")
    Application.OnTime TimeValue("11:30:00"), "fris", ("11:30:01")
    Application.OnTime TimeValue("12:00:00"), "fris", ("12:00:01")
    Application.OnTime TimeValue("12:30:00"), "fris", ("12:30:01")
    Application.OnTime TimeValue("13:00:00"), "fris", ("13:00:01")
    Application.OnTime TimeValue("13:30:00"), "fris", ("13:30:01")
    Application.OnTime TimeValue("14:00:00"), "fris", ("14:00:01")
    Application.OnTime TimeValue("14:30:00"), "fris", ("14:30:01")
    Application.OnTime TimeValue("15:00:00"), "fris", ("15:00:01")
    Application.OnTime TimeValue("15:30:00"), "fris", ("15:30:01")
    Application.OnTime TimeValue("16:00:00"), "fris", ("16:00:01")
    Application.OnTime TimeValue("16:30:00"), "fris", ("16:30:01")
    Application.OnTime TimeValue("17:00:00"), "fris", ("17:00:01")
    Application.OnTime TimeValue("17:30:00"), "fris", ("17:30:01")
    Application.OnTime TimeValue("18:00:00"), "fris", ("18:00:01")
    Application.OnTime TimeValue("18:30:00"), "fris", ("18:30:01")
    Application.OnTime TimeValue("19:00:00"), "fris", ("19:00:01")
    Application.OnTime TimeValue("19:30:00"), "fris", ("19:30:01")
    Application.OnTime TimeValue("20:00:00"), "fris", ("20:00:01")

    End Sub

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now, "fris", , False
    End Sub

    viszont sajnos ez így nem működik…. tudnátok segíteni?

Új hozzászólás Aktív témák