Risultati da 1 a 5 di 5

Discussione: Macro salvataggio foglio lavoro con aggiunta manuale della data



  1. #1
    L'avatar di Jump66
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Età
    40
    Messaggi
    3
    Likes ricevuti
    0
    Likes dati
    0

    Post Macro salvataggio foglio lavoro con aggiunta manuale della data

    Salve, apprezzo molto il vostro lavoro. Adesso vorrei chiedere quanto segue: Ma è possibile fare una macro che mi permetta di salvare uno o piu fogli di lavoro su hard disk interno, hard disk esterno e pennino usb aggiungendo al nome del file da me scelto la data ? Ho ad esempio un foglio di calcolo che giornalmente aggiorno con i miei dati e giornalmente lo salvo aggiungendo al nome del file la data in modo che se ad esempio voglio sapere come era la situazione il 05/01/2015 prendo il foglio del 05/01/2015 e posso controllare. Attendo vOSTRE preziose info GRAZIE DI TUTTO
    Ultima modifica fatta da:scossa; 22/08/15 alle 12:09 Motivo: cambiata icona messaggio

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Jump66 Visualizza Messaggio
    Salve, apprezzo molto il vostro lavoro. Adesso vorrei chiedere quanto segue: Ma è possibile fare una macro che mi permetta di salvare uno o piu fogli di lavoro su hard disk interno, hard disk esterno e pennino usb aggiungendo al nome del file da me scelto la data ? Ho ad esempio un foglio di calcolo che giornalmente aggiorno con i miei dati e giornalmente lo salvo aggiungendo al nome del file la data in modo che se ad esempio voglio sapere come era la situazione il 05/01/2015 prendo il foglio del 05/01/2015 e posso controllare. Attendo vOSTRE preziose info GRAZIE DI TUTTO
    se ho capito bene, questa dovrebbe essere la soluzione :

    Codice: 
    Sub salva()
    Dim nomefile As String
    Dim nomesalva As String
    
    ChDrive "C"
    nomefile = "C:\Users\Gaetano\Desktop\FileFinale"
    nomesalva = nomefile & "_" & Format(Now(), "yyyy-mm-dd") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=nomesalva
    
    End Sub
    Naturalmente devi aver cura di modificare la cartella dove salvare il file e dandogli il nome giusto

    Ciao.

    @Baloon_50: per l'avvenire, per cortesia, inserisci il codice tra l'apposito tag (in modalità avanzata, selezioni le righe di codice e clicchi sull'icona cancelletto #)
    Ultima modifica fatta da:scossa; 21/08/15 alle 20:22 Motivo: Inserito tag [CODE]

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Jump66
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Età
    40
    Messaggi
    3
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    se ho capito bene, questa dovrebbe essere la soluzione :

    Codice: 
    Sub salva()
    Dim nomefile As String
    Dim nomesalva As String
    
    ChDrive "C"
    nomefile = "C:\Users\Gaetano\Desktop\FileFinale"
    nomesalva = nomefile & "_" & Format(Now(), "yyyy-mm-dd") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=nomesalva
    
    End Sub
    Naturalmente devi aver cura di modificare la cartella dove salvare il file e dandogli il nome giusto

    Ciao.

    @Baloon_50: per l'avvenire, per cortesia, inserisci il codice tra l'apposito tag (in modalità avanzata, selezioni le righe di codice e clicchi sull'icona cancelletto #)
    Ciao è grazie per la tua tempestiva risposta: FINALMENTE grazie al tuo prezioso aiuto ho risolto macro scritta (piu che altro copiata :) ) salvata e perfettamente funzionante.
    Ancora grazie , un cordiale saluto
    Jump66

  4. #4
    L'avatar di Jump66
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Età
    40
    Messaggi
    3
    Likes ricevuti
    0
    Likes dati
    0
    Sei tasto fantastico. Ti ringrazio per la tempestività e la competenza. Ho copiato la macro facendo le dovute diversificazioni per via del nome file come da te suggerito e devo dirti che FUNZIONA TUTTO ALLA GRANDE.
    Nell'augurarti un buon fine settimana , permettimi di dire ancora una volta ........SEI TROPPO FORTE , e GRAZIE ANCORA
    Jump66

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Jump66 Visualizza Messaggio
    Sei tasto fantastico. Ti ringrazio per la tempestività e la competenza. Ho copiato la macro facendo le dovute diversificazioni per via del nome file come da te suggerito e devo dirti che FUNZIONA TUTTO ALLA GRANDE.
    Nell'augurarti un buon fine settimana , permettimi di dire ancora una volta ........SEI TROPPO FORTE , e GRAZIE ANCORA
    Jump66
    Grazie a te che, ancora una volta, mi hai permesso di utilizzare le mie conoscenze.

    ciao e buon fine settimana anche a te

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. [Risolto] Funzionamento anomalo della macro per salvataggio file
    Di ceskonet13 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 10/02/17, 19:07
  2. [Risolto] Salvataggio foglio senza macro
    Di fauly nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 29/12/16, 17:30
  3. Formule in manuale solo per un foglio di lavoro
    Di Rubik83 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 03/05/16, 11:41
  4. Macro per inserimento ActiveX su foglio di lavoro
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 06/04/16, 13:13
  5. Macro suddivise per foglio di lavoro
    Di Theinvoker nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 02/03/16, 20:59

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
  •