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

• #35492 RAiN91 őstag

  Új Válasz 2017-06-15 17:14:38 #35492

  Ú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

  

  RAiN91

  őstag

  Sehogy sem jön össze az időzítés, tudnátok segíteni? Az Application.Ontime-nél az a gond, ha azt a fajta időzítőt behívnám, akkor ott az idő letelte után egy subot kellene behívnom, én viszont csak annyit szeretnék, hogy ha lefut az időzítő, folytassa ugyan ott az eredeti makrómat, ahol abbahagyta.

  Private Sub worksheet_calculate()
Dim i As Integer
Application.EnableEvents = False

CALL "idozito "'IDE SZERETNÉK MÁSODPERC vagy MS ALAPÚ IDŐZÍTŐT

For i = 9 To 39 Step 2

Cells(i + 1, 38) = Cells(i, 8)

Next i
Application.EnableEvents = True
End Sub

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