ciao ragazzi
una sola considerazione per utilizzo di VBA
e' noto che e' meglio non utilizzare parole inerenti a funzioni o comandi di excel e VBA
si sta utilizzando la Sub timer() ma in VBA
Timer e una Funzione
Timer function
Returns a Single representing the number of seconds elapsed since midnight.
Example
This example uses the Timer function to pause the application. The example also uses DoEvents to yield to other processes during the pause.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
detto questo continuo a seguirvi nell'impresa
Ciao da locate
excel 2007 / 13