Salva solo foglio attivo con percorso e nome

[robi1112]

perdonami
ho scaricato excel utilities , ma cosa devo fare in concreto?
che tasti devo utilizzare?

[Anthony47]

Non sono un utente delle excel utilities, purtroppo non so aiutarti.
Tuttavia, ritornando al mio codice (parliamo della Sub FoRAnge2) esso e' stato gia' provato sulle celle unite e non manifesta il problema che dici tu. Puoi documentare meglio il fenomeno?

Ciao

[robi1112]

ciao
ora mi da sempre errore la macro.
probabilmente sbaglio qualcosa .
ti allego file di prova
http://www.mediafire.com/download/m2ymy ... OVA(2).xls

[Anthony47]

Perdona, ma quale macro e quale errore?

Ciao

[Flash30005]

Proteggi sempre i tuoi file per fare i test?
Se si qual'è la password per aprirli?

[robi1112]

ciao
la macro e' questa:
Sub FoRAnge2()
Dim mySorg As String, myRange As String, myDir As String, myFile As String
'
'>>> PARAMETRI:
mySorg = "gennaio" '<< Il foglio da copiare
myRange = "A3:AJ43" '<< L'area da copiare
myDir = "C:\Users\Utente\Desktop\turni\" '<< La directory di salvataggio
'
Sheets(mySorg).Select
Workbooks.Add
ThisWorkbook.Sheets(mySorg).Range(myRange).Copy Destination:=Range(myRange).Cells(1, 1)
'
myFile = myDir & "\" & Range("a4").Value & Range("af4").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=myFile, _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:=""
ActiveWorkbook.Close
MsgBox ("Salvato file " & myFile & vbCrLf & "nella directory " & myDir)
End Sub
l'errore e': errore di run-time 1004.errore definito dall'applicazione o dall'oggetto.

per flash30005.
password per aprire il file: robi1112
password per visualizzare il codice:ROBI2224

[Anthony47]

Quindi parli della versione caricata in Modulo2 (le altre versioni caricate nei moduli di foglio non garantisco che funzioneranno; la gestione dei riferimenti per codice in questi fogli e' particolare)
Forse perche' GENNAIO!B2 e D2 sono vuoti (nel file pubblicato), e quindi il nome file rimane vuoto?

Ciao

[robi1112]

ho provato sia con la versione in modulo 2 (modificando i parametri alle mie esigenze) sia quelle caricate nei moduli di ogni foglio.
sto' utilizzando quella che ho postato sopra,mettendolo nel modulo2

[Anthony47]

Quella macro salva il foglio impostato usando B2 e D2 per calcolare il nome file; se B2 e D2 sono vuoti, come nel caso del foglio Gennaio (le altre 10 versioni della stassa macro non le ho guardate) il salvataggio non puo' avvenire, e quella macro lo dice con il run time error.
Sei sicuro che tu vuoi ottenere quello che la macro e' stata progettata per fare?

Ciao

[robi1112]

nella macro che sto usando ho modificato le celle in a4 e af4 come ti ho postato sopra.
vorrei poter salvare ogniuno dei 12 fogli mensili in una cartella denominata "turni" che ho sul desktop.
vorrei che si potesse salvare solo in range a3:af4 di ogni foglio.
se ci si arriva con qualche altra macro , sono contento

[robi1112]

scusate
il range e' A3:AJ43

[robi1112]

ho provato ad utilizzare la macro subsalva2 di flash30005 e funziona.
in quella macro e' possibile inserire il salvataggio per uno specifico range (a3:aj43)?
grazie

[Flash30005]

Prova questa

Codice: Seleziona tutto

Sub salva3()

Directory = "C:\Temp\"
ThisFile = [B2] & [D2] & ".xls"
If ThisFile = ".xls" Then
MsgBox "Impossibile dare il nome al file (B2 e D2 vuoti)"
Exit Sub
End If
ActiveSheet.Copy

For Each Pict In ActiveSheet.Shapes
If Left(Pict.Name, 6) = "Button" Then
ActiveSheet.Shapes(Pict.Name).Cut
End If
Next Pict
    Columns("AK:BE").Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile

'<<<< eliminare le righe che seguono se non occorrono
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & (ThisFile), vbInformation
End Sub

Cambia il percorso del file da salvare ed evita di usare il Desktop come zona archiviazione file
ciao

[robi1112]

e' perfetta.....grazie mille a tutti e due per il tempo che mi avete dedicato.
da adesso vi segiuro' sempre (moglie permettendo)
ciao

[robi1112]

chiedo se e' possibile correggere un piccolo difetto:
siccome il file salvato lo devo mandare in direzione e non vorrei che si visualizzassero le formule,non e' possibile salvarlo con la protezione?

[Flash30005]

Se vuoi puoi eliminare le formule e lasciare solo i valori effettivi
così dai direttamente il risultato e non la formula
per fare questo la funzione incolla va cambiata con incolla speciale solo valori

ciao

[robi1112]

ma la funzione incolla speciale solo valori la devo utilizzare sul foglio che mi verra' salvato?

[Flash30005]

Si,
in questa maniera

Codice: Seleziona tutto

Sub salva4()

Directory = "C:\Temp\"
ThisFile = [B2] & [D2] & ".xls"
If ThisFile = ".xls" Then
MsgBox "Impossibile dare il nome al file (B2 e D2 vuoti)"
Exit Sub
End If
ActiveSheet.Copy
    Cells.Copy  '<<<<< riga aggiunta
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  '<<< riga aggiunta


For Each Pict In ActiveSheet.Shapes
If Left(Pict.Name, 6) = "Button" Then
ActiveSheet.Shapes(Pict.Name).Cut
End If
Next Pict
    Columns("AK:BE").Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile

'<<<< eliminare le righe che seguono se non occorrono
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & Directory & ThisFile, vbInformation
End Sub



Nelle celle avrai solo i valori

ciao

[robi1112]

grazie mille||||
ciao

[angelo72]

Buonasera a tutti.Non sapendo se aprire un nuovo post, aggiungo qui.
Avrei bisogno di un aiuto. Questa formula funziona bene, vorrei modificare il Range da dove prende il nome il File...
Faccio un es. nella cella B3 ho questa istruzione che mi restituisce una data: =Programmazione_Turni!B2
la data che mi restituisce è: ottobre 2013.
Se io nel Range vado a specificare questa cella B3, mi da errore nel vba.
Vi chiedo è possibile far prendere il nome al file che salvo, se in una cella c'è questa istruzione: =Programmazione:Turni!B2 ?
questa è la formula che Anthony ha elaborato per me.

Sub Pulsante4_Click()
Dim mySorg As String, myRange As String, myDir As String, myFile As String
'
'>>> PARAMETRI:
mySorg = "servizio_mensile" '<< Il foglio da copiare
myRange = "a1:N2750" '<< L'area da copiare
myDir = "C:\users\camel\desktop\programma_turni\Fogli_di_Servizio" '<< La directory di salvataggio
'
Sheets(mySorg).Select
Workbooks.Add
ThisWorkbook.Sheets(mySorg).Range(myRange).Copy Destination:=Range(myRange).Cells(1, 1)
'
myFile = myDir & "\" & Range("a1").Value & Range("b1").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=myFile, _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:=""
ActiveWorkbook.Close
MsgBox ("Salvato file in: " & myFile & vbCrLf & "nella directory " & myDir) & ("file salvato")

End Sub
Grazie a tutti