Ejecutar prueba de Ping cada cierto tiempo

[Miguel A. Tamaniz H.]

Hola a todos por aqui

Ya tengo un macro que me realiza un Ping a una lista de IP que aqui muy amable me ayudaron a corregir unos errorsillos que me ayudo a perfeccionarlo, pero ahora estoy intentando hacer que la prueba me la realice el tiempo que uno le ingrese, pero me me marca el siguiente error

tengo 3 botones, 1 corre la prueba de PING, 2 inicia el autoping, 3 detiene el autoping

y el codigo  que tengo es el siguiente

Dim Tiempo As Variant
Dim contador As Long

Private Sub PingLista_Click()
Call EnviarPing_CSR_Concent
End Sub


Private Sub Fin_AutoPing_Click()
On Error Resume Next
    Application.OnTime Tiempo, Procedure:="Inicio_AutoPing", Schedule:=False
contador = 0
End Sub


Private Sub Inicio_AutoPing_Click()
Dim IngTime As String
On Error Resume Next
    'repetición del tiempo por ejemp: 30 minutos
    IngTime = InputBox("Ingrese el tiempo en: hh:mm:ss (00:00:00) " & vbCr & "Como el de la hora actual: " & Format(Time, "hh:mm:ss"), "INGRESAR TIEMPO", "00:00:00")
    Tiempo = Now + TimeValue(IngTime)

'llama a esta misma macro en el tiempo estipulado
    Application.OnTime Tiempo, "Inicio_AutoPing", Schedule:=True

    Call EnviarPing_CSR_Concent

End Sub

 

[Antoni]

Reasigna de nuevo las macros a los botones.

[Miguel A. Tamaniz H.]

En 4/6/2021 at 4:01 , Antoni dijo:

Reasigna de nuevo las macros a los botones.

Lo voy a checar.... gracias por el dato

[Miguel A. Tamaniz H.]

buenas noches @Antoni ya realice lo que me comento y me volvió a salir el mismo mensaje de que los macros han sido deshabilitados, adjunto el archivo para ver si puede ayudarme

Pingeo.xlsm