Moderatori: Anthony47, Flash30005
Sub POnTime()
If Sheets("Foglio1").Range("Z1")<>"" then '<< Vedi testo
Application.OnTime EarliestTime:= Sheets("Foglio1").Range("Z1").value, Procedure:="Salvaf", Schedule:=False
End If
'
ReTime:
Sched = InputBox("A che ora vuoi salvare il foglio? " & vbCrLf & _
"(formato hh:mm, es 17:35) Premi Annulla per annullare", , "17:35")
If Sched = "" Then Exit Sub
If Not IsDate(Sched) Then GoTo ReTime
Sheets("Foglio1").Range("Z1").value= TimeValue(Sched)
Application.OnTime TimeValue(Sched), "Salvaf"
End Sub
Sub Salvaf()
ThisWorkbook.Sheets("Foglio1").Range("Z1").ClearContents '<< Vedi testo
' ThisWorkbook.Sheets("Foglio1").Copy '<< Il Vero nome del "foglio" da salvare
ThisWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "PIPPO_" & Format(Now(), "yymmdd_hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'ActiveWorkbook.Close
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Importare anche gli url con selenium Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 65 ospiti