Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

excel Creare un backup senza alterare il nuovo file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 13/07/15 12:12

Buongiorno
Sicuramente il titolo del TOPIC non da l'idea di quello che vorrei
cerco di spiegarmi meglio, devo fare un backup di un file nominato "Registro dei Corrispettivi " dove attraverso una macro tutti i dati (VALORI ) dei 12 fogli =Mesi vengono copiati in un solo foglio cosi di anno in anno,e i dati dell'anno appena trascorso vengono cancellati per preparare il file per il nuovo anno,ho deciso di fare una copia integrale di tutto il file con il nome (Registro dei Corrispettivi aggiungendo la data del Salvataggio) es...Registro dei Corrispettivi 2015/12/30....., prima che questi vengono cancellati , questa è la parte di macro che chiedo il vostro aiuto ....
Codice: Seleziona tutto
Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
    '
    If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("Dati non Caricati ")
     
    Exit Sub
     End If
    '....
    '... '<<<<<<<<<<<<<Backup dell'intero file
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo\Archivio Registro dei corrispettivi\Registro dei Corrispettivi  " & Format([A1], "-yyyy-mm-dd") & ".xlsm"
MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'<<<<<In questo nuovo file tutti i dati rimangono  nei 12 fogli che sono i Mesi
'
 '<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia  nel foglio DBvendita,e... a seguire la cancellazione dei dati       ????????????????
 '
'
 'GENNAIO
 '
    Sheets("DIC").Select
    Sheets("DBvendita").Visible = True
    Sheets("DBvendita").Select
    ActiveSheet.Unprotect
    Sheets("GEN").Select
    ActiveSheet.Unprotect
    Range("C3:P40").Select
    Selection.Copy
    Sheets("DBvendita").Select 


e.......... fin quà relativamente tutto OK ,se non fosse per il fatto che il resto della macro e cioè la cancellazione dei dati e quant'altro, vengono eseguiti sul nuovo file appena creato e non sul file Originale .
Come faccio a riattivare il file Originale ( Registro dei Corrispettivi )???
Spero nel vostro aiuto

Grazie
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Sponsor
 

Re: excel Creare un backup senza alterare il nuovo file

Postdi Anthony47 » 14/07/15 02:44

Quando fai ActiveWorkbook.SaveAs il vecchio workbook scompare dalla memoria e rimane solo il nuovo; pero' puoi usare
Codice: Seleziona tutto
ActiveWorkbook.SaveCopyAs Filename:=nome
e in questo modo avrai una copia su disco col nuovo nome e il workbook originale rimane aperto e attivo.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel Creare un backup senza alterare il nuovo file

Postdi Flash30005 » 14/07/15 03:37

Leggi il post di Anthony

Devi impostare le variabili nome e percorso del workbook originale prima del salvataggio e richiamare il file prima di chiudere la copia,
nel tuo caso...

Codice: Seleziona tutto

Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
    '
    If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("Dati non Caricati ")
     
    Exit Sub
     End If
    '....
    '... '<<<<<<<<<<<<<Backup dell'intero file
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo\Archivio Registro dei corrispettivi\Registro dei Corrispettivi  " & Format([A1], "-yyyy-mm-dd") & ".xlsm"
NomeF = Format([A1], "-yyyy-mm-dd") & ".xlsm"

MsgBox (nome)

'<<<< aggiungere questo blocco qui sostituendo la parte esistente
Perc = ThisWorkbook.Path
MyWB = ActiveWorkbook.Name


ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 Workbooks.Open Filename:=Perc & "\" & MyWB
Workbooks(NomeF).Close


'<<< fine aggiunta/modifica



 '<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia  nel foglio DBvendita,e... a seguire la cancellazione dei dati       ????????????????
 '
'



ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 14/07/15 11:35

OK
Risolto perfettamente come suggerito da Anthony
Con la soluzione di Flash che era molto simile a quella che ero riuscito a fare io
Codice: Seleziona tutto
Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
     If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("ATTENZIONE......Dati non Caricati Selezionare  SI  al Lato DX ")
     
    Exit Sub
     End If
    '....
    '...
    '...
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo \Archivio Registro dei corrispettivi\Registro dei Corrispettivi Anno " & Format([A1], "-yyyy") & ".xlsm"
'MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 '
 '
 nome = "D:\Archivio Gruppo \EXCEL\Registro dei Corrispettivi" & ".xlsm"
'MsgBox (nome)

ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<CODIA I DATI in DBvendita

mi dava comunque errore,non ho approfondito del perchè inquanto mi va benissimo la soluzione di Anthony
Grazie a tutti e due per la vostra preziosa risposta
Faccio una domanda:durante la copia è possibile far apparire un messaggio tipo " attendere copia in corso "

ancora grazie e ciao
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: excel Creare un backup senza alterare il nuovo file

Postdi Flash30005 » 14/07/15 19:48

ho tenuto conto di questa tua esigenza
'<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia nel foglio DBvendita,e... a seguire la cancellazione dei dati ????????????????


e infatti la macro che ti ho postato riapre il file originale

Non so perché ti dà errore (a me funziona bene), ma visto che hai risolto non approfondisco

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 15/07/15 12:29

Ciao Flash
In riferimento a.....
Faccio una domanda:durante la copia è possibile far apparire un messaggio tipo " attendere copia in corso "


Mi sapresti dare una risposta ?
se " SI " potresti suggerirmi come per favore


Grazie
Ciao
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: excel Creare un backup senza alterare il nuovo file

Postdi Anthony47 » 16/07/15 02:16

Scarica questi due file nella stessa directory:
https://www.dropbox.com/s/yndxvi96pu854 ... 1.frm?dl=0
https://www.dropbox.com/s/fihsfa2tg42h8 ... 1.frx?dl=0

Poi vai sul vba e fai Menu /File /Importa file, e scegli il file UserForm1.frm

Vai nella tua macro; quando vuoi far comparire il messaggio inserisci l'istruzione
Codice: Seleziona tutto
UserForm1.Show vbModeless

Quando vuoi che scompaia:
Codice: Seleziona tutto
Unload UserForm1

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 16/07/15 07:08

OK benissimo così
grazie

Ciao
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 17/07/15 07:32

Ciao Anthony
Scusa se disturbo ancora ,perchè la UserForm mi da solo un riquadro bianco senza il testo e senza immagine?
Quando ho visto la UserForm mi sono chiesto del come fosse stata creata, poichè non avevo l'idea di come creare una userform,e ci sono riuscito a creare la mia UserForm ti allego i file,però....durante la creazione tutto OK si visualizza perfettamente invece quando lancio la macro mi da solo un riquadro del tutto bianco senza immagine e testo.
Allora mi sono chiesto forse sbaglio qualcosa e sono ritornato ad inserire la tua UserForm ma mi da lo stesso riquadro bianco
perchè???? dove sbaglio ?

questi sono i file
http://www.filedropper.com/userform1
http://www.filedropper.com/userform1_1

Ciao
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: excel Creare un backup senza alterare il nuovo file

Postdi Zagor57 » 17/07/15 16:14

Ciao Anthony
Frugando nei vari Topic ho trovato un tuo topic del 28/07/2011 dove trattava lo stesso problema dove tu hai suggerito l'inserimento dopo Show vbModeless
Codice: Seleziona tutto
DoEvents

e sembra sia risolto il problema
PER ORA TUTTO OK
Grazie
Zagor57

Impegno e costanza
ciao da Salvatore
Avatar utente
Zagor57
Utente Junior
 
Post: 70
Iscritto il: 04/05/15 19:35
Località: Massafra TA

Re: excel Creare un backup senza alterare il nuovo file

Postdi Anthony47 » 18/07/15 00:36

Codice: Seleziona tutto
    DoEvents


e sembra sia risolto il problema

Io non avrei saputo fare di meglio :D

Alla prossima...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "excel Creare un backup senza alterare il nuovo file":

Nuovo user
Autore: djbrake1977
Forum: Forum off-topic
Risposte: 0
Nuovo Pc
Autore: Kamui
Forum: Assistenza Hardware
Risposte: 25

Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti