Condividi:        

come estrarre righe da tabella 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

come estrarre righe da tabella excel?

Postdi libraio » 04/01/10 20:47

Buon anno a tutti da un "nuovo entrato"...
Utilizzo Excel 2003.
Dovrei estrarre da una tabella tutte le righe contenenti uno o più dati prescelti e copiarle in altro foglio.
Per essere chiaro unisco una porzione della tabella (nella sua interezza è composta da oltre 2000 righe):
http://rapidshare.de/files/48942843/Anagrafica.xls.html

Avrei necessità che nel foglio 2 della medesima tabella comparissero solo le righe degli editori (in colonna D) che io ho prescelto (es. Abracadabra, Armenia, Bollati Boringhieri). Dovrei ripetere questa operazione più volte, con uno o più editori diversi contenuti nella tabella.

Spero di essere stato chiaro...
Grazie per l'aiuto
Claudio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: come estrarre righe da tabella excel?

Postdi Flash30005 » 05/01/10 03:29

Buon Anno anche a te e... Benvenuto nel Forum

Crea un foglio che chiamerai "ElencoEd" (oppure rinomina il Foglio3)
Nel VBA (Modulo) inserisci l'intero codice che crea due macro e una chiave Pubblica

Codice: Seleziona tutto
Public EditoreS As String
Sub CreaElencoEditori()
Application.ScreenUpdating = False
Worksheets("ElencoEd").Select
Columns("A:A").ClearContents
RE = 1
righe = Worksheets("Foglio1").Range("D2").CurrentRegion.Rows.Count
For RR = 2 To righe
If Worksheets("Foglio1").Cells(RR, 4).Value <> Worksheets("Foglio1").Cells(RR + 1, 4).Value Then
Worksheets("ElencoEd").Cells(RE, 1).Value = Worksheets("Foglio1").Cells(RR, 4).Value
RE = RE + 1
End If
Next RR
Application.ScreenUpdating = True
End Sub

Sub CompilaFoglio2()
Application.ScreenUpdating = False
Worksheets("Foglio2").Select
    Cells.Clear
RE = 1
righe = Worksheets("Foglio1").Range("D2").CurrentRegion.Rows.Count
For RR = 1 To righe
If RR = 1 Then
Sheets("Foglio1").Rows(RR & ":" & RR).Copy Destination:=Sheets("Foglio2").Rows(RE & ":" & RE)
GoTo Salta
End If
If Worksheets("Foglio1").Cells(RR, 4).Value = EditoreS Then
    Sheets("Foglio1").Rows(RR & ":" & RR).Copy Destination:=Sheets("Foglio2").Rows(RE & ":" & RE)
    Application.CutCopyMode = False
Salta:
RE = RE + 1
End If
Next RR
    Columns("A:K").Select
    Columns("A:K").EntireColumn.AutoFit
    Range("A1").Select
Application.ScreenUpdating = True
End Sub


Nel VBA del foglio ElencoEd metterai questo codice
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$1" Then Exit Sub
EditoreS = [D1]
Call CompilaFoglio2
End Sub

In D1 del foglio creerai una convalida dell'area A1:A2000
Nascondi, se vuoi, la Colonna A del foglio "ElencoED"
Crea una forma alla quale assegnerai la macro "CreaElencoEditori"
A questo punto puoi utilizzare il programma
Con il pulsante creato aggiorni l'elenco Editori e ad ogni variazione della cella D1 (tramite l'elenco creato) avrai nel foglio2 tutte le righe del foglio1 appartenenti all'editore da te scelto


Comunque allego il file completo

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: come estrarre righe da tabella excel?

Postdi libraio » 05/01/10 09:07

Grazie Flash,
la tua soluzione è meglio di qunto potessi sperare!
Io ci ho provato a seguire le tue indicazioni, peraltro precise... ma poi ho ripiegato sul download del file.
Lunga vita agli esperti, disponibili come te!
Libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: come estrarre righe da tabella excel?

Postdi libraio » 09/01/10 17:14

Il file creato da Flash funziona alla grande, ma necessiterebbe di una correzione (che non so fare)...
Nel foglio "ElencoEd" gli editori selezionati dal Foglio1 appaiono nel menu a tendina anche più volte, seppure alfabeticamente.
Ho provato ad ordinare i dati nel Foglio 1 per colonna "Editore", ma il problema, anche se ridotto rispetto allla rpova di default, non scompare del tutto.
Sarebbe necessario che gli Editori apparissero nel menu a tendina in modo univoco, anche se non "preordinati" nel foglio1
Per semplificare allego una cartella con un bel carico di dati:
http://rapidshare.de/files/48968605/est ... i.xls.html

E' possibile risolvere la mia richiesta? Qualcuno mi può unire il file corretto? Seppoi Flash legge questo post faccio Bingo!
Siete preziosi, grazie
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: come estrarre righe da tabella excel?

Postdi Flash30005 » 09/01/10 19:07

Controlla se hai fatto veramente Bingo e fammi sapere...
Così divideremo la vincita :lol:

Ciao

P.s.
1) Hai alcune celle Editori con campi "sporchi" (Vedi EINAUDI alla riga 1075 e 1236 ci sono una serie di spazi vuoti alla fine del nome) ho creato una macro "PulisciCampi", eventualmente, quando trovi duplicati utilizzala
2) Il nome degli Editori dovrebbe essere sempre lo stesso non una volta "RAI-ERI" e un'altra "RAI ERI".La macro "PulisciCampi" toglie anche eventuali trattini presenti nel campo (nel tuo caso avevi solo una voce con trattino e due senza)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: come estrarre righe da tabella excel?

Postdi libraio » 10/01/10 19:50

Caro Flash, sono pressoché certo di avere fatto Bingo, ma la tua tempestività nel rispondermi è stata vanificata dal perfido Ming, camuffato da Rapidshare Free User, che da ieri sera non mi permette di scaricare il file per "presunto" overload sul pianeta Mong...
Riproverò domani e ti farò sapere.
Il premio per te (poca cosa, forse) è la mia sincera gratitudine
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: come estrarre righe da tabella excel?

Postdi Flash30005 » 10/01/10 20:45

Mi chiamo Flash non per caso...
e non voglio assoggettarmi ai capricci di Rapid per ricevere il premio anche se trattasi di un grazie soprattutto perché sincero (che non è affatto poca cosa) quindi scarica questo file ;)

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: come estrarre righe da tabella excel?

Postdi libraio » 11/01/10 19:09

Sono finalmente riuscito a scaricare il file: grande Flash!
Non posso che rinnovarti la mia gratidudine per il tempo che mi hai dedicato e per le soluzioni aggiunte (correzioni sintassi editori), che vanno a correggere errori a me sfuggiti (lavoro su oltre 1500 editori e 65000 titoli!...)
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: come estrarre righe da tabella excel?

Postdi Flash30005 » 11/01/10 19:57

libraio ha scritto:(lavoro su oltre 1500 editori e 65000 titoli!...)


65.000 titoli? :eeh:

Tra poco dovrai usare office 2007 o 2010 (office 2003 arriva a 65.536 righe max)

Ciao e Buon Lavoro ;)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: come estrarre righe da tabella excel?

Postdi rmuccini » 13/04/10 16:41

OK. Se invece volessi fare lo stesso lavoro ma produrre n. tabelle (file xls ) diversi invece che n. fogli nello stesso file?
Ciao e grazie

PS: Saluti da un novizio!!!! :oops:
rmuccini
Newbie
 
Post: 1
Iscritto il: 13/04/10 16:39

Re: come estrarre righe da tabella excel?

Postdi Flash30005 » 13/04/10 17:18

Ciao Rmuccini e benvenuto nel Forum

Non ci dovrebbero essere problemi ma è essenziale avere i fogli con i dati origine e le specifiche di output
altrimenti chiunque si dedicasse a trovare la soluzione per te farebbe un lavoro inutile

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "come estrarre righe da tabella excel?":


Chi c’è in linea

Visitano il forum: raimea e 34 ospiti