Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

aiuto macro!!

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

aiuto macro!!

Postdi brianzolo » 09/11/12 13:24

Ciao ragazzi ho bisogno di aiuto:

ho questa macro con la quale scrivo sul file e salvo con un nome specifico inserito in data cella

Codice: Seleziona tutto
Dim p As Worksheet
    Dim Directory As String
    Dim NomeFile As String
   
    Set p = Worksheets("PANNELLO")
       
    Directory = p.Cells(7, 6).Value
    NomeFile = p.Cells(8, 6).Value


    ChDir Directory
    ActiveWorkbook.SaveAs Filename:=Directory + NomeFile, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
   
End Sub


Mi servirebbe però aggiungere al nome file (oltre che al testo di quella cella)la data ed ora di creazione (che esce in automatico nella cella F2 con la formula "=adesso()" ) ... o anche solo la data.

Per cortesia, sono terra a terra sull'argomento (la macro l'ho trovata su iternet!) ed al mio primo post, qunidi per cortesia siate terra terra a darmi delucidazioni.

Grazie in anticipo
brianzolo
Newbie
 
Post: 3
Iscritto il: 09/11/12 13:10

Sponsor
 

Re: aiuto macro!!

Postdi Anthony47 » 09/11/12 13:26

Ciao brianzolo, benvenuto nel forum.

Prova modificando
NomeFile = p.Cells(8, 6).Value
in
NomeFile = p.Cells(8, 6).Value & "_" & Format(Now(),"yyyy-mm-dd")

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: aiuto macro!!

Postdi brianzolo » 09/11/12 14:53

Grandissimo !!

e se volessi, per avere in automatico un'ordine di data e di nome, avere il nome file con prima di tutto la data??

grazie
brianzolo
Newbie
 
Post: 3
Iscritto il: 09/11/12 13:10

Re: aiuto macro!!

Postdi Anthony47 » 09/11/12 15:07

Codice: Seleziona tutto
NomeFile = Format(Now(),"yyyy-mm-dd") & "_" &  p.Cells(8, 6).Value
...ovviamente

Se vuoi anche l' orario:
Codice: Seleziona tutto
NomeFile = Format(Now(), "yyyy-mm-dd_HH:MM") & "_" & Cells(8, 6).Value


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: aiuto macro!!

Postdi brianzolo » 09/11/12 22:18

Grazie milleeeeeeeee
brianzolo
Newbie
 
Post: 3
Iscritto il: 09/11/12 13:10


Torna a Applicazioni Office Windows


Topic correlati a "aiuto macro!!":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti