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

• #35477 RAiN91 őstag

  Új Válasz 2017-06-13 20:11:32 #35477

  Ú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

  Sziasztok

  Van egy ilyenem, 3 excel táblában is.

  Private Sub worksheet_idozito()
  1
  Cells(6, 6) = Cells(9, 8)
  ido = Timer + 0.2
  Do While (Timer < ido)
  DoEvents
  Loop
  If Cells(9, 8) < Cells(6, 6) Then
  Cells(6, 7) = Cells(9, 8)
  ido = Timer + 1.5
  Do While (Timer < ido)
  DoEvents
  Loop
  Cells(6, 8) = Cells(9, 8)
  ido = Timer + 1.5
  Do While (Timer < ido)
  DoEvents
  Loop
  Cells(6, 9) = Cells(9, 8)
  ido = Timer + 1.5
  Do While (Timer < ido)
  DoEvents
  Loop
  Else
  End If

  GoTo 1
  End Sub

  Hogyan lehet megoldani, hogy ha elindítom az excel fájlt, akkor ezek automatikusan fussanak?
  Ha kézzel indítom, akkor csak az egyik worksheetben fut.

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