Tempo menor que 1 segundo

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

2 Posts

2 Usuários

0 Reactions

1,292 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

(@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