Ciao Miri2015, benvenuto nel forum.
Con un po' piu' di applicazione avresti certamente "registrato" la macro che serve per copiare Valori e Formati; in alternativa questa gia' fatta:
- Codice: Seleziona tutto
Sub COPYVAL()
Dim myCF, myCFN
'
'Chiedi Nome con cui salvare:
With Application.FileDialog(msoFileDialogSaveAs)
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessuna voce selezionata, operazione abortita")
Exit Sub
Else
myCF = .SelectedItems.Item(1)
End If
End With
'
'Salva Copia con Nome
ActiveWorkbook.SaveCopyAs Filename:=myCF
Workbooks.Open myCF
myCFN = Split(myCF, "\", , vbTextCompare)
If ActiveWorkbook.Name = myCFN(UBound(myCFN, 1)) Then
'Incolla /valori sulla copia
For I = 1 To Sheets.Count
Sheets(I).Select
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Next I
ActiveWorkbook.Close True
End If
End Sub
Inseriscila nel file originale, poi quando vuoi fare l'operazione esegui la macro COPYVAL (da Excel, Alt-F8; scegli COPYVAL dall'elenco di macro disponibili, premi Esegui).
La macro ti chiedera' con che nome, nuovo o esistente, vuoi salvare; creera' una copia del file con quel nome; poi un foglio alla volta fara' "CopiaValori" in sostituzione del contenuto corrente, Salva e Chiude la copia.
Rimane quindi attivo il file originale.
Prova e fai sapere; ma se non risolvi allora una copia realistica del file di cui parli aiutera' ad aiutarti; per come pubblicarlo vedi
viewtopic.php?f=26&t=103893&p=605487#p605487Ciao