Codice VBA per Excel - macro salva con nome.
 

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
'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!

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

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?

Activecell ha altre proprietà.
Prova Activecell.Text

Perfetto.

Sei stato molto gentile, spero di poter di nuovo contare su di te.

In VBA sono alle prime armi.

Non c'è problema.
Se hai quesiti da porre non farti scrupoli.
Qui si è in tanti a poterti dare una mano ;)

(Y) :)

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.

Re: Re: Codice VBA per Excel - macro salva con nome.
 

Bhé.. un fratellino di 40 anni.

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