Salvare intero foglio

Ciao a tutti.

Devo fare la copia di un intero foglio.

Uso il seguente codice:

    Sheets("Rit_A").Select
    Sheets("Rit_A").Copy Before:=Sheets(1)

funziona benissimo ma, vorrei che  non mi copiasse anche il codice.

 

Potete dirmi come fare.

Grazie.

Ciao.

Nunzio.

|
Risposta
Risposta

Ciao a tutti.

Devo fare la copia di un intero foglio.

Uso il seguente codice:

    Sheets("Rit_A").Select
    Sheets("Rit_A").Copy Before:=Sheets(1)

funziona benissimo ma, vorrei che  non mi copiasse anche il codice.

<cut>


Copia incolla solo il contenuto in un nuovo foglio, ad esempio:

 

Public Sub m()

    Dim sh As Worksheet
    Dim shNew As Worksheet
   
    With ThisWorkbook
        Set sh = .Worksheets("Foglio1")
        Set shNew = .Worksheets.Add
    End With
   
    With sh
        .UsedRange.Copy
        shNew.Range("A1").PasteSpecial
    End With
   
    Application.CutCopyMode = False
   
    Set sh = Nothing
    Set shNew = Nothing
   
End Sub

 

Vedi il file utilizzato per l'esempio qui:

http://www.maurogsc.eu/esempiforum13/copiaincollavalori.zip

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 28 gennaio 2021 86 visualizzazioni Si applica a: