Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

unione più file excel

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

Re: unione più file excel

Postdi bismark » 23/09/15 18:31

fatto un altro passo

Worksheets("Database").Range("k" & Ur1, "k" & Urf) = WsF.Name

rimane il problema di ciclare questo comando perché nelle prove che sto facendo ci sono 2 fogli con 3 righe

il risultato che ottengo è 3 righe con scritto foglio1 e 1 sola con la scritta foglio2 ??

sarà l'incapacità e l'ora per adesso mi fermo qui vedo se domani riesco a capire meglio i passaggi
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Sponsor
 

Re: unione più file excel

Postdi Anthony47 » 24/09/15 00:28

E' che UR1 e URf sono calcolati su due fogli diversi...
Io per tagliare la testa al toro userei il calcolo fatto sullo stesso intervallo copiato nella riga prima; del tipo
Codice: Seleziona tutto
Worksheets("Database").Range("k" & Ur1).Resize(WsF.Range(WsF.Cells(1, 1), WsF.Cells(Urf, Col)).Rows.Count,1).Value = WsF.Name

NB: non sono certo che giudar stia copiando dalla riga1; nel caso deve adattare la parte sottolineata in Resize(WsF.Range(WsF.Cells(1, 1), etc etc

Ciao a tutti.
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: unione più file excel

Postdi bismark » 24/09/15 07:08

Grazie Antony per il suggerimento rimane ancora un' imprecisione come si può notare sotto inserisce una riga in più nell'ultima colonna

A B C D E
1 10 100 1000 10000 foglio1
1 10 100 1000 10000 foglio1
1 10 100 1000 10000 foglio1
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2
foglio2

posso corregere questa stringa o faccio un pasticcio

WsF.Cells(Urf - 1, Col))

ho aggiunto -1 dopo urf


GRazie
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: unione più file excel

Postdi giudar » 24/09/15 08:46

Anthony47 ha scritto:E' che UR1 e URf sono calcolati su due fogli diversi...
Io per tagliare la testa al toro userei il calcolo fatto sullo stesso intervallo copiato nella riga prima; del tipo
Codice: Seleziona tutto
Worksheets("Database").Range("k" & Ur1).Resize(WsF.Range(WsF.Cells(1, 1), WsF.Cells(Urf, Col)).Rows.Count,1).Value = WsF.Name

NB: non sono certo che giudar stia copiando dalla riga1; nel caso deve adattare la parte sottolineata in Resize(WsF.Range(WsF.Cells(1, 1), etc etc

Ciao a tutti.


Buon giorno,
con questa soluzione funziona. Inizio a copiare dalla riga 2 perché la prima è l'intestazione.
L'unica cosa che rimane è che mi accoda nmila righe al foglio di unione ripetendo nella colonna K il nome dell'ultimo file copiato.

Grazie
giudar
Newbie
 
Post: 2
Iscritto il: 23/09/15 14:54

Re: unione più file excel

Postdi bismark » 24/09/15 09:07

Strana la condizione perchè invece porvando con 2 fogli e con la modifica segnalata prima a me funziona

A B C D E
1 10 100 1000 10000 foglio1
1 10 100 1000 10000 foglio1
1 10 100 1000 10000 foglio1
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2
2 20 200 2000 20000 foglio2


questo è il risultato che ottengo
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: unione più file excel

Postdi Anthony47 » 24/09/15 11:20

Penso che senza conoscere quale codice usa giudar possiamo dire ben poco, oltre a quanto detto.

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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "unione più file excel":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti