Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO COPIA PIU FOGLI

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

MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 01/08/13 16:27

Buona sera agli amici del forum cerco una unica macro che mi copia o trasferisce tutti i dati dei fogli 1,2,3,4 in una nuova cartella excel .

SALUTI
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Sponsor
 

Re: MACRO COPIA PIU FOGLI

Postdi Flash30005 » 01/08/13 23:25

Ma i dati li vuoi ugualmente distribuiti su quattro fogli oppure su unico foglio della nuova cartella?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 01/08/13 23:34

Ciao Flash30005 i fogli su tuti e 4 non su 1 a dimenticavo se possibilmente in vece di aprirlo in automatico la nuova cartella con la macro ma o la nuova cartella con un nome e possibile farlo?
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Re: MACRO COPIA PIU FOGLI

Postdi Flash30005 » 01/08/13 23:47

Non capisco quale è il problema
hai una cartella di lavoro con 4 fogli avente i dati
vorresti una macro che ti copia questi fogli in una nuova cartella
ma non fai prima a salvare quella cartella con un altro nome?
Oppure, credo che, tu non abbia detto proprio tutto di ciò che ti occorre :roll:

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 01/08/13 23:54

Va bene vole solo capire una volta creata la macro copia i dati in automatico su una nuova cartella poi chiaramente dopo dovrei salvarla con un nome se invece do un nome prima e poi i dati vengono copiati in tale cartella, Flash30005 io voglio capire come funzionano queste cose in seguito posso farle da solo o modificarle, comunque iniziamo a creare la macro eventualmente in seguito ti propongo le modifiche .
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Re: MACRO COPIA PIU FOGLI

Postdi Anthony47 » 01/08/13 23:56

Immagino che non vuoi fare un semplice "Salva con nome", ma cercare di recuperare un file incasinato.
Se e' questo il tuo caso, una macro come questa crea una nuova cartella di lavoro e vi copia dati e formule prelevadoli dalla cartella di lavoro "attiva" all' inizio della macro:
Codice: Seleziona tutto
Sub wbReplica()
Dim StWb As String, NwWb As String
Dim I As Long, URAdr As String
'
StWb = ActiveWorkbook.Name
Application.SheetsInNewWorkbook = 1
Workbooks.Add
NwWb = ActiveWorkbook.Name
Windows(StWb).Activate
For I = 1 To ActiveWorkbook.Sheets.Count
    Sheets(I).UsedRange.Copy
    URAdr = Sheets(I).UsedRange.Cells(1, 1).Address
    Workbooks(NwWb).Sheets(I).Range(URAdr).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks(NwWb).Sheets(I).Name = Workbooks(StWb).Sheets(I).Name
    Workbooks(NwWb).Sheets.Add after:=Sheets(I)
Next I
MsgBox ("Creato workbook " & NwWb & vbCrLf & "Controllare esito e salvare il nuovo file")
End Sub

E se quello fatto non e' quello che chiedevi allora spiega ancora con maggiore dovizia.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 02/08/13 00:06

Ciao Anthony47 la macro funziona chiaramente a trasferito i dati in un nuova cartella1 poi da salvare con un nome. invece vorrei che i dati vengono copiati in una nuova cartella creata da mecon un nome, esempio il file si chiama Tris questi dati devono essere copiati nella cartella chiamata pronosticotris,chiaro
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Re: MACRO COPIA PIU FOGLI

Postdi Anthony47 » 02/08/13 00:29

Non capisco la differenza tra quello che fa la macro (creare una cartella di lavoro e lasciare a te il compito di salvarlo col nome che preferisci) rispetto a quello che chiedi (partire da un file da te creato e copiarci il contenuto del file di partenza). A meno che il file da te creato contenga gia' alcuni fogli di dati a cui gli altri debbano essere "accodati"; ma in questo caso l' approccio della macro sara' diverso dal semplice trasbordo 1-a-1.
Ti chiedo pertanto un supplemento di descrizione.

Cio
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 02/08/13 00:31

Esatto Anthony47 debbano essere "accodati".

Saluti
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Re: MACRO COPIA PIU FOGLI

Postdi Anthony47 » 03/08/13 00:23

Questa macro ti consente di scegliere su quale workbook tra quelli aperti accodare i fogli provenienti dal workbook attivo al lancio della macro:
Codice: Seleziona tutto
Sub WsAccoda()
Dim StWb As String, NwWb As String, Wb As Workbook, WbNames As String
Dim myWb As Long, I As Long

StWb = ActiveWorkbook.Name
I = 1
For Each Wb In Workbooks
    WbNames = WbNames & I & ": " & Wb.Name & vbCrLf
    I = I + 1
Next Wb
myWb = Application.InputBox("Scegliere il NUMERO del file su cui accodare" & vbCrLf & WbNames, "Scegli target file", , , , , , 1)
If myWb = False Or myWb > Workbooks.Count Then Exit Sub
NwWb = Workbooks(myWb).Name
For I = 1 To Workbooks(StWb).Worksheets.Count
    Workbooks(StWb).Sheets(I).Copy After:=Workbooks(NwWb).Sheets(Workbooks(NwWb).Worksheets.Count)
Next I
MsgBox ("Trasferiti fogli da > " & StWb & " a > " & NwWb & vbCrLf & "Verificare il risultato e SALVARE " & NwWb)
Workbooks(StWb).Activate
End Sub


Come detto, il file di uscita deve essere gia' aperto, mentre il file ATTIVO all' avvio della macro e' quello di cui si copieranno i fogli che verranno accodati al file di uscita.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 03/08/13 00:43

Ti ringrazio Anthony chiaramente sto cercando di fare tutte le prove possibile o notato che che mi copia piu fogli tipo foglio1 poi copia foglio1(1) e normale? comunque va bene.
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20

Re: MACRO COPIA PIU FOGLI

Postdi Anthony47 » 03/08/13 01:02

Se il foglio Destinatario contiene un suo Foglio1 e idem il foglio di Origine, allora Foglio1 da Origine sara' inserito in Destinatario come Foglio1(2), perche' due "Foglio1" non possono esistere nella stessa cartella di lavoro.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO COPIA PIU FOGLI

Postdi Francesco6918 » 03/08/13 01:07

Va bene Anthony che poi il la nuova cartella dove vengono copiati i dati e vuota o solo impostato la larghezza e l altezza delle celle e il colore per non perdere tempo mi serviva la macro, tutto ok.

Saluti
Francesco6918
Utente Senior
 
Post: 147
Iscritto il: 04/03/11 11:20


Torna a Applicazioni Office Windows


Topic correlati a "MACRO COPIA PIU FOGLI":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti