Macro Salva con Nome

Hai un problema con Excel?

Nuova discussione

Macro Salva con Nome
di Minuccio76 (utente non iscritto) data: 21/01/2014 12:49:46
in un file excel ho due fogli di lavoro: ”ordini di acquisto” e ”richieste di acquisto”. In ognuno dei due fogli ho creato un pulsante con associata una macro per salvare il solo foglio di lavoro, ognuno in una cartella diversa: l’ordine di acquisto nella cartella OdA; la richiesta di acquisto nella cartella RdA.
Il problema è che, mentre la macro per gli ordini di acquisto funziona correttamente, la macro per le richieste di acquisto salva nella stessa cartella degli ordini, qualunque percorso io indichi per DirectoryRdA.
Grazie per l’aiuto.

Queste sono le macro (la seconda è quella che funziona male):

Sub SalvaconnomeOdA()
Dim Nomefile
Dim DirectoryOdA As String
Nomefile = Range(”$L$1”) & ” ” & Range(”$M$1”) & ” ” & Range(”$N$1”) & ” ” & Range(”$O$1”) & ” ” & Range(”$P$1”) & ” ” & Range(”$Q$1”) & ” ” & Range(”$R$1”) & ”.xls”
DirectoryOdA = ”\NAS-ATS2shareACQUISTIAcquisti CMOdAOdA 2014”
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Nomefile
ActiveWorkbook.Close
End Sub

Sub SalvaconnomeRDA()
Dim Nomefile
Dim DirectoryRdA As String
Nomefile = Range(”$K$1”) & ” ” & Range(”$L$1”) & ” ” & Range(”$M$1”) & ” ” & Range(”$N$1”) & ” ” & Range(”$O$1”) & ” ” & Range(”$P$1”) & ” ” & Range(”$Q$1”) & ”.xls”
DirectoryRdA = ”\NAS-ATS2shareACQUISTIAcquisti CMRdARdA 2014”
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Nomefile
ActiveWorkbook.Close
End Sub

di scossa (utente non iscritto) data: 21/01/2014 14:24:00
cit.: "Il problema è che, mentre la macro per gli ordini di acquisto funziona correttamente ..."

per puro caso

cit.: ", la macro per le richieste di acquisto salva nella stessa cartella degli ordini, qualunque percorso io indichi per DirectoryRdA."

giustamente

Scherzi a parte: valorizzi le due variabili ma non le utilizzi da nesuna parte; potresti anche eliminare le due righe di codice
DirectoryOdA = ”\NAS-ATS2shareACQUISTIAcquisti CMOdAOdA 2014"
DirectoryRdA = ”\NAS-ATS2shareACQUISTIAcquisti CMRdARdA 2014"

ed avresti lo stesso comportamento.

Quindi per risolvere devi ....... (dai che la soluzione la ora trovi)

Vuoi Approfondire?