Jeff vorrebbe creare una copia del suo foglio di lavoro “principale”, richiedere un nome per il nuovo foglio di lavoro e spostarlo alla fine delle schede del foglio di lavoro, il tutto da una macro. Ha provato a registrare una macro per farlo, ma non ha funzionato.

Il fatto che la macro registrata non abbia funzionato non è particolarmente sorprendente.

Quando registri una macro, dici a Excel di registrare i passaggi che esegui.

Quei passaggi (in questo caso) includevano la denominazione del foglio di lavoro, in modo che il nome fosse registrato nella macro. Prova a eseguire la macro una seconda volta e riceverai un errore perché il foglio di lavoro che stai cercando di creare nel secondo passaggio è già stato creato nel primo.

In questo caso devi scrivere una macro manualmente. Puoi iniziare con la registrazione del processo e otterrai un codice come il seguente:

Sub Macro1()

Sheets("Master").Select     Sheets("Master").Copy After:=Sheets(3)

Sheets("Master (2)").Select     Sheets("Master (2)").Name = "NewMaster"

End Sub

Si noti che il codice inserisce il foglio di lavoro (dopo il terzo foglio) e quindi lo denomina sempre la stessa cosa. C’è molto da cambiare qui. Quello che vuoi fare è cambiarlo in qualcosa di simile al seguente:

Sub CopyRename()

Dim sName As String     Dim wks As Worksheet     Worksheets("Master").Copy after:=Sheets(Worksheets.Count)

Set wks = ActiveSheet     Do While sName <> wks.Name         sName = Application.InputBox _           (Prompt:="Enter new worksheet name")

On Error Resume Next         wks.Name = sName         On Error GoTo 0     Loop     Set wks = Nothing End Sub

Questa macro copierà il foglio di lavoro denominato “Master” alla fine dell’elenco di fogli (indipendentemente dal numero di fogli presenti nella cartella di lavoro) e continuerà a richiedere un nuovo nome di foglio di lavoro finché non viene immesso un nome valido.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11929) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: