Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel - nomina foglio come cella D3

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 - nomina foglio come cella D3

Postdi Sasyjoe » 16/07/12 13:50

Salve gente,
avrei bisogno di una macro che mi fa una cosa del genere:
Rinomina il file con la data che inserisco in cella "D3" + la parola "Turni"

Esempio:
In cella D3 scrivo 16/07/2012

Il file in automatico deve rinominarsi "16/07/2012 Turni".

PS: se vi può essere utile, la cella D3 sta in un foglio nominato: "impostazioni settimana".

Confido in voi.
Grazie.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Sponsor
 

Re: Excel - nomina foglio come cella D3

Postdi Flash30005 » 16/07/12 14:10

Con la macro è possibile rinominare i file come vuoi: da variabile o da valore cella ma
devi rispettare i canoni di nome file/cartella di windows che non accettano caratteri speciali come "/", inoltre è opportuno, come più volte consigliato, utilizzare il formato aaaammgg nel

Adesso occorre sapere se
il file è attivo o no
Nel primo caso qual'è il nome temporaneo assunto?
Nel secondo caso in quale cartella si trova, se nella stessa del file programma-rinomina o no
nel secondo caso, quale?

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 - nomina foglio come cella D3

Postdi Sasyjoe » 16/07/12 16:25

Per file attivo cosa intendi?
E' un file che ho sul Desktop sul quale lavorerò. e Lavorerò sempre sullo stesso per cambiando la data in cella D3 cambia il nome del File. Quindi avrò diciamo un "master" sul desktop tramite il quale lavorerò e cambiando la data in cella D3 salverò i file per ogni settimana.

Esempio:
Inizio a lavorare sul File sul desktop che ha la cella D3 Vuota (o con "x" è uguale)
Ci lavoro oggi, quando ho finito di lavorarci scrivo in Cella D3 la Data di oggi e quando lo salvo quindi è un altro file perchè il nome è diverso dal file originario che avevo sul desktop (Perchè inizialmente in D3 era vuoto o "x" mentre adesso c'è la data di oggi)
E cosi via. Quindi dopo 3 mesi avrò n. file per n. volte che ho lavorato. Ma la base è sempre il file che ho sul desktop.

Spero di essere stato chiaro.
Grazie.
Ciao
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: Excel - nomina foglio come cella D3

Postdi ricky53 » 16/07/12 18:39

Ciao,
prova questo esempio che dovrai adattare in base alle tue necessità
Codice: Seleziona tutto
Sub Salva_Copia()
    Percorso = "D:\Temp" '  <<-------- QUI va il tuo percorso sul quale salvare il file
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel - nomina foglio come cella D3

Postdi Sasyjoe » 17/07/12 10:22

Ciao Ricky53,

o sbaglio qualcosa o salto qualche passaggio!

allora la macro è questa qui:

Codice: Seleziona tutto
Sub Salva_Copia()
    Percorso = "D:\Temp" 'C:\Users\Salvatore\Desktop\Turni
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub


Io entro nel foglio che ho sul desktop. Vado nel foglio "Impostazione settimana" inserisco data in cella D3 e premo salva. (Nota bene: Non faccio salva con nome, scelgo cartella e rinomino, ma premo solo sul tasto salva, quello blu piccolino)

Cosa succede:
Il file si salva nominato così' come era prima. Quindi è come se la macro non funzionasse.

Cosa vorrei io:
Che il nuovo file va in automatico nella cartella turni, nominato con la data che inserisco in cella D3 del foglio "Impostazioni Settimana"

Aspetto tue notizie.
Grazie.
Ciao.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: Excel - nomina foglio come cella D3

Postdi Flash30005 » 17/07/12 11:43

Devi aggiungere una riga di codice in Thisworkbook_BeforeSave (non nel modulo) così:
Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Salva_Copia
End Sub


Inoltre adatta la macro di Ricky inserendo il tuo percorso e il nome del foglio dove c'è la data
credo che così debba andare bene
Codice: Seleziona tutto
Sub Salva_Copia()
    Percorso = "C:\Users\Salvatore\Desktop\Turni"
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Impostazioni Settimana").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub


Ciao

P.s. E' consigliabile non usare il Desktop per archiviare i documenti
utilizza cartelle del disco C, es.: C:\MieiDocs o altro altrimenti utilizza la cartella di sistema Documenti nel percorso standard "C:\Documents and Settings\Nomeutente\Documenti"
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 - nomina foglio come cella D3

Postdi ricky53 » 17/07/12 12:20

Ciao,
BENE, vedo che ti ha già risposto Flash e, applicando quanto lui ti ha scritto, non avrai problemi per ottenere quanto hai descritto.

Solo per chiarezza di tutti (specialmente per altri utenti che leggeranno in futuro quanto scritto):
Io ti avevo dato una base di partenza da adattare e lo avevo scritto perchè non sapevo quali passi volevi fare effettivamente.
Con quanto hai descritto la mia macro non veniva mai eseguita.
Per eseguirla dovei lanciarla tu, dopo averla adattata, tramite il tasto "F5" (esecuzione completa) o "F8" (per eseguirla passo passo).

Spero di essere stato utile.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel - nomina foglio come cella D3

Postdi Sasyjoe » 17/07/12 12:31

Grazie. Appena possibile la provo e vi aggiorno.

Ciao
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: Excel - nomina foglio come cella D3

Postdi Sasyjoe » 17/07/12 13:13

Scusate la domanda per voi banale:

Come faccio a inserire il code nel thisworkbook?

Non lo trovo.

Grazie.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: Excel - nomina foglio come cella D3

Postdi Flash30005 » 17/07/12 15:13

quando ti trovi in ambiente Vba hai gli oggetti e i moduli a sinistra e a destra la finestra dove scrivi il codice.
Tra gli oggetti, quindi a sinistra oltre ai fogli c'è la voce ThisWorkbook, cliccando due volte su questa voce
a destra avrai la possibilità di inserire il codice copiato dal post.
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 - nomina foglio come cella D3

Postdi Sasyjoe » 17/07/12 16:36

PERFETTA!!


Grazie..
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27


Torna a Applicazioni Office Windows


Topic correlati a "Excel - nomina foglio come cella D3":


Chi c’è in linea

Visitano il forum: Anthony47 e 9 ospiti