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.

 

Informazioni domanda


Ultimo aggiornamento febbraio 22, 2018 Visualizzazioni 80 Si applica a:
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

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.