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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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: Marius44 e 49 ospiti