unione più file excel

[bismark]

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

[Anthony47]

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.

[bismark]

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

[giudar]

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

[bismark]

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

[Anthony47]

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

Ciao!