Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 43

Discussione: estrarre dati da una data...



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    estrarre dati da una data...

    Ciao a tutti.....
    Vorrei da tasto "estrai incontri"

    estrarre gli incontri dalla prima tabella in base alla data in AB8

    grazie ancora per aiuto
    File Allegati File Allegati
    windows 10
    Excel 2016

  2. #2
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Ciao Nicola

    Prova questa

    Codice: 
    Sub Estrai()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
    Set rng = Range("g11:g194")
    For Each cel In rng
        If cel.Value = Range("AB8").Value Then
            Range("a" & cel.Row & ":" & "h" & cel.Row).Copy Destination:=Range("AB" & ur + 1)
        End If
    Next cel
    End Sub
    Alfredo

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    Ciao Alfredo......
    sto ancora provando
    per ora non viene fuori niente..........
    windows 10
    Excel 2016

  4. #4
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    A me con la data inserita in Ab8 viene fuori questo

    Pulcini 2005, Viaccia, Casalguidi, martedì 10/5 19:45

    Alfredo

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    Ma la macro viene inserita in un nuovo modulo????
    windows 10
    Excel 2016

  6. #6
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Scusami c'era un errore nel codice

    Questo dovrebbe andar bene

    Codice: 
    Private Sub CommandButton2_Click()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    Set rng = Range("g11:g194")
    For Each cel In rng
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
        If cel.Value = Range("AB8").Value Then
            Range("a" & cel.Row & ":" & "h" & cel.Row).Copy Destination:=Range("AB" & ur + 1)
        End If
    Next cel
    End Sub
    Ti allego il file.

    Alfredo
    File Allegati File Allegati

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    scusa Alfredo ho provato ha cambiare data ma da sempre errore-.................
    windows 10
    Excel 2016

  8. #8
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Ma la data la metti con il calendario o manualmente?

    Che errore ti da?

    Io inserisco la data manualmente perché stranamente a me il calendario non funziona a te si?

    Alfredo

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    con il calendario e funziona bene...........provo a riallegare il file............
    File Allegati File Allegati
    windows 10
    Excel 2016

  10. #10
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    no scusa ora non funziona piu neanche il calendario
    windows 10
    Excel 2016

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    qui il calendario funziona..........
    File Allegati File Allegati
    windows 10
    Excel 2016

  12. #12
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Si ho sistemato tutto mancava un pezzo di codice.

    Ora scegliendo la data con il calendario e cliccando su Estrai funziona (ho anche modificato un po' il codice per trasformare in una data effettiva quella proveniente dal calendario con CDate()

    Codice: 
    Private Sub CommandButton2_Click()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    Set rng = Range("g11:g194")
    For Each cel In rng
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
        If cel.Value = CDate(Range("AB8").Value) Then
            Range("a" & cel.Row & ":" & "h" & cel.Row).Copy Destination:=Range("AB" & ur + 1)
        End If
    Next cel
    End Sub
    Ti riallego il file.

    Alfredo
    File Allegati File Allegati

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    scusa Alfredo creo ci sia una piccola imperfezione

    Quando cambio data quelle precedenti rimangano e si allungano i recods.......................
    windows 10
    Excel 2016

  14. #14
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Beh questa dovresti riuscire a farla anche tu comunque

    Codice: 
    Private Sub CommandButton2_Click()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    Range("AB12:AI1000").ClearContents
    Set rng = Range("g11:g194")
    For Each cel In rng
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
        If cel.Value = CDate(Range("AB8").Value) Then
            Range("a" & cel.Row & ":" & "h" & cel.Row).Copy Destination:=Range("AB" & ur + 1)
        End If
    Next cel
    End Sub
    Impegnati un po' di più che ne sei capace :167:

    Alfredo

  15. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    ci provo..............
    windows 10
    Excel 2016

  16. #16
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    Diciamo quasi perfetto........
    non per essere stucco ma quando si cambia la data le le ultime righe delle tabella anche se non si popolano
    rimangano a vista anche se non vuote.........:176:
    windows 10
    Excel 2016

  17. #17
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    Diciamo quasi perfetto........
    non per essere stucco ma quando si cambia la data le le ultime righe delle tabella anche se non si popolano
    rimangano a vista anche se non vuote.........:176:
    Non capisco.

  18. #18
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    prova a cambiare data
    File Allegati File Allegati
    windows 10
    Excel 2016

  19. #19
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Intendi che rimane la colorazione delle celle (a righe alterne) anche se le righe sono vuote?

    Come viene applicata la colorazione? Con uno strumento tabella? Con la formattazione condizionale?

    Alfredo

    P.S. Ho capito

  20. #20
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    esattamente e capita anche che la prima riga sotto intestazione è vuota e poi cominciano i records.
    mentre nelle altre tabelle non succede...

    scusa se sono troppo rompiballe,.............:167::167::167::167:
    windows 10
    Excel 2016

  21. #21
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Allora questa è per cancellare la colorazione delle righe vuote

    Codice: 
    Private Sub CommandButton2_Click()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    Range("AB12:AI1000").ClearContents
    Set rng = Range("g11:g194")
    For Each cel In rng
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
        If cel.Value = CDate(Range("AB8").Value) Then
            Range("a" & cel.Row & ":" & "h" & cel.Row).Copy Destination:=Range("AB" & ur + 1)
        End If
    Next cel
    ur = Cells(Rows.Count, "AB").End(xlUp).Row
    Range("ab" & ur + 1 & ":" & "ai1000").ClearFormats
    End Sub
    Ora vedo per la riga sotto l'intestazione.

    Alfredo

  22. #22
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    infatti questa funziona...........
    windows 10
    Excel 2016

  23. #23
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Da AB10 a AI10 c'è uno strumento Tabella che non conosco quasi per nulla quindi non saprei di re di più.

    Se la eliminiamo come struttura credo che si può evitare la riga vuota sotto l'intestazione però perderesti la colorazione a righe alterne che dovrebbe essere ripristinata magari con la f.c.

    Tutto sommato una riga vuota sotto l'intestazione non è che dia tutto quel fastidio.

    Non saprei decidi tu

  24. #24
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    ok
    per ora molte grazie lo tengo cosi perche funziona bene

    P.s.
    questa era la fine della prima parte

    poi avrò bisogno di completarlo

    per Grazie alfredo
    windows 10
    Excel 2016

  25. #25
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    Possiamo fare un tentativo se puoi??????????
    ho file analogo che estrae i records con la data di riferimento con una tabella
    e non crea la prima riga vuota

    se vuoi te lo allego e gli puoi dare un occhiata se vuoi??????
    windows 10
    Excel 2016

  26. #26
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Ok.

  27. #27
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    grazie Alfredo
    File Allegati File Allegati
    windows 10
    Excel 2016

  28. #28
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Ora sono da cell ma questo file mi sembra di averlo già visto.

    qual è il problema?

  29. #29
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: estrarre dati da una data...

    Nicola cosa si deve fare con questo file? Estrarre sulla tabella a destra gli ordini per data dalla tabella a sinistra?

    Alfredo

  30. #30
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    46
    Messaggi
    1023
    Versione Office
    Excel 2016
    Utile ricevuti
    19
    Utile dati
    14

    Re: estrarre dati da una data...

    Ciao Alfredo...........scusa ma ero fuori
    si hai già visto questo file.....
    si apre il calendario, si sceglie la data e si estrae i records e qui funziona tutto
    e volevo adattarlo a l'altro file Partite............
    evitando che la prima riga sia vuota......
    il funzionamento è il solito

    Grazie
    windows 10
    Excel 2016

Discussioni Simili

  1. [Risolto] estrarre la data da un file in CSV
    Di joseph nel forum Domande su Excel in generale
    Risposte: 22
    Ultimo Messaggio: 06/01/17, 20:59
  2. estrarre dati con una data
    Di lucaferr nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 14/10/16, 18:53
  3. Estrarre da data base
    Di BRAZ66 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 10/07/16, 15:09
  4. Come Estrarre dei Dati
    Di Andrea Mollo nel forum Domande su Excel in generale
    Risposte: 17
    Ultimo Messaggio: 06/01/16, 12:25
  5. Estrarre le date nel formato corretto standard gg/mm/aaaa da un data base
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 12/07/15, 21:27

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
  •