dosomething nelle macro di excel

[thor92]

ciao a tutti !!!
vi espondo subito il mio problema.. ho creato nel vba di excel una piccola macro che ogni tot secondi esegue un comando e controlla il valore della differenza tra due celle, se questa supera un certo valore fornisce un messaggio.
ho usato un comando "DoSomething" (che sinceramente non so molto come funzioni.. in pratica ho fatto quasi un copia e incolla aggiornando qualche parametro e cambiando qualche cosa da una risposta che mi avevano mandato sempre su questo forum ad un'altro post)

il problema è che quando attivo il timer (faccio attivare lo script con un tasto nel foglio di lavoro) fa il primo controllo, e le successive volte mi da errore.. dice--> Rilevato nome univoco: DoSomething
vi posto il codice completo che ho inserito per essere più chiaro.. grazie a tutti già in anticipo !!!

Public TimeRun As Double
Public Sub StartMyTimer()
    TimeRun = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=TimeRun, Procedure:="Dosomething", _
    Schedule:=True
End Sub
Public Sub Dosomething()

totale = Range("B4").Value
ultimo = Range("B3").Value
differenza = totale - ultimo
If differenza >= 20 Then
MsgBox "esegui manutenzione"
Range("B3").Value = totale
End If

StartMyTimer
End Sub

[Pirelli72]

Sinceramente ho riprovato il codice che hai postato è funziona correttamente, aggiungendo ovviamente:

Private Sub CommandButton1_Click()
StartMyTimer
End Sub

nel Foglio1
Manca qualcos'altro che non hai detto.

[thor92]

no, nulla da fare... io non avevo messo:

Private Sub CommandButton1_Click()

ma anche adesso che l'ho messo non vuole funzionare...
se volete di vedere di persona il problema posto il file di excel su qualche servizio di hosting... ma lo devo fare domani perchè il file cel'ho in ufficio.. XD
non so + dove sbattere la testa...
comunque vi posto il codice come si presenta adesso:

Public TimeRun As Double

Public Sub StartMyTimer()
    TimeRun = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=TimeRun, Procedure:="DoSomething", _
    Schedule:=True
End Sub

Public Sub DoSomething()

totale = Range("B4").Value
ultimo = Range("B3").Value
differenza = totale - ultimo
If differenza >= 20 Then
MsgBox "esegui manutenzione"
Range("B3").Value = totale
End If
End Sub
Private Sub CommandButton1_Click()
StartMyTimer
End Sub

[Pirelli72]

NCS (non ci siamo). Il timer e la sua sub devo risiedere in un modulo, non nel foglio.

[thor92]

quindi dovrei dividere il codice? una parte in un modulo e l'altra parte ne foglio?
e se mettessi tutti e due i codici in due moduli separati?

quello che non capisco bene e come faccia a poter eseguire una sub in un modulo diverso...

[Pirelli72]

Nel Foglio c'è l'evento del pulsante che richiama lo StartMyTimer e quello non lo puoi mettere da un'altra parte, in un modulo invece c'è il restante codice.

Public TimeRun As Double
Public Sub StartMyTimer()
    TimeRun = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=TimeRun, Procedure:="Dosomething", _
    Schedule:=True
End Sub

Public Sub Dosomething()

totale = Range("B4").Value
ultimo = Range("B3").Value
differenza = totale - ultimo
If differenza >= 20 Then
MsgBox "esegui manutenzione"
Range("B3").Value = totale
End If

StartMyTimer
End Sub

quello che non capisco bene e come faccia a poter eseguire una sub in un modulo diverso.

I moduli servono proprio a condividere del codice.

[thor92]

ah forse ho capito... nel foglio metto:

Private Sub CommandButton1_Click()
StartMyTimer
End Sub

e invece nel modulo metto:

Public TimeRun As Double
Public Sub StartMyTimer()
    TimeRun = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=TimeRun, Procedure:="Dosomething", _
    Schedule:=True
End Sub

Public Sub Dosomething()

totale = Range("B4").Value
ultimo = Range("B3").Value
differenza = totale - ultimo
If differenza >= 20 Then
MsgBox "esegui manutenzione"
Range("B3").Value = totale
End If

StartMyTimer
End Sub

giusto? ci ho azzeccato?

[Pirelli72]

Esatto.

[thor92]

ok thanks... domani in ufficio provo a vedere se funziona e poi ti faccio sapere

[thor92]

nulla da fare... ho messo i codici come da sopra, provo a compilare e mi dice:

Rilevato nome non univoco: StartMyTimer

io a questo punto ci capisco abbastanza poco... magari salto qualche passaggio...