la seguente macro semplicemente salva un file sul desktop come promemoria e vorrei integrare se possibile la seguente miglioria :
nella finestrella della macro dove viene chiesto di inserire il nome del file mi farebbe comodo che venisse proposto il contenuto della cella A4 , ovviamente se poi uno lo vuole cambiare o modificare può sempre utilizzare il tasto backspace sulla tastiera , tutto qui !
" Se poi fosse possibile aggiungere la data sarebbe il massimo , ma mi accontento di quanto scritto sopra ."
esempio , prendiamo oggi , se in cella A4 del foglio di lavoro c'è scritto : Acquisto
sulla finestrella della macro che si apre di default dovrebbe essere scritto :
Acquisto - 3 dicembre 2010
ecco la macro attuale
Sub SALVA()
NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", "Qual è il nome da assegnare al file da salvare ? ", "")
Path = "C:\Documents and Settings\all users\Desktop\Compravendita "
If NomeFile = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xlsm"
End Sub
- Codice: Seleziona tutto
Sub SALVA()
NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", "Qual è il nome da assegnare al file da salvare ? ", "")
Path = "C:\Documents and Settings\all users\Desktop\Compravendita "
If NomeFile = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xlsm"
End Sub
ciao e grazie