Risultati da 1 a 17 di 17

Discussione: Aggiornare la data al giorno corrente all'apertura del file



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    Aggiornare la data al giorno corrente all'apertura del file

    Buongiorno a tutti.
    Grazie a voi (Marius44 in primis) il file stà crescendo e sono arrivato...alle finezze:288:.
    In breve come da indicazione presente nel file http://dropcanvas.com/nnahj vorrei che la data si aggiornasse al giorno corrente.

    E' fattibile?

    Gene

  2. #2
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61
    ciao gene,
    per la data basta che metti
    =OGGI()
    mentre per il "si posiziona sul giorno in corso" francamente (non conoscendo tutto il pregresso) non ho ben capito.
    passo la palla agli altri.
    ciao
    ale

  3. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931
    Ciao a tutti,
    @G.Bove

    per come hai sistemato le formule, il modo più pratico per aggiornare alla data corrente è quello di modificare il valore della cella "C5" del foglio "Menu".

    Quindi, userai un codice del genere:

    Codice: 
    Option Explicit
    
    
    Private Sub Workbook_Open()
    Dim cella As Range, differenza As Integer, data_riferimento As Long
    
    
    data_riferimento = CLng(Worksheets("Guaine").Range("A3").Value)
    Set cella = Worksheets("Menu").Range("C5")
    differenza = Date - data_riferimento
    cella = differenza
    Set cella = Nothing
    
    
    End Sub
    Ti riallego il file...
    http://dropcanvas.com/3vshl

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  4. I seguenti utenti hanno dato un "Like"


  5. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155
    Ciao Gene
    Grazie a nome di tutti per i complimenti.
    Sono in ritardo, cromagno mi ha battuto sul filo di lana. Ottima la sub proposta (molto simile a quella che avevo predisposto).
    Non puoi fare altrimenti perché la data in B5 è una data "calcolata" dalla barra di scroll.
    Fai attenzione se dovessero esserci dei Grafici collegati. Prova prima il tutto in un file di prova.

    Ciao,
    Mario

  6. #5
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    @ Cromagno
    Scusami per la domanda da Dummies: Non trovo il codice nè in una macro (che non c'è) nè nella casella C5. Quindi per imparare e poi riprodurlo nel foglio originale ( e senza rivolgermi a Chi l'ha visto?) mi accendi un faro nella nebbia dandomi una dritta?

    Grazie
    Gene

  7. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155
    Ciao Gene
    rispondo al posto di cromagno (sarà impegnato?)
    Quel codice va inserito in ThisWorkbook (Questa_cartella_di_Lavoro) che si trova immediatamente dopo i Fogli aprendo l'Editor di VBA.

    Ciao,
    Mario

  8. I seguenti utenti hanno dato un "Like"


  9. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    Sarò ripetitivo e me ne assumo la responsabilità ma non posso che dirvi che : SIETE GRANDI!!:255:

    Gene

  10. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931
    Ciao a tutti,
    @Mario
    grazie per essere intercorso al mio posto nella spiegazione, come hai immaginato non potevo rispondere... :246:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #9
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    L'appetito vien mangiando....per puro interesse scientifico e pungolato da Mario (...Fai attenzione se dovessero esserci dei Grafici collegati.) .....volevo provare a usare lo stesso codice anche in un diverso foglio di lavoro dopo la data è collegata a dei grafici dinamici.
    Ho fatto copia ed incolla e modificato i riferimenti ma il risultato è stato scarso (http://dropcanvas.com/hnb4z).

    Gene

  12. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931
    Ciao Gene,
    non puoi usare due codici con lo stesso evento (Workbook_Open) così come non puoi chiamare due Sub con lo stesso nome...

    Il secondo codice devi inserirlo come proseguimento del primo, in quanto entrambi i codici sono legati all'apertura del foglio.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #11
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    Ciao Cromagno,
    riesci a farmi un'esempio?
    Ho dato fondo alle mie conoscenze incollando il tuo lavoro......:235:

    Gene

  14. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931
    Ciao Gene,
    prendendo sempre il tuo file iniziale come esempio....

    Il primo codice agisce sulla data odierna e fin qui tutto ok.
    Se volessi anche che all'apertura mi appaia un messaggio con scritto "Benvenuto Gene.", non inserirò questo codice come hai fatto tu:

    Codice: 
    Option Explicit
    
    
    Private Sub Workbook_Open()
    Dim cella As Range, differenza As Integer, data_riferimento As Long
    
    
    data_riferimento = CLng(Worksheets("Guaine").Range("A3").Value)
    Set cella = Worksheets("Menu").Range("C5")
    differenza = Date - data_riferimento
    cella = differenza
    Set cella = Nothing
    
    
    End Sub
    
    
    Option Explicit
    
    
    Private Sub Workbook_Open()
    
    
    msgbox "Benvenuto Gene."
    
    
    End Sub
    Ma lo aggiungo al codice precedente:

    Codice: 
    Option Explicit
    
    
    Private Sub Workbook_Open()
    Dim cella As Range, differenza As Integer, data_riferimento As Long
    
    
    data_riferimento = CLng(Worksheets("Guaine").Range("A3").Value)
    Set cella = Worksheets("Menu").Range("C5")
    differenza = Date - data_riferimento
    cella = differenza
    Set cella = Nothing
    
    
    msgbox "Benvenuto Gene."
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  15. #13
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155
    Ciao Gene
    se ti riferisci "all'altro" file (quello con tanti Grafici), la macro di cromagno non è adattabile perché, se ricordo bene, vi erano due scrollbar che agivano sulle date. Non ho più il file sottomano ma credo sia alquanto difficile poterlo fare.

    Ciao,
    Mario

  16. #14
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    @Marius44:
    Si confermo era proprio quello.

    @Cromagno
    Ma cosa dovrei aggiungere all'attuale codice funzionante per farmi aggiornare anche una data presente in un'altro foglio di lavoro?


    In ogni caso spero stasera di riuscire a postare un file esemplificativo.

    Gene

  17. #15
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    Ecco il file promesso (http://dropcanvas.com/pr38x).
    Disposto a rinunciare alla seconda data anche se questo immagino mi costerà molte correzioni.

    Grazie
    Gene

  18. #16
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155
    Ciao Gene,
    far apparire la data è abbastanza semplice
    Codice: 
    Private Sub Workbook_Open()
    Dim cella As Range, differenza As Integer, data_riferimento As Long
    
    
    data_riferimento = CLng(Worksheets("Guaine").Range("A3").Value)
    Set cella = Worksheets("Menu").Range("C5")
    differenza = Date - data_riferimento
    cella = differenza
    Set cella = Nothing
    
    
    Set cella = Worksheets("Grafico_GU").Range("D2")
    differenza = Date - data_riferimento
    cella = differenza
    Set cella = Nothing
    
    
    End Sub
    In pratica ho aggiunto le righe in rosso nel codice già presente. Questo è quello che suggeriva anche cromagno quando diceva che "devono essere messi in sequenza nella sub d'apertura".
    Se ricordo bene, però, quella data era collegata a dei "nomi definiti" per i grafici.
    Occhio!!!

    Ciao,
    Mario

  19. #17
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187
    Ciao Mario,
    ovviamente avevi ragione.
    In ogni caso le risposte precedenti hanno comunque risolto il thread quindi RISOLTO e chiudo.:111:

    Buon fine settimana lungo a tutti voi.

    Gene

Discussioni Simili

  1. [Risolto] apertura di una userform ad apertura del file
    Di raffaelealta nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 09/02/17, 14:07
  2. [Risolto] Estrarre da testo giorno, mese e giorno settimana.
    Di alfrimpa nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 20/12/16, 17:39
  3. [Risolto] Aggiornare somma in base a data
    Di lizz1183 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 19/10/16, 14:08
  4. Salvare i dati di un giorno sotto la colonna dello stesso giorno.
    Di Laura Belli nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 26/08/16, 08:51
  5. Non apertura del file
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 02/12/15, 15:15

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •