creazione nuovi fogli apertura file
Hai un problema con Excel? 
creazione nuovi fogli apertura file
di tacchino (utente non iscritto) data: 29/03/2014 00:28:40
Salve.
Avrei bisogno che ad ogni apertura della cartella venisse creato un nuovo foglio e che avessi la possibilita di rinominarlo.
Grazie
di Lucas87 data: 29/03/2014 13:23:34
Ciao
Metti il codice in ThisWorkbook
Private Sub Workbook_Open()
n = InputBox("Inserire il nome per il nuovo foglio: ")
If n = "" Then
Worksheets.Add after:=Sheets(Sheets.Count)
Else
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = n
End If
End Sub
|
Vuoi Approfondire?