oi, nesta pasta de trabalho eu tenho esse código
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop execution when workbook closes
On Error Resume Next
Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
'start execution when workbook opens
Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub
e no módulo 1 eu tenho esse código
Sub Calcul()
Heure = Now + TimeValue("00:05:00")
Application.OnTime Heure, "Calcul"
Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub
] o código acima é executado a cada 5 minutos
no módulo 2 eu gostaria que esse código fosse executado a cada 10 minutos
Sub Calcul()
Heure = Now + TimeValue("00:10:00")
Application.OnTime Heure, "Calcul"
Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub
mas recebo um erro - Nome ambíguo detectado. sou novo no Excel, qualquer ajuda seria ótima.
Responder1
Concordo com o sentimento nos comentários, você deveria ler, mas não vejo relevância para a situação específica porque você está usando Application.OnTime
e não vi mencionado compartilhar no link.
Você pode ler sobre isso aqui:
https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime
Para resumir: você precisará construir uma string encapsulada entre aspas. A construção exata é determinada pelo conteúdo que você está enviando (por exemplo, variável, número inteiro, string).
A estrutura é crítica. Muito provavelmente, você perderá um caractere e gastará um bom tempo usando tentativa e erro até chegar à string correta