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

• #35412 RAiN91 őstag RAiN91 #35411

  Új Válasz 2017-06-06 22:58:39 #35412

  Ú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

  válasz RAiN91 #35411 üzenetére

  Megoldódott, application.wait helyett így:

  Sub idozito()
  If Cells(6, 6) > 1 Then
  ido = Timer + 2
  Do While (Timer < ido)
  DoEvents
  Loop
  Cells(6, 6).ClearContents
  Cells(6, 7) = 2
  End If
  End Sub

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