Condividi:        

Salva solo foglio attivo con percorso e nome

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 11/11/13 19:22

perdonami
ho scaricato excel utilities , ma cosa devo fare in concreto?
che tasti devo utilizzare?
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Sponsor
 

Re: Salva solo foglio attivo con percorso e nome

Postdi Anthony47 » 11/11/13 23:32

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 12/11/13 09:25

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
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Anthony47 » 13/11/13 00:03

Perdona, ma quale macro e quale errore?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salva solo foglio attivo con percorso e nome

Postdi Flash30005 » 13/11/13 03:30

Proteggi sempre i tuoi file per fare i test?
Se si qual'è la password per aprirli?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 13/11/13 09:06

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
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Anthony47 » 13/11/13 09:41

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 13/11/13 09:58

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
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Anthony47 » 13/11/13 23:41

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 13/11/13 23:46

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
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 14/11/13 04:32

scusate
il range e' A3:AJ43
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 14/11/13 12:54

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
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Flash30005 » 14/11/13 13:37

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 14/11/13 13:54

e' perfetta.....grazie mille a tutti e due per il tempo che mi avete dedicato.
da adesso vi segiuro' sempre (moglie permettendo)
ciao
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 14/11/13 15:38

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?
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Flash30005 » 14/11/13 23:54

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 15/11/13 13:44

ma la funzione incolla speciale solo valori la devo utilizzare sul foglio che mi verra' salvato?
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi Flash30005 » 16/11/13 02:26

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Salva solo foglio attivo con percorso e nome

Postdi robi1112 » 16/11/13 18:31

grazie mille||||
ciao
robi1112
Utente Junior
 
Post: 45
Iscritto il: 29/10/13 17:05

Re: Salva solo foglio attivo con percorso e nome

Postdi angelo72 » 19/11/13 19:19

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
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Salva solo foglio attivo con percorso e nome":


Chi c’è in linea

Visitano il forum: Nessuno e 85 ospiti