Salvare un singolo foglio

Hai un problema con Excel?

Nuova discussione

Salvare un singolo foglio
di trump61 data: 20/04/2014 12:33:57
Buona Pasqua, oggi ho un po' di tempo quindi cerco di migliorare il mio file e rompo le scatole a voi.
Con il codice qui sotto cerco di salvare un singolo foglio assegnandogli come nome, il dato che sta nel foglio TurnoSquadre cella A2 ma mi va in errore creandomi un nuovo file con il nome Cartel1 mi da un errore
"Errore di run-time 1004 impossibile al file" C:UsersgiuliaDesktopFile SMR" i motivi possibili sono:
il file o il percorso non esiste
il file è utilizzato da un altro programma
il nome della cartella che si sta salvando corrisponde ad una cartella già aperta
sapreste dirmi cosa vuol dire perchè a me non sembra che sia incappato in uno dei tre casi
Ciao e grazie

Sub salvafoglio()
Dim X As String
'Salvo il singolo foglio
X = "Turni" & Worksheets("TurnoSquadre").Cells(2, 1).Value
Sheets("Variazioni").Copy
ActiveWorkbook.SaveAs Filename:="C:UsersgiuliaDesktopFile SMR" & X & ".xlsm" _
        , FileFormat:=xlNormal, CreateBackup:=False
ActiveWindow.Close
    
End Sub

di Lucas87 data: 20/04/2014 15:10:27
Ciao
A me funziona...
L'unica cosa diversa è questa

Worksheets("TurnoSquadre").Cells(2, 1).Value

cosa c'è in quella cella?
è un valore fisso, si ricava da una formula, lo scrivi tramite codice?
di trump61 data: 21/04/2014 02:15:54
Ciao, c'è un numero ricavato da una formula
di lepat (utente non iscritto) data: 21/04/2014 10:47:33
il codice è corretto, allega il file
di trump61 data: 21/04/2014 12:17:43
Ciao, ho allegato il file, chiaramente al posto dei numeri e delle lettere ci sono dei nomi. Do una spiegazione
veloce di come funziona i file, all'apertura si apre una finestra di dialogo da dove inserisco la data della settimana che mi interessa sapere i turni di lavoro dei vari componenti del reparto, li trasferisco nel foglio turniwork dove inserisco eventuali turni di straordinario e cambi turni per poi trasferire tutto a foglio variazione, dove già ci sono quelli dei 5 che non fanno e notti per motivi di salute, quelli i copio direttamente dal turno squadre5 gli altri i copio dal turno squadre. qui c'è i primo intoppo non riesco a fare una formattazione condizionata come quella de foglio Turni Squadre, e quindi devo intervenire manualmente, da qui salvo il file o dovrei salvarlo per inviarlo via email al mio capo che approva i turni per la settimana prossima, e lo posso anche stampare. Dei bottoni che sono presenti sula finestra di dialogo per ora sono attivi solo quelli "Turno Squadre" e Turno Squadre5". visto che ci siamo vorrei chiedervi anche se avete un idea per poter inserire la data della settimana senza dover usare formule, così i fie lo potrebbero usare tutti senza fare danni e nn sarei costretto a farlo sempre io.
Ciao e Grazie
di lepat (utente non iscritto) data: 22/04/2014 09:00:08
ho provato la tua macro, oviiamente sostituendo il percorso di salvataggio e funziona perfettamente

Vuoi Approfondire?