Condividi:        

vorrei estrarre dati univoci da foglio Excel 2003

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

vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 10/07/10 16:30

Ben ritrovati!
Cerco la preziosa collaborazione di qualcuno per risolvere il seguente problema:
in un foglio Excel 2003 ho un elenco di titoli diversi assegnati a nominativi diversi, alcuni dei quali disponibili (segnalati in colonna con "1"), altri non ancora disponibili (segnalati in colonna con "0").
Avrei necessità di estrarre in altro foglio del medesimo lavoro, in foma univoca, i nominativi che hanno tutti i titoli disponibili.
Come posso agire?
Grazie
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi Anthony47 » 10/07/10 23:06

Imposti il filtro automatico sulla colonna che contiene 1/0, poi filtri per valore 1, copi le colonne che ti interessano e le incolli nell' altro foglio.
Se e' una operazione da eseguire spesso, puoi registrare una macro mentre esegui queste operazioni, poi ti crei un Pulsante (trivi questa forma nella barra degli strumenti Moduli) e assegni la macro al pulsante; in questo modo ti bastera' premere il pulsante per eseguire tutte le stesse operazioni.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 11/07/10 19:03

Ti ringrazio, Anthony, per il contributo,
ma la mia richiesta (male esposta...) è più complessa e, penso, richieda una macro (che non so scrivere! :oops: ), anche perchè la funzione dovrebbe essere ripresa più volte con dati aggiornati.

Può tornare utile il file da lavorare?
http://rapidshare.com/files/406385611/R ... notato.xls
ho postato un esempio ridotto, l'originale è composto di oltre 4000 righe.

Io avrei necessità di estrarre in altro foglio della medesima cartella di lavoro solo i nominativi (colonna F) che hanno tutti i libri disponibili (tutti "1" in colonna J); ovviamente se un nominativo ha qualche titolo non disponibile ("0" in colonna J), non deve essere estratto.

Spero di essere stato più chiaro e confido nel vostro aiuto... :roll:
Grazie!
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi ricky53 » 11/07/10 23:50

Ciao,

per natura sono contrarrio alle soluzioni chavi in mano, questa volta faccio un'eccezione:

prova questa macro (Attenzione la macro copia i dati nel "Foglio...", prima di eseguire la macro devi inserire un foglio nel tuo file ed utilizzare, il nome del foglio che hai inserito, nella macro):
Codice: Seleziona tutto
Sub Copia_Dati_Filtrati()
    Sheets("RiepilogoPrenotazXEdit").Select
    Selection.AutoFilter Field:=11, Criteria1:="<>"
    ActiveSheet.ShowAllData
    Selection.AutoFilter Field:=10, Criteria1:="1"
   
    Range([F1], [F1].End(xlDown)).Copy
    Sheets("Foglio...").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("A:A").EntireColumn.AutoFit
    [A1].Select
End Sub


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 12/07/10 12:49

Grazie Ricky53,
purtroppo la mia incapacità nel costruire soluzioni è ormai "conclamata" (combino solo disastri...)
La tua macro, tuttavia, estrae i nominativi che contengono valori "1" in colonna F anche se, il medesimo nominativo ha qualche titolo con valore "0" in colonna F.
Penso che la difficoltà nella soluzione che io cerco (invano) stia proprio qui: io vorrei estrarre nel foglio 2 solo i nominativi che hanno in colonna F solo valori "1".
E' possibile?...
Grazie
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi Anthony47 » 12/07/10 15:05

Con formule:
-in M2
Codice: Seleziona tutto
=CONTA.SE(F:F;F2)-SOMMA.SE(F:F;F2;J:J)+(CONTA.SE($F$2:F2;F2)>1)*1

-copia in verticale
-filtra su colonna M e scegli solo i valori 0

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 12/07/10 17:53

Grazie Anthony,
la tua funzione risolve perfettamente il mio problema e mi permette di applicare ulteriori opzioni di ricerca :lol:
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 15/07/10 15:13

Seguendo le indicazioni di Anthony47 ho elaborato una semplice macro:

ActiveCell.FormulaR1C1 = _
"=COUNTIF(C[-7],RC[-7])-SUMIF(C[-7],RC[-7],C[-3])+(COUNTIF(R2C1:RC[-7],RC[-7])>1)*1"
Selection.Copy
Range("H1:H10000").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
End Sub

tuttavia mi sarebbe molto utile rendere variabile la lunghezza della colonna in:
Range("H1:H10000").Select
poichè il risultato può variare tra alcune decine di righe ed alcune migliaia!...
E' possibile scrivere la variabile? Con quale sintassi?
Grazie!
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi Flash30005 » 15/07/10 15:37

Inerisci un contatore righe (piene)
Codice: Seleziona tutto
UR = Range("H" & Rows.Count).End(xlUp).Row

in maniera da avere sempre le righe effettive
quindi la tua macro sarà
Codice: Seleziona tutto
ActiveCell.FormulaR1C1 = _
"=COUNTIF(C[-7],RC[-7])-SUMIF(C[-7],RC[-7],C[-3])+(COUNTIF(R2C1:RC[-7],RC[-7])>1)*1"
Selection.Copy
UR = Range("H" & Rows.Count).End(xlUp).Row
Range("H1:H" & UR).Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
End Sub


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: vorrei estrarre dati univoci da foglio Excel 2003

Postdi libraio » 15/07/10 19:14

Grazie Flash, era quello che cercavo!
(Ed ho imparato come applicare un contatore...) :)
libraio
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: vorrei estrarre dati univoci da foglio Excel 2003

Postdi Flash30005 » 15/07/10 20:55

libraio ha scritto:(Ed ho imparato come applicare un contatore...) :)


Piano piano darai anche tu qualche consiglio agli altri utenti del Forum
e noi lo speriamo :)

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 "vorrei estrarre dati univoci da foglio Excel 2003":


Chi c’è in linea

Visitano il forum: Gianca532011 e 39 ospiti