rinominare automaticamente un foglio di lavoro

Anonimo
2012-08-24T11:00:37+00:00

ciao

bentornati a tutti dalle ferie!!!

Ho creato una macro in excel che copia un foglio di lavoro.

vorrei che in automatico, cioè sempre nella macro, i fogli creati fossero rinominati nel seguente modo "prev_xx" dove xx è un progressivo che è all'interno del foglio di lavoro (sempre la stessa cella per tutti i fogli di lavoro). Quindi, se nella cella B3 c'è il numero 15 il foglio copiato dovrà chiamarsi "prev_15".

Si può fare?

Grazie

Lucia

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2012-08-24T13:18:58+00:00

ciao

bentornati a tutti dalle ferie!!!

Ho creato una macro in excel che copia un foglio di lavoro.

vorrei che in automatico, cioè sempre nella macro, i fogli creati fossero rinominati nel seguente modo "prev_xx" dove xx è un progressivo che è all'interno del foglio di lavoro (sempre la stessa cella per tutti i fogli di lavoro). Quindi, se nella cella B3 c'è il numero 15 il foglio copiato dovrà chiamarsi "prev_15".

Si può fare?

 

Grazie

 

Lucia

Non ho capito cosa fa la tua macro.

Hai un file con una macro che fa una copia di un determinato foglio? Quale?

Mettiamo tu abbia un foglio Master e tu voglia una copia di questo foglio rinominata con quanto si trova nella cella B3 del foglio Master.

Questo il codice:

Public Sub m()

    Dim sh As Worksheet

    Dim s As String

    Set sh = ThisWorkbook.Worksheets("Master")

    With sh

        s = Format(.Range("B3").Value, "0#")

        On Error Resume Next

        .Copy Before:=Sheets(1)

    End With

    Application.DisplayAlerts = False

    ActiveSheet.Name = "prev_" & s

    If Err.Number <> 0 Then

        ActiveSheet.Delete

    End If

    Application.DisplayAlerts = True

    Set sh = Nothing

End Sub

E' corretto anche l'eventuale errore di due fogli con lo stesso nome. Se non ho capito, spiegati meglio e per favore posta il tuo codice.

Grazie.

La risposta è stata utile?

0 commenti Nessun commento

2 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2012-08-24T13:59:51+00:00

    mi sono spiegata malissimo, ma tu hai capito benissimo!!

    Funziona!

    Perfetto!

    Grazie, grazie, grazie.

    Bene!

    Grazie a te per il cortese riscontro e buon lavoro.

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2012-08-24T13:32:27+00:00

    mi sono spiegata malissimo, ma tu hai capito benissimo!!

    Funziona!

    Perfetto!

    Grazie, grazie, grazie.

    La risposta è stata utile?

    0 commenti Nessun commento