Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO PER OFFICE 2003

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

MACRO PER OFFICE 2003

Postdi PACIOSISSI » 13/05/11 10:18

Buongiorno a tutti
mi sono appena iscritto in quanto ho bisogno di aiuto per una macro che ho già scritto e che vi sottopongo. In pratica la macro copia il foglio di lavoro e lo incolla in una cartella con il nome: la mia necessità è di avere anche la data!!! E qui sto impazzendo. Grazie a chi vorrà darmi aiuto!!!

Range("A11:G35").Select
Selection.Sort Key1:=Range("F11"), Order1:=xlAscending, Key2:=Range("G11" _
), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Sheets("TOTALE PUNTI").Copy
Range("A8:G36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ChDir "O:\AREA \SCHEDE\MONITORAGGIO \ MAGGIO 2011"
ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

In B8 c'è il nome del foglio - in D8 c'è la data. Grazie ancora
XP + Office 2003 ita
PACIOSISSI
Utente Junior
 
Post: 15
Iscritto il: 13/05/11 10:06

Sponsor
 

Re: MACRO PER OFFICE 2003

Postdi Avatar3 » 13/05/11 15:13

Registra una macro che copia la cella D8 del foglioXXX (descrivi anche il nome del file che contiene questo foglio)
e la incolla nel foglio destinazione.
Il codice generato va inserito prima di questo tuo codice
Codice: Seleziona tutto
'<<<< inserire qui
ChDir "O:\AREA \SCHEDE\MONITORAGGIO \ MAGGIO 2011"
ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close


Se hai problemi posta di nuovo
Ciao
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: MACRO PER OFFICE 2003

Postdi PACIOSISSI » 16/05/11 08:07

Ciao Avatar3, ti ringrazio infinitamente per la risposta. Ma essendo io mooolto autodidatta e poooco esperto non è che mi daresti un aiuto in più scrivendomi la stringa di messaggio da inserire?
Grazie ancora per la gentile collaborazione.
XP + Office 2003 ita
PACIOSISSI
Utente Junior
 
Post: 15
Iscritto il: 13/05/11 10:06

Re: MACRO PER OFFICE 2003

Postdi Anthony47 » 18/05/11 14:46

Prova con
Codice: Seleziona tutto
ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & Format(Range("D8").value,"_yyyy-mm-dd") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

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: MACRO PER OFFICE 2003

Postdi PACIOSISSI » 23/05/11 08:12

Fantastico: funziona perfettamente!!!

Ancora mille grazie a tutti.
XP + Office 2003 ita
PACIOSISSI
Utente Junior
 
Post: 15
Iscritto il: 13/05/11 10:06


Torna a Applicazioni Office Windows


Topic correlati a "MACRO PER OFFICE 2003":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti