|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
12-05-2004, 13.31.07 | #1 |
Forum supporter
Registrato: 28-04-2003
Loc.: Svizzera, ma con passaporto UEE (molisano di origine... )
Messaggi: 1.820
|
Codice VBA per Excel - macro salva con nome.
vorrei risolvere un problema. Ho già impostato il seguente codice per una macro che mi salvi un foglio execl, impostando il nome del file prelevandolo dalla cella che mi indica il numero di ordine: Sub Macro1() Dim miofile As String ' cella da cui prelevare il nome del file Range("P13").Select miofile = ActiveCell.Value 'questa è la directory dove deve salvare... ChDir "C:\Documents and Settings\All Users\Documenti" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\All Users\Documenti\" & miofile & ".xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Ora vorrei che il nome del file sia composto dal numero di ordine presente in cella "P13" e il nome dell'intestatario presente in "P11". Come modifico questo codice per permettere che il file abbia come nome questa caratteristica? Grazie a chi risponde!
___________________________________
ma a voi non capita di pensare a Gesù? http://ccegv.altervista.org |
12-05-2004, 14.15.37 | #2 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Con:
Range("P13").Select miofile = ActiveCell.Value rendi attiva la cella alle coordinate P13 ed attribuisci alla variabile miofile il valore della cella attiva. Allo stesso modo, ti sposti sulla cella P11 e modifichi miofile così: miofile=miofile & ActiveCell.Value |
12-05-2004, 14.50.33 | #3 |
Forum supporter
Registrato: 28-04-2003
Loc.: Svizzera, ma con passaporto UEE (molisano di origine... )
Messaggi: 1.820
|
Perfetto funziona.
Ma ora una curiosità, se nella cella in questione é presente un valore espresso in data, questa operazione la macro la rifiuta. Come mai? È risolvibile?
___________________________________
ma a voi non capita di pensare a Gesù? http://ccegv.altervista.org |
12-05-2004, 14.52.34 | #4 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Activecell ha altre proprietà.
Prova Activecell.Text |
12-05-2004, 18.53.13 | #5 |
Forum supporter
Registrato: 28-04-2003
Loc.: Svizzera, ma con passaporto UEE (molisano di origine... )
Messaggi: 1.820
|
Perfetto.
Sei stato molto gentile, spero di poter di nuovo contare su di te. In VBA sono alle prime armi.
___________________________________
ma a voi non capita di pensare a Gesù? http://ccegv.altervista.org |
12-05-2004, 19.40.13 | #6 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Non c'è problema.
Se hai quesiti da porre non farti scrupoli. Qui si è in tanti a poterti dare una mano |
13-05-2004, 00.09.51 | #7 |
Forum supporter
Registrato: 28-04-2003
Loc.: Svizzera, ma con passaporto UEE (molisano di origine... )
Messaggi: 1.820
|
(Y)
___________________________________
ma a voi non capita di pensare a Gesù? http://ccegv.altervista.org |
16-05-2004, 05.16.18 | #8 |
Senior Member
Registrato: 14-04-2004
Loc.: Sky Jerusalem
Messaggi: 232
|
Re: Codice VBA per Excel - macro salva con nome.
Pace a te fratellino mio.
Originariamente inviato da Gabry Buongiorno amici, vorrei risolvere un problema. Ho già impostato il seguente codice per una macro che mi salvi un foglio execl, impostando il nome del file prelevandolo dalla cella che mi indica il numero di ordine: Sub Macro1() Dim miofile As String ' cella da cui prelevare il nome del file Range("P13").Select miofile = ActiveCell.Value Potevi risolverla in: miofile$=cells(13,"p").value 'questa è la directory dove deve salvare... ChDir "C:\Documents and Settings\All Users\Documenti" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\All Users\Documenti\" & miofile & ".xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Ora vorrei che il nome del file sia composto dal numero di ordine presente in cella "P13" e il nome dell'intestatario presente in "P11". Come modifico questo codice per permettere che il file abbia come nome questa caratteristica? nome$=cells(13,"p").value+cells(11,"p").value Grazie a chi risponde! Pace a te e tutti voi.
___________________________________
Apocalisse 3:20 Ecco, io sto alla porta e picchio: se uno ode la mia voce ed apre la porta, io entrerò da lui e cenerò con lui ed egli meco. http://www.pacetv.it - http://www.coopsela.it |
16-05-2004, 16.12.08 | #9 | |
Forum supporter
Registrato: 28-04-2003
Loc.: Svizzera, ma con passaporto UEE (molisano di origine... )
Messaggi: 1.820
|
Re: Re: Codice VBA per Excel - macro salva con nome.
Quota:
Ti ringrazio dei suggerimenti, ma visto che ora mi funziona non mi va di rimettere mano al codice e di incasinare tutto. Come detto in VBA son profano. Sapendo che in famiglia ho un fratello esperto di VBA, sicuramente non mi negherai le tue competenze se avrò bisogno di aiuto! E ti assicuro che presto ti contatterò. Sto mettendo a punto un foglio per la fatturazione che servirà ad una nostra sorellina. Pace e God Bless
___________________________________
ma a voi non capita di pensare a Gesù? http://ccegv.altervista.org |
|
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
EXCEL - Macro per celle selezionate. | riccardonard | Office suite | 4 | 25-11-2008 15.05.35 |
Nome in codice «Ascia di pietra» | Gigi75 | Chiacchiere in libertà | 7 | 25-01-2005 21.50.08 |
[DB Postgres] Errore chiave esterna | GiulioCesare | Programmazione | 0 | 29-10-2004 19.05.51 |
salva con nome... | klaudius | Windows 7/Vista/XP/ 2003 | 1 | 26-03-2004 14.55.40 |
Macro in Excel | papillon | Software applicativo | 6 | 05-09-2003 11.36.21 |