problema inserimento ora

Hai un problema con Excel?

Nuova discussione

problema inserimento ora
di maxmi data: 17/06/2013 22:18:52
ciao a tutti
chiedo vostro aiuto
Su un file ho inserito l'ora con questo codice
su modulo e su ThisWorkbook,fin qui tutto ok.

Questo file mi salva i dati su un altro file che anch'esso ha
impostato l'ora e qui quando faccio salva mi va in debag
Questo è il codice del secondo file su modulo.

sembra che il problema sia sulla macro che fa funzionare l'orologio
la funzione On time

grazie

non posso impostare il file troppi dati sensibili

'inserimento ora automatica
Sub CLOCK()
If ThisWorkbook.Worksheets("Rapportino").Range("F8").Value = "X" Then Exit Sub
DoEvents ''controllo eventi
ThisWorkbook.Worksheets("Rapportino").Range("F8").Value = Format(Now, "hh:mm:ss ")
Application.OnTime Now + TimeSerial(0, 0, 1), "clock"
End Sub

Poi su ThisWorkbook ho inserito questo codice per aggiornare l'ora
Private Sub Workbook_Open()
Dim icona As VbMsgBoxResult
icona = MsgBox("Vuoi ridurre il file ad icona?", vbYesNo + vbQuestion, "ATTENZIONE")

If icona = vbYes Then
   Application.WindowState = xlMinimized
End If
Foglio1.Select
Call CLOCK '<====== aggiorna ora automatico
End Sub



codice secondo file su modulo
Sub clock()
Dim ws As Worksheet
    For Each ws In Sheets(Array("gennaio", "febbraio", "marzo", "aprile", "maggio", "giugno", _
         "luglio", "agosto", "settembre", "ottobre", "novembre", "dicembre"))
        ws.[I1] = Format(Now, "hh:mm:ss")
    Next
    Application.OnTime Now + TimeSerial(0, 0, 1), "clock"
End Sub



su ThisWorkbook

Private Sub workbook_open()
Foglio1.Select
Call clock

End Sub

di Vecchio Frac data: 19/06/2013 21:06:43
cit. "quando faccio salva mi va in debag"
---> E quando Excel va in *debug*, che messaggio di errore ti segnala?

OnTime non fa altro che registrare il passaggio del tempo prefissato per eseguire l'azione impostata (richiamare "clock").

Peccato che non puoi *postare* il file nemmeno con dati fittizi :)
di Mister_x (utente non iscritto) data: 19/06/2013 23:48:10
ciao

a mio avviso, il problema sta che tu apri contemporaneamente due file in excel, e fai partire due sub()
con lo stesso nome Clock, per mio conto e come se tu scrivessi due sub() con lo stesso nome in un solo file, quindi excel essendo il programma esecutivo e le sub() solo applicazioni a questo punto quando la sub() , come penso di capire, copia dal file in elaborazione e passi al file che tu ai reso minimizzato ma a quel punto in lavorazione, non sa piu' a che sub() clock dare il comando di calcolo,
quindi a mio parere prova a sostituire i vari clock chiamandoli nel file in uso clock1 e l'altro clock2, cosi'
in questo caso avrai due sub() differenti

ciao da Mister_x
di maxmi data: 21/06/2013 10:04:09
ciao Vecchio Frac
Aimè non posso postare i file, provo a vedere cosa posso fare
comunque mi consolo, gia privatamente c'è qualcuno che si sta
scervelando, sembra che il problemino non sia cosi semplice da risolvere
almeno da quello che vedo io.

Ciao Mister_x
ho gia' provato cambiare il nome delle sub
ma senza risultato risolvo un debag e ne apro un'altro.

Il problema è l'ora, perche se disattivo l'ora
su uno dei due file, fila tutto liscio.

se mi danno una soluzione vi faccio sapere
ciao grazie

Vuoi Approfondire?