Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Tempo menor que 1 s...
 
Notifications
Clear all

Tempo menor que 1 segundo

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
1,300 Visualizações
RSS
 Silverio
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Boa tarde!!!

tenho uma macro que quando roda depuro funciona, quando rodo no automático ela hora funciona hora não, tive a idéia de colocar para esperar 1 segundo funcionou porém ficou muito lento, tem como fazer esperar meio segundo. Utilizei o caomando:

Application.Wait (Now + TimeValue("0:00:01"))

esta é a rotina que uso para executar: ela faz o seguinte:

Application.Calculation = xlCalculationManual
   For i = 10 To Plan1.Cells(Rows.Count, "J").End(xlUp).Row
    If Cells(i, 14).Value <> "LIB" Then
      Cells(i, 8).Value = ""
       ActiveCell.Offset(1, 0).Select
   Else
    'Application.Wait (Now + TimeValue("0:00:01"))
        ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC[2] & ""LIB"",C[-2]:C[3],6,0) = RC[3],""X"","""")"
      ActiveCell.Offset(1, 0).Select
     End If
     Next i
 
Postado : 21/10/2016 10:28 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde,

Veja se este código te ajuda:

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

Sub SleepTest()
    MsgBox "Execution is started"
    Sleep 200 'delay in milliseconds
    MsgBox "Execution Resumed"
End Sub

Fonte: Função Sleep

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/10/2016 4:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico