Risultati da 1 a 18 di 18

Discussione: Come Estrarre dei Dati



  1. #1
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17

    Come Estrarre dei Dati

    Salve a tutti e auguri di buon anno.
    Giornalmente, mi arrivano un centinaio di appuntamenti come da foglio allegato.
    Da questo foglio devo estrarre i dati dalla colonna"A" alla colonna "J" e accodarli giorno dopo giorno.
    Sapere quanti appuntamenti mi hanno dato i fornitori della colonna "A" su quale provincia e in quale data.
    Premetto che un pò di tempo fa avevo posto lo stesso quesito su un'altro forum e trovato soluzione, solo che a causa di formattazione del pc ho perso tutto.
    Qualcuno può darmi una aiuto?:269::269::269:
    Grazie
    File Allegati File Allegati
    Windows 10; Office 2016
    Andrea Mollo

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4027
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    925
    Ciao Andrea e Buon Anno anche a te,
    non ho capito dove devi estrarre questi dati (in un altro foglio?)...
    Prova a mettere manualmente nel file il risultato che vorresti ottenere.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ciao Andrea e ciao Tore

    Da quello che ho capito bisogna estrarre dei records cioè dei dati con 3 condizioni (criteri)
    I criteri sono il nome, la provincia e la data ed è proprio di quest'ultima che ti vorrei chiedere , è una data esatta oppure tra un range di date Esempio dal 12/12/2015 fino al 31/12/2015... oppure voi solo un giorno?
    Grazie mille

  4. #4
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Andrea;
    ben ritrovato in questo Forum.

    Consentimi un saluto a @ cromagno e @ Gerardo Zuccalà (buona serata ad Entrambi)

    Prima di proporti una possibile soluzione, ti consiglierei di leggere la Discussione:

    http://www.forumexcel.it/forum/6-dom...on-consecutive

    In questa Discussione ho proposto l'utilizzo di una Formula adattata da quella Proposta in altra circostanza da @ Canapone (che saluto e ringrazio).

    La Formula proposta è relativa alla visualizzazione di un solo Campo, ma è possibile realizzare la visualizzazione di tutti i Campi interessati; poi, dal risultato della ricerca, con la Funzione "Filtro", potresti selezionare solo i Record ai quali sei interessato.


    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  5. #5
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215
    vedi il file in allegato te ti può essere utile.
    nel foglio 1 aggiungi gli appuntamenti che ti arrivano e nel foglio 2 fai tutti i filtraggi che vuoi.
    Puoi duplicare più volte il foglio 2 e tener traccia di tutte le ricerche che ti servono.

    se hai bisogno soltanto delle colonne dalla a alla j, basta in gestione nomi assegnare a "database" le colonne dalla "A" alla "J"

    leggi l'ultimo ed il terzultimo messaggio di questo post
    http://www.forumexcel.it/forum/7-dom...in-un-database
    è semplicemente l'automatizzazione del filtro avanzato

    Saluti
    File Allegati File Allegati

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Ciao a tutti,
    nell'attesa di un riscontro di Andrea, io ho immaginato una cosa del genere:

    Una colonna con i fornitori, ricavata con la formula:

    =SE.ERRORE(INDICE($A$2:$A$12;CONFRONTA(0;INDICE(CONTA.SE($A$14:A14;$A$2:$A$12&""););0));"")

    una colonna con il numero di appuntamenti dati in generale, ricavata con la formula:

    =CONTA.SE($A$2:$A$12;A15)

    Infine un'altra colonna con le province, ricavate con un'altra formula:

    =ANNULLA.SPAZI(SE.ERRORE(INDICE($D$2:$D$12;AGGREGATO(15;6;RIF.RIGA($A$2:$A$12)-1/($A$2:$A$12=A15);1));""))&" "&SE.ERRORE(INDICE($D$2:$D$12;AGGREGATO(15;6;RIF.RIGA($A$2:$A$12)-1/($A$2:$A$12=A15);2));"")&" "&SE.ERRORE(INDICE($D$2:$D$12;AGGREGATO(15;6;RIF.RIGA($A$2:$A$12)-1/($A$2:$A$12=A15);3));"")

    Ci sarebbe la data, ma a questo punto dovrei dividere le province per singola riga, dopo la cosa sarebbe anche più facile, ma con questo mio schema ho solo voluta dare un'idea, aspettando Andrea che posti un file come esempio di come vuole ottenere i risultati.

    Allego file.

    Edit:
    Con il Mac la funzione AGGREGA si chiama AGGREGATO
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #7
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Ciao Ges e grazie per l'interessamento.
    come detto all'inizio, mi arrivano un centinaio di appuntamenti giornalieri da vari fornitori, come da esempio.
    Da questo foglio dovrei estrarre ed accodare, giorno dopo giorno, i dati dalla colonna "A" alla colonna"J".
    Da questa estrazione, tramite Pivot o macro vorrei sapere in qualsiasi momento mi venga chiesto, quanti appuntamenti mi sono stati dati giorno "x" e da chi(fornitore).
    I dati possono essere estratti su un foglio di appoggio che possiamo chiamare "Report Appuntamenti"
    Grazie:188:
    Windows 10; Office 2016
    Andrea Mollo

  8. #8
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Ciao Giuseppe e ben ritrovato a te.
    Ho dato un'occhiata alla discussione e potrebbe adattarsi alle mie esigenze.
    Vorrei anche sapere, poichè gli appuntamenti arrivano giornalmente, da lunedì a venerdì e sono un centinaio al giorno, come accodarli in ordine di arrivo, se con un copia incolla o tramite macro.
    Grazie
    Windows 10; Office 2016
    Andrea Mollo

  9. #9
    L'avatar di Pitagora
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Milano
    Età
    54
    Messaggi
    782
    Versione Office
    WIN , 2013 2016
    Likes ricevuti
    319
    Likes dati
    1
    Buon Giorno

    Pivot Appuntamenti.



    Saluti
    File Allegati File Allegati
    Window 8.1 Excel 2013/2016

  10. #10
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Grazie Pitagora,
    mancano le Province
    Grazie
    Windows 10; Office 2016
    Andrea Mollo

  11. #11
    L'avatar di Pitagora
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Milano
    Età
    54
    Messaggi
    782
    Versione Office
    WIN , 2013 2016
    Likes ricevuti
    319
    Likes dati
    1
    Buon giorno

    Aggiunto Provincia

    Saluti
    File Allegati File Allegati
    Window 8.1 Excel 2013/2016

  12. #12
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Andrea;
    Tu sai che tra mè e le Tabello Pivot non c'è una grande intesa, ... (ci sopportiamo a vicenda)

    Qundi, nel ringraziare @ Pitagora (che leggo sempre con molto interesse), la mia proposta e con Formule; senza VBA.

    Nel File in allegato, ho previsto due Fogli di lavoro:
    - Appuntamenti; i Dati sono esattamente quelli proposti nel Tuo File
    - Report
    In Report, in Colonna "R", ho inserito i "Fornitori" univoci; ho reso dinamico l'elenco dei Fornitori assegnando al NomeZona
    - Fornitore
    la seguente Formula:
    Codice: 
     =SCARTO(Report!$R$2;0;0;CONTA.VALORI(Report!$R$1:$R$3000)-1;1)
    Nella Cella "J2" ho utilizzato la Funzione "Convalida dati"
    Nelle Celle "K2:P2", ho utilizzato la Funzione "CERCA.VERT" per reperire i Dati univoci.
    Nelle Celle "A2:H2", ho utilizzato le Formule:

    - In A2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$I$2:$I$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In B2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$J$2:$J$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In C2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$K$2:$K$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In D2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$W$2:$W$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In E2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$X$2:$X$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In F2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$Y$2:$Y$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In G2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$Z$2:$Z$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    - In H2
    Codice: 
     =SE($J$2=0;"";SE.ERRORE(INDICE(Appuntamenti!$AA$2:$AA$400000;AGGREGA(15;6;RIF.RIGA($A$2:$A$400000)-1/(Appuntamenti!$A$2:$A$400000=$J$2);RIF.RIGA(A1)));""))
    Tutte da copiare nelle Celle sottostanti.



    A disposizione.

    Buona serata.

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  13. I seguenti utenti hanno dato un "Like"


  14. #13
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215
    in allegato la mia versione ;)

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)If Not (Application.Intersect(Target, ActiveSheet.Range("filtri")) Is Nothing) Then
    Call filtra
    End If
    End Sub
    
    
    
    
    Sub filtra()
    '    Application.ScreenUpdating = False
        'applico il filtro al "database" del foglio1 secondo i criteri stabiliti da "filtri"; estraggo record unici
        With Range("filtri").Cells(Range("filtri").Rows.Count, 1).Offset(2, 0).CurrentRegion
            .ClearContents
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).LineStyle = xlNone
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlEdgeRight).LineStyle = xlNone
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With
            Worksheets("foglio1").Range("database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
                "filtri"), CopyToRange:=Range("filtri").Cells(Range("filtri").Rows.Count, 1).Offset(2, 0), Unique:=True
            '   Application.ScreenUpdating = True
            Call liste_uniche
    End Sub
    
    
    Sub liste_uniche()
        'creo le liste uniche da assegnare ai campi di ricerca dei filtri
        Dim elenco As Range, nome As Range
        Dim col As Collection
        Dim valore, vtemp As Variant
        Dim lista As String
        
        Dim r, i, j, k As Long
           
        'totale record filtrati
        r = Range("filtri").Cells(Range("filtri").Rows.Count, 1).Offset(2, 0).CurrentRegion.Rows.Count - 1
        For i = 1 To Range("filtri").Columns.Count
            Set col = Nothing
            Set elenco = Range(Range("filtri").Cells(Range("filtri").Rows.Count, i).Offset(2 + 1, 0), Range("filtri").Cells(Range("filtri").Rows.Count, i).Offset(2 + r, 0))
            Set col = New Collection
            On Error Resume Next
            For Each nome In elenco
                col.Add nome.Value, CStr(nome.Value)
            Next
            'due cicli per oridinare i valori della lista con il metodo bubble sort
            For j = 1 To col.Count - 1
                For k = j + 1 To col.Count
                    If col(j) > col(k) Then
                        'memorizza l'elemento minore
                       vtemp = col(k)
                        'rimuove l'elemento minore
                       col.Remove k
                       ' aggiunge l'elemento minore prima dell'elemento maggiore
                       col.Add vtemp, CStr(vtemp), CStr(col(j))
                    End If
                Next k
            Next j
            'crea la lista degli elementi da assegare alla convalida
            lista = ""
            For Each valore In col
                    lista = lista & valore & ", "
            Next
            'assegna la lista di valori alla cella i-esima di filtro
                With Range(Range("filtri").Cells(2, i), Range("filtri").Cells(Range("filtri").Rows.Count, i)).Validation
                        .Delete
                        .Add Type:=xlValidateList, Formula1:=lista
                        .ShowError = False
                End With
        Next i
    End Sub
    Saluti
    Giuseppe
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 03/01/16 alle 21:52 Motivo: Codice VBA

  15. I seguenti utenti hanno dato un "Like"


  16. #14
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Ciao Giuseppe,
    non riesco a capire dove ai inserito la prima formula"=SCARTO(Report!$R$2;0;0;CONTA.VALORI(Report!$R$1:$R$3000)-1;1)",
    selezionando il fornitore "PIPPO" dal menu a tendina del foglio report, mi da effettivamente 3 appuntamenti con relativa data e orario ma, nelle colonne da "J" a "P" me ne elenca solo 1, come mai?
    Grazie
    Windows 10; Office 2016
    Andrea Mollo

  17. #15
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Ciao ggratis e grazie per l'impegno,
    la provo e ti faccio sapere.
    Al momento di nuovo grazie
    Windows 10; Office 2016
    Andrea Mollo

  18. #16
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Andrea;
    cerco di risponderti con ordine.

    @ Andrea Mollo, chiede:
    non riesco a capire dove ai inserito la prima formula"=SCARTO(Report!$R$2;0;0;CONTA.VALORI(Report!$R$1:$R$3000)-1;1)" ...
    Ho utilizzato questa Formula per rendere dinamico l'elenco dei Fornitori.
    Partendo dal Rebbon "DATI" ho selezionato "Gestione nome"; da qui, ho costruito la "Zona" "Fornitore" alla quale ho associato la Formula "SCARTO ..."
    In questo modo ho reso dinamica la "Zona Fornitore" (Colonna "R"); voglio dire, se aggiungi un nuovo Fornitore dopo "Topolino", questo, verrà inserito, automaticamente, nella "Convalida dati" presente in Cella "J2".
    Come buon auspicio, ho considerato 2999 "Fornitori" :32: ... implementabil!

    @ Andrea Mollo, chiede:
    ... selezionando il fornitore "PIPPO" dal menu a tendina del foglio report, mi da effettivamente 3 appuntamenti con relativa data e orario ma, nelle colonne da "J" a "P" me ne elenca solo 1, come mai?
    Sono partito dal presupposto che ogno "Fornitore" abbia una Ragione sociale univoca.
    Quindi, in realtà:
    - PIPPO - TERNI - TR- ALBERTO
    sarà un Fornitore diverso da:
    - PIPPO - NAPOLI - NA- ELVIRA
    come pure da:
    - PIPPO - SAN SECONDO PARMESE - PR- FORNARI ELISA
    In pratica ho considerato ogni "Ragione Sociale come" Partita I.V.A.; pertanto univoca.

    È pur vero che possono esserci "Fornitori", che, mantenendo la stessa Ragione Sociale, possono avere Sedi diverse, ma, non ho considerato questa eventualità.
    Nel caso questa sia una Tua esigenza, basterà aggiungere i Campi interessati alla selezione; potremmo dire che:
    ... Giuseppe ha tracciato il percorso, Andrea lo ha adattato alle proprie necessità. :269:

    A margine di quanto sopra, vorrei ringraziare @ Vincenzo Damiani per il Suo sempre gradito Apprezzamento dimostrato.:98:




    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  19. #17
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Grazie Giuseppe, molto esaustivo....come sempre
    Windows 10; Office 2016
    Andrea Mollo

  20. #18
    L'avatar di Andrea Mollo
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza, Italia
    Età
    58
    Messaggi
    64
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    17
    Grazie a tutti per l'impegno e la disponibilità.
    Ho risolto che le Pivot.
    Windows 10; Office 2016
    Andrea Mollo

Discussioni Simili

  1. estrarre dati con più condizioni
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 13/04/16, 15:01
  2. estrarre dati
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 11/03/16, 16:16
  3. Estrarre dati
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 26
    Ultimo Messaggio: 20/06/15, 08:06
  4. [Risolto] estrarre dati
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 18/06/15, 08:38
  5. estrarre dati
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 18/06/15, 02:08

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •