hola en este libro de trabajo tengo este 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
y en el módulo 1 tengo este 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
] el código anterior se ejecuta cada 5 minutos
en el módulo 2 me gustaría que este código se ejecute 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
pero aparece el error: Se detectó un nombre ambiguo. Soy nuevo en sobresalir. Cualquier ayuda sería genial.
Respuesta1
Estoy de acuerdo con el sentimiento de los comentarios, deberías leerlo, pero no veo ninguna relevancia para la situación específica porque estás usando Application.OnTime
y no vi que se mencionara compartir en el enlace.
Usted puede leer sobre ello aquí:
https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime
Para resumir: necesitará crear una cadena encapsulada entre comillas. La construcción exacta está determinada por el contenido que estás enviando (por ejemplo, variable, número entero, cadena).
La estructura es crítica. Con toda probabilidad, te perderás un personaje y pasarás una buena cantidad de tiempo usando prueba y error hasta que encuentres la cadena correcta.