Moderatori: Anthony47, Flash30005
Sub Salva_Copia()
Percorso = "D:\Temp" ' <<-------- QUI va il tuo percorso sul quale salvare il file
ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub
Sub Salva_Copia()
Percorso = "D:\Temp" 'C:\Users\Salvatore\Desktop\Turni
ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Salva_Copia
End Sub
Sub Salva_Copia()
Percorso = "C:\Users\Salvatore\Desktop\Turni"
ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Impostazioni Settimana").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 3 |
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 14 ospiti