È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Estrazione dati

  • Messaggi
  • OFFLINE
    evalue
    Post: 16
    Registrato il: 18/04/2018
    Città: MILANO
    Età: 44
    Utente Junior
    2010
    00 25/02/2020 08:25
    Buongiorno.

    Vorrei estrarre dei dati da una colonna, inserendo data inizio e data fine.

    E' possibile?

    Grazie fin da ora per la vostra disponibilità.
  • OFFLINE
    GiuseppeMN
    Post: 3.744
    Registrato il: 03/04/2013
    Utente Master
    Excel 2000 - 2013
    00 25/02/2020 09:38

    Buona giornata, @evalue;
    in attesa di una Formula adeguata ho testato un Codice VBA.

    Purtroppo il risultato ottenuto è diverso da quello da te atteso:
    - 62 - 80 - 85 - 99 - 104 - 120

    Vove sbaglio?


    Giuseppe



    Windows XP - Excel 2000
    Windows 10 - Excel 2013
  • OFFLINE
    evalue
    Post: 17
    Registrato il: 18/04/2018
    Città: MILANO
    Età: 44
    Utente Junior
    2010
    00 25/02/2020 09:51
    Scusa Giuseppe, hai ragione.

    Il tuo risultato è corretto. Chiedo scusa...

    Il VBA può andare bene, però preferirei utilizzare una formula.

    Grazie.
    [Modificato da evalue 25/02/2020 09:52]
  • OFFLINE
    GiuseppeMN
    Post: 3.745
    Registrato il: 03/04/2013
    Utente Master
    Excel 2000 - 2013
    00 25/02/2020 10:00

    Buona giornata, @evalue;
    grazie del tuo riscontro.

    Direi di attendere qualche tempo se no arriva la Formula, se lo ritieni utile e opportuno, fai sapere se possiamo procedere con un Codice VBA.

     

    A disposizione.

    Buon Lavoro

    Giuseppe



    Windows XP - Excel 2000
    Windows 10 - Excel 2013
  • OFFLINE
    duccio.73
    Post: 7
    Registrato il: 27/12/2016
    Città: SIENA
    Età: 50
    Utente Junior
    Office 2019/Office 365
    00 25/02/2020 10:48
    Ciao,
    ho diviso la formula in più sottopassaggi, non so se per te è accettabile (non so se tutte le formule sono disponibili nella tua versione, in caso contrario fammi sapere)

    Il risultato è quello detto da GiuseppeMN




    ---
    pensa bene a quello che cerchi, allega un file di esempio, prova il registratore di macro, imparerai e potresti già avere la soluzione
  • OFFLINE
    evalue
    Post: 18
    Registrato il: 18/04/2018
    Città: MILANO
    Età: 44
    Utente Junior
    2010
    00 25/02/2020 11:05
    Grazie duccio.73. La tue formule funzionano.

    E grazie anche a GiuseppeMN per la disponibilità.
  • OFFLINE
    evalue
    Post: 19
    Registrato il: 18/04/2018
    Città: MILANO
    Età: 44
    Utente Junior
    2010
    00 25/02/2020 15:14
    Buongiorno.

    Ho provato ad applicare le colonne di appoggio suggerite da duccio.73 ma il mio file si complica troppo.

    Vi chiedo, cortesemente, se è possibile avere una soluzione in VBA.

    Ringrazio in anticipo.
  • OFFLINE
    by sal
    Post: 5.843
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 25/02/2020 15:45
    Estrazione dati
    Ciao Basta 1 sola colonna d'appoggio e metti la formula, io ho scelto la colonna "H" ma puoi sceglierla a piacere dove ti fa comodo

    =SE(E($A1>=$E$4;$A1<=$E$5);1;0)


    trascinando in basso ed avrai un risultato del genere, a cui ho applicato la formattazione condizionale.



    Ti allego il file.Ciao By Sal [SM=x423051]



    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    locatevaresino
    Post: 2.258
    Registrato il: 21/03/2008
    Città: LOCATE VARESINO
    Età: 76
    Utente Veteran
    2007 / 13
    00 25/02/2020 15:57
    ciao

    una udf da inserire in un Modulo

    Option Explicit
    Function TrovaB(dataI As Long, dataF As Long, A_A As Range) As String
    Dim ritS As String
    Dim cella As Variant
    For Each cella In A_A
    If cella >= dataI And cella <= dataF Then
    ritS = ritS & " - " & Cells(cella.Row, 2)
    End If
    TrovaB = Mid(ritS, 4, Len(ritS))
    Next
    End Function

    utilizzo in base ai tuoi dati
    =trovab(E4;E5;A1:A12)
    =trovab(data inizio;data fine ;range dove ci sono le date)

    Ciao da locate
    excel 2007 / 13
  • OFFLINE
    evalue
    Post: 20
    Registrato il: 18/04/2018
    Città: MILANO
    Età: 44
    Utente Junior
    2010
    00 25/02/2020 16:41
    Grazie a Sal per il suggerimento.

    Alla fine ho utilizzato il VBA di locatevaresino che funziona perfettamente!

    Ancora grazie a tutti!