Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 25-12-2014, 14.54.43   #1
web
Senior Member
 
Registrato: 19-08-2001
Loc.: FIRENZE
Messaggi: 457
web promette bene
Unire in unico foglio

Ho un file Excel costituito da più di 100 fogli e vorrei avere un foglio unico che unisce tutti i fogli che compongono questo file
Tutti questi fogli hanno tutti le stesse colonne e cambiano solo i dati
Come posso fare?
Non posso per ogni foglio fare un copia ed incolla ed aggiungerlo sul primo foglio
Per esempio ho un listino composto da 100 pagine e vorrei creare un foglio iniziale unico
Grazie per l'aiuto
Web
web non è collegato   Rispondi citando
Vecchio 25-12-2014, 20.32.02   #2
RunDLL
Gold Member
 
L'avatar di RunDLL
 
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
RunDLL è nella strada per il successo
Rif: Unire in unico foglio

Ma così ti viene un fogliONE.
___________________________________

Ogni computer ha la sua storia.
Dermatite Seborroica? www.dermatiteseborroica.info
RunDLL non è collegato   Rispondi citando
Vecchio 26-12-2014, 16.09.26   #3
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Unire in unico foglio

non ho capito se l'operazione che descrivi la devi fare 1 volta sola oppure se è una ricorrenza. dovresti descrivere meglio la situazione.

come è strutturato adesso il tuo listino prezzi, cosa ti impedisce di unificarlo in un unico foglio? magari posta un'immagine di come è
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Vecchio 26-12-2014, 16.57.35   #4
RunDLL
Gold Member
 
L'avatar di RunDLL
 
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
RunDLL è nella strada per il successo
Rif: Unire in unico foglio

Se ho capito bene ogni foglio è uguale all'altro nella struttura (colonne) cambiano solo i dati inseriti. Lui vorrebbe che i fogli vengano uniti con i dati tutti di seguito in un unico foglio solo che per farlo con copia e incolla, per 100 fogli, diventa una cosa molto macchinosa. Se ho capito.
___________________________________

Ogni computer ha la sua storia.
Dermatite Seborroica? www.dermatiteseborroica.info
RunDLL non è collegato   Rispondi citando
Vecchio 26-12-2014, 20.49.31   #5
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Unire in unico foglio

si può fare una macro, ma come hai già detto tu il file diventa un mattone.
comunque più tardi gli metto il codice.
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Vecchio 26-12-2014, 21.52.59   #6
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Unire in unico foglio

copia in un modulo questo codice. io ho preso come intervallo A2:H150, lo puoi cambiare come vuoi

Codice:
Sub fondi_fogli()

Dim fgl As Worksheet, col As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

With Worksheets("Dati")
.Select
For Each fgl In Worksheets
If fgl.Name <> "Dati" Then
fgl.Range("A2:H150").Copy
col = .UsedRange.Columns.Count + 1
.Cells(2, col).Select
ActiveSheet.Paste

'fgl.Delete  'togli il rem a questa istruzione
'se vuoi cancellare i fogli da dove hai prelevato i dati

End If
Next
End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("Dati").Range("A2").Select

End Sub
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Vecchio 28-12-2014, 20.40.15   #7
web
Senior Member
 
Registrato: 19-08-2001
Loc.: FIRENZE
Messaggi: 457
web promette bene
Rif: Unire in unico foglio

Grazie per quanto consigliato, purtroppo le pagine sono tante e giusto con una macro posso realizzare un foglio unico.
web
web non è collegato   Rispondi citando
Vecchio 28-12-2014, 22.23.40   #8
RunDLL
Gold Member
 
L'avatar di RunDLL
 
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
RunDLL è nella strada per il successo
Rif: Unire in unico foglio

Hai provato la macro che ti ha scritto Alexsandra?
___________________________________

Ogni computer ha la sua storia.
Dermatite Seborroica? www.dermatiteseborroica.info
RunDLL non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Ciclo For su un foglio diverso da quello attivo perla0279 Office suite 1 04-05-2012 00.27.50
[Guida] Crea e invia file PDF da Excel con VBA Alexsandra Guide 0 18-02-2012 16.47.31
stampare 3 righe in excel su unico foglio... cippico Office suite 20 04-03-2005 09.01.44
Riasumere dati in unico foglio in Excel Gabry Software applicativo 6 21-02-2004 02.19.35
Una partita a minigolf carletto Segnalazioni Web 55 09-12-2003 04.00.47

Orario GMT +2. Ora sono le: 16.32.36.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.