estrazione dati con data

Hai un problema con Excel?

Nuova discussione

estrazione dati con data
di Alexa80 (utente non iscritto) data: 03/11/2016 09:52:59
Buongiorno a tutti,
sto realizzando un report organizzato per date. Vi allego il file per una maggiore comprensione.
Vorrei far estrapolare nella cella in arancione A4 (foglio calcoli) la descrizione (foglio dati, colonna B) nel caso in cui la data che vado a selezionale in B2 (foglio calcoli) sia contenuta nella colonna C (foglio dati).

I poche parole, ho bisogno di inserire delle date e per quelle date il file deve restituirmi tutte le descrizioni. Nel foglio dati possono essrci anche più descrizioni uguali, in questo caso il file deve restituirmene solo una...

E' una cosa fattibile?

Un grazie a chi mi aiuterà
Alexa
di alfrimpa data: 03/11/2016 10:18:26
Ciao Alexa

Giusto per capire meglio in base alle date in foglio calcoli che risultato ti aspetti in cella A4?

Alfredo
di Alexa80 (utente non iscritto) data: 03/11/2016 10:44:14
Ciao Alfredo,
ho allegato un file (n.2) in cui riporto cosa vorrei realizzare.

Alexa
di Cucù data: 03/11/2016 11:24:30
Un dei tanti modi...
Allegato.
Cucù
di santuberto (utente non iscritto) data: 03/11/2016 11:36:18
Buongiorno a tutti.
In B4: cerca.vert(A4;Dati!$A$1:$E$5;2;falso)
In C4 cerca.vert(A4;Dati!$A$1:$E$5;3;falso)
Etc (sempre che abbia interpretato correttamente...)
Ciao.
di Alexa80 (utente non iscritto) data: 03/11/2016 12:34:01
Cucù! Spettacolare questa cosa! ma come hai fatto??

dovrei ricreare il tutto sul mio file!
di Alexa80 (utente non iscritto) data: 03/11/2016 12:39:04
Santuberto, credo che il cerca.vert non sia giusto in questa interrogazione perchè pesca sempre il primo valore ed io ho bisogno di avere tutte le quote della singola descrizione (riportata più volte quante sono le quote)
di Cucù data: 03/11/2016 13:01:38
cit "dovrei ricreare il tutto sul mio file! "

bhe se l'esempio che hai usato è aderente all'originale, basta ricopiarti la sub... altrimenti c'è da modificare il codice con i riferimenti giusti del tuo file originale.

PS E' anche per questo che si richiedono esempi che rispecchiano la realtà del file.
Cucù
di Santuberto (utente non iscritto) data: 03/11/2016 13:03:47
Cito: ... pesca sempre il primo valore ...

No. Nella funzione c'è un nr che cambia, per cui va a leggere nella colonna successiva.
Comunque, era solo una delle possibilità.
di Alexa80 (utente non iscritto) data: 03/11/2016 14:24:48
Cucù, si hai ragione ma il mio file è molto più complesso e ricco di dati in cui le colonne in cui deve andare a cercare non si susseguono. Ho provato a spostarle ma l'interrogazione da valore zero....
di Alexa80 (utente non iscritto) data: 03/11/2016 14:26:44
Santuberto la proverò sicuramente, ti ringrazio comunque tanto. Siete sempre molto gentili e disponibili in questo forum.
di Cucù data: 03/11/2016 14:29:47
allora posto il file aderente all'originale altrimenti non saprei come aiutarti.
di Alexa80 (utente non iscritto) data: 03/11/2016 14:49:53
Cucu' ti allego il file n. 3 (i dati arrivano fino alla colonna AC). Ti ringrazio molto ma sinceramente vorrei sapere come raggiungi il risultato in modo da poterlo adeguare anche per altri report che devo realizzare...

di Cucù data: 03/11/2016 15:21:16
Ecco fatto... Più chiaro di così...
Se hai bisogno di più info sentiamoci in pvt
Cucù

Option Explicit
Sub Elabora_Date()
Dim xCell As Range, xRng As Range
Dim Ir As Long

Application.ScreenUpdating = False
Ir = Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(6, 1), Cells(Ir, 4)).ClearContents
Ir = Sheets("dati").Range("AA" & Rows.Count).End(xlUp).Row
Set xRng = Sheets("dati").Range("AA2:A" & Ir)
Ir = 6
    For Each xCell In xRng
        If xCell <= Cells(2, 4) And xCell >= Cells(2, 2) Then
            Cells(Ir, 1) = xCell.Offset(0, -21)  'Descrizione
            Cells(Ir, 2) = xCell               'Data
            Cells(Ir, 3) = xCell.Offset(0, -8) 'Quota
            Cells(Ir, 4) = xCell.Offset(0, 2)  'Valori
            Ir = Ir + 1
        End If
    Next
Range("A5", Range("D" & Rows.Count).End(xlUp).Address).Sort Key1:=[b3], _
Order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
MsgBox "FINITO!"

End Sub

estrazione dati con data
di Alexa80 (utente non iscritto) data: 03/11/2016 09:52:59
Buongiorno a tutti,
sto realizzando un report organizzato per date. Vi allego il file per una maggiore comprensione.
Vorrei far estrapolare nella cella in arancione A4 (foglio calcoli) la descrizione (foglio dati, colonna B) nel caso in cui la data che vado a selezionale in B2 (foglio calcoli) sia contenuta nella colonna C (foglio dati).

I poche parole, ho bisogno di inserire delle date e per quelle date il file deve restituirmi tutte le descrizioni. Nel foglio dati possono essrci anche più descrizioni uguali, in questo caso il file deve restituirmene solo una...

E' una cosa fattibile?

Un grazie a chi mi aiuterà
Alexa
di alfrimpa data: 03/11/2016 10:18:26
Ciao Alexa

Giusto per capire meglio in base alle date in foglio calcoli che risultato ti aspetti in cella A4?

Alfredo
di Alexa80 (utente non iscritto) data: 03/11/2016 10:44:14
Ciao Alfredo,
ho allegato un file (n.2) in cui riporto cosa vorrei realizzare.

Alexa
di Cucù data: 03/11/2016 11:24:30
Un dei tanti modi...
Allegato.
Cucù
di santuberto (utente non iscritto) data: 03/11/2016 11:36:18
Buongiorno a tutti.
In B4: cerca.vert(A4;Dati!$A$1:$E$5;2;falso)
In C4 cerca.vert(A4;Dati!$A$1:$E$5;3;falso)
Etc (sempre che abbia interpretato correttamente...)
Ciao.
di Alexa80 (utente non iscritto) data: 03/11/2016 12:34:01
Cucù! Spettacolare questa cosa! ma come hai fatto??

dovrei ricreare il tutto sul mio file!
di Alexa80 (utente non iscritto) data: 03/11/2016 12:39:04
Santuberto, credo che il cerca.vert non sia giusto in questa interrogazione perchè pesca sempre il primo valore ed io ho bisogno di avere tutte le quote della singola descrizione (riportata più volte quante sono le quote)
di Cucù data: 03/11/2016 13:01:38
cit "dovrei ricreare il tutto sul mio file! "

bhe se l'esempio che hai usato è aderente all'originale, basta ricopiarti la sub... altrimenti c'è da modificare il codice con i riferimenti giusti del tuo file originale.

PS E' anche per questo che si richiedono esempi che rispecchiano la realtà del file.
Cucù
di Santuberto (utente non iscritto) data: 03/11/2016 13:03:47
Cito: ... pesca sempre il primo valore ...

No. Nella funzione c'è un nr che cambia, per cui va a leggere nella colonna successiva.
Comunque, era solo una delle possibilità.
di Alexa80 (utente non iscritto) data: 03/11/2016 14:24:48
Cucù, si hai ragione ma il mio file è molto più complesso e ricco di dati in cui le colonne in cui deve andare a cercare non si susseguono. Ho provato a spostarle ma l'interrogazione da valore zero....
di Alexa80 (utente non iscritto) data: 03/11/2016 14:26:44
Santuberto la proverò sicuramente, ti ringrazio comunque tanto. Siete sempre molto gentili e disponibili in questo forum.
di Cucù data: 03/11/2016 14:29:47
allora posto il file aderente all'originale altrimenti non saprei come aiutarti.
di Alexa80 (utente non iscritto) data: 03/11/2016 14:49:53
Cucu' ti allego il file n. 3 (i dati arrivano fino alla colonna AC). Ti ringrazio molto ma sinceramente vorrei sapere come raggiungi il risultato in modo da poterlo adeguare anche per altri report che devo realizzare...

di Cucù data: 03/11/2016 15:21:16
Ecco fatto... Più chiaro di così...
Se hai bisogno di più info sentiamoci in pvt
Cucù

Option Explicit
Sub Elabora_Date()
Dim xCell As Range, xRng As Range
Dim Ir As Long

Application.ScreenUpdating = False
Ir = Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(6, 1), Cells(Ir, 4)).ClearContents
Ir = Sheets("dati").Range("AA" & Rows.Count).End(xlUp).Row
Set xRng = Sheets("dati").Range("AA2:A" & Ir)
Ir = 6
    For Each xCell In xRng
        If xCell <= Cells(2, 4) And xCell >= Cells(2, 2) Then
            Cells(Ir, 1) = xCell.Offset(0, -21)  'Descrizione
            Cells(Ir, 2) = xCell               'Data
            Cells(Ir, 3) = xCell.Offset(0, -8) 'Quota
            Cells(Ir, 4) = xCell.Offset(0, 2)  'Valori
            Ir = Ir + 1
        End If
    Next
Range("A5", Range("D" & Rows.Count).End(xlUp).Address).Sort Key1:=[b3], _
Order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
MsgBox "FINITO!"

End Sub

Vuoi Approfondire?