Condividi:        

[EXCEL] macro copia incolla in foglio altra cartella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL] macro copia incolla in foglio altra cartella

Postdi belsav » 16/12/07 14:52

In un foglio (1) di exel inserisco vari dati; nel foglio2 (una modello di scheda) vengono riportati i calcoli, ed uso questo foglio per fare la stampa.
a questo punto mi nasce l'esigenza di poter salvare questo foglio (2) in modo da avere sempre una copia. con il registratore di macro ne ho creata una, che in parte funziona, nel senso che mi ricpoia in foglio che mi interessa e me lo salva. Problema: se vado a cambiare dei valori sul foglio(1) iniziale, e lancio la macro, lei fa il suo dovere nel senso che mi aggiunge un altro foglio e mi ricopia il tutto, ma mi cambia i valori anche nel foglio salvato precedentemente. quindi la mia esigenza è che salvare il foglio, ma alla compilazione della nuova scheda la prima rimanga con i valori già impostati, e la nuova scheda venga salvata con gli altri valori (Fosrse non sono stato moolto chiaro nell'esposizione, comunque allego quel che ho fatto:
Sub Macro1()
'
'

'
Sheets("Scheda liquidazione").Select
Cells.Select
Selection.Copy
ChDir "C:\Documents and Settings\Nino\Desktop\Nuova cartella\prospetti salvati"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Nino\Desktop\Nuova cartella\prospetti salvati\prospetti.xls"
Sheets("Foglio4").Select
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Foglio2").Select
End Sub
grazie dell'immancabile aiuto.
Saverio
saverio
belsav
Utente Junior
 
Post: 45
Iscritto il: 20/10/06 22:17
Località: Bagheria

Sponsor
 

Postdi Anthony47 » 16/12/07 23:46

Ciao,
invece di ActiveSheet.Paste usa PasteSpecial:
Codice: Seleziona tutto
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


(togli 1 e metti queste 3, con cui fai il copia dei "valori" e dei "formati")

Fai sapere se ok; ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi belsav » 17/12/07 18:39

Come sempre tutto perfetto.
grazie di cuore
saverio
saverio
belsav
Utente Junior
 
Post: 45
Iscritto il: 20/10/06 22:17
Località: Bagheria


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] macro copia incolla in foglio altra cartella":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti