Macro crea nuovo foglio di lavoro

[nicola_na78]

Ciao Amici, avrei necessità del vostro preziosissimo aiuto per risolvere un problema.
Dovrei creare un pulsante che quando viene premuto mi crea un nuovo foglio di lavoro, poi si deve aprire una finesta che mi permetta di rinominare a mio piacimento il nuovo foglio creato.
Grazie buon serata

[Flash30005]

Puoi inserire in un modulo questa macro

Codice: Seleziona tutto

Sub CreaFogliN()
NomeF = (InputBox("Inserisci il nome del nuovo Foglio"))
Worksheets.Add.Name = NomeF
Sheets(NomeF).Move After:=Worksheets(Worksheets.Count)  '<<<< aggiunta riga per far posizionare il nuovo foglio alla fine
End Sub

Puoi richiamarla con pulsante creato sul foglio o, meglio, con tasti di scelta rapida (es.: Ctrl+m) che trovi nelle opzioni della macro
I tasti di scelta rapida funzionano in tutta la cartella e in qualsiasi foglio tu ti trovassi, mentre il pulsante lo hai (normalmente) su un foglio

ciao

EDIT ore 17:15 - aggiunta riga alla macro, vedi nota

[nicola_na78]

Grazie Flash30005 è perfetta.

Buona serata