riordino date

[ramset1978]

Ordinare l'elenco prodotto non va bene perchè se nell'elenco originario si ha una data ripetuta e non ordinata cronologicamente si otterrebbe, nell'elenco finale, due volte la stessa data.

[Anthony47]

Questo e' un problema diverso che non avevi posto.
Hai un file di esempio da utilizzare?

Comunque io cambierei approccio:
-usando Filtro avanzato crei un elenco di tutte le date presenti nell' elenco
-con Somma.Se calcoli, nella colonna adiacente, la somma per data
-ordini l' elenco delle date

Ciao

[ramset1978]

Questo e' un problema diverso che non avevi posto.
Hai un file di esempio da utilizzare?

Comunque io cambierei approccio:
-usando Filtro avanzato crei un elenco di tutte le date presenti nell' elenco
-con Somma.Se calcoli, nella colonna adiacente, la somma per data
-ordini l' elenco delle date

Ciao

Si è vero Anthony, è un problma diverso che non avevo posto perchè non lo avevo capito.

Non credo serva una file d'esempio. Sintentizziamo per capirci meglio:
In una determinata colonna ci sono delle date ordinate in modo non cronologico, spesso le date si ripetono.

Quel che mi serve è ottenere in modo cronologico tutte le date presenti nella colonna originaria, prese una sola volta.
Bisognerebbe quindi
a) copiare tutti le date presenti nella colonna in vba (non posso ordinare le date presenti nella colonna originaria)
b) riordinarle in modo cronologico sempre in vba
c) elencare le date presenti in modo cronologico e senza ripetere alcuna data con un ciclo

Direi che i punti a e c sono già presenti nei codici precedenti... manca il punto b.

Ciao

[Anthony47]

Non capisco perche' continui a ignorare le ipotesi piu' semplici (pivot, filtro avanzato); comunque volendo continuare con l' approccio "solo macro" allora potresti provare con

Codice: Seleziona tutto

Sub sumbydate2()
Dim LastA As Long, NextJ As Long, I As Long
'
Range("C:D").ClearContents
Range("C1:D1").Value = Array("Data", "Somma")
LastA = Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To LastA
    If Application.WorksheetFunction.CountIf(Range("C:C"), Application.WorksheetFunction.Small(Range("A1:A" & LastA), I - 1)) = 0 Then
        NextJ = Cells(Rows.Count, 3).End(xlUp).Row + 1
        Cells(NextJ, 3) = Application.WorksheetFunction.Small(Range("A1:A" & LastA), I)
        Cells(NextJ, 4).FormulaLocal = "=somma.se(A:A;C" & NextJ & ";B:B)"  '<<1 Vedi testo
'        Cells(NextJ, 4).Value = Evaluate("=sumif(A:A,C" & NextJ & ",B:B)")  '<<2 Vedi testo
    End If
Next I
End Sub


Come nella versione precedente, le righe <<1 e <<2 sono alternative.

Ciao

[ramset1978]

Anthony non ignoro a caso le altre ipotesi. Per quello che alla fine devo fare sarebbe preferibile una macro.
Ciò detto, l'ultima tua versione in realtà non fa ciò che mi serve, prova ad inserire nella colonna A queste date:
12/01/14
15/01/14
16/01/14
12/01/14
13/01/14
17/01/14
18/01/14
10/01/14
07/07/14
08/07/14
10/07/14
10/07/14
09/07/14
09/07/14
lascia la macro e verifica quante date mancano.
Bisogna necessariamente ordinare, prima del ciclo, le date acquisite.
Ti ringrazio, come sempre, per la tua immensa disponibilità e cortesia.

[ricky53]

Ciao,
non riesco a capire perchè le tue ulteriori elaborazioni non possano utilizzare i dati prodotti con una pivot.

Una Pivot consente di elaborare agevolmente ed in modo molto semplice e dinamico i dati di una tua tabella.
Ti allego un esempio applicato alla tua situazione File di esempio

L'ordinamento dei dati non occorre provvede la pivot e ... prova a costruirti una pivot partendo dalle tue DUE colonne di dati e vedrai quanto sia semplice e POTENTE ....
Provare per credere !!!

[ramset1978]

Ciao Ricky53 mettiamola cosi, non mi piacciono i pivot.
Se in excel è possibile ordinare una colonna dati perchè in vba non è possibile ordinare i dati copiati da una colonna? In teoria dovrebbe essere possibile ed è l'unica cosa che manca.
Grazie comunque per il tuo interesse.
Un saluto.

[Anthony47]

Se usi Excel e non ti piacciono le pivot e' come non ti piacesse la funzione Matr.Somma.Prodotto: ti risolve, gia' pagato nel costo della licenza, tanti problemi.
Come pure, ti ho detto di creare l' elenco date uniche con fitro avanzato e poi ordinarlo, ma non so che fine ha fatto il suggerimento.
Comunque alla macro che ti ho suggerito mancava un "-1" in questa istruzione:

Codice: Seleziona tutto

        Cells(NextJ, 3) = Application.WorksheetFunction.Small(Range("A1:A" & LastA), I - 1)    '<<Mancava il "-1"


Ciao

[ramset1978]

Come sempre siete stati geniali e vi ringrazio.
In sincerità però non capisco questo "accanimento" nel voler consigliare i pivot.
Non a tutti piace andare in giro con la Ferrari...
Un saluto a tutti.

[Anthony47]

Questo accanimento e' terapeutico.
Perche' tu hai acquistato la Ferrari, hai bisogno di andare rapidamente da Lodi a Parma ma poi chiedi che il Frecciarossa faccia una fermata sotto casa apposta per te.
Alla prossima...

[ricky53]

Ciao Antony
ottimi interventi e chiarimenti.


Se posso aggiungo che la voglia di apprendere deve mai mancare e bisogna sempre provare nuove soluzioni ... specialmente se ci fanno fare il lavoro in breve tempo e con poco fatica ... poi sta a te decidere come procedere.

Le pivot (queste sconosciute) mettono ... paura causa il loro nome ma vale la pena di provarle.

Buon proseguimento.

[wallace&gromit]

un piccolo aneddoto:
mentre tutto il mondo usa la parola francese "pivot" i francesi le chiamano "tableaux croisés dinamiques", questo sì che incute timore, eppure le usano anche loro!

[ricky53]

Ciao,
aneddoto veramente simpatico.

Permettetemi un po' di nazionalismo: i Francesi si distinguono sempre !!!

[ramset1978]

Ciao ragazzi, che dire... in realtà avete ragione tutti. Io però ho qualche annetto in più e preferisco andare pian pianino... Scherzo, prometto che valuterò anche le pivot.
Siete grandi, grazie.

[ricky53]

Ciao,
aggiornaci sui risultati e buon proseguimento

[ramset1978]

Tralasciando, ancora una volta, i pivot (prometto che me li guarderò bene prima o poi)… la macro di Anthony ovviamente funziona alla grande, unico neo è lenta. Bisognerebbe sostituire la lettura dei dati da excel con una lettura dei dati direttamente acquisiti in vba. Mi date gentilmente quest’ultimo aiuto?
Una buona giornata a tutti.

[ricky53]

Ciao,
quanti dati elabori nella colonna "A" ?
Hai provato a sostituire l'istruzione "1" con la "2" secondo quanto ti aveva scritto Anthony ?

Codice: Seleziona tutto

'            Cells(NextJ, 4).FormulaLocal = "=somma.se(A:A;C" & NextJ & ";B:B)"  '<<1 Vedi testo
            Cells(NextJ, 4).Value = Evaluate("=sumif(A:A,C" & NextJ & ",B:B)")  '<<2 Vedi testo

Cosa intendevi con

Bisognerebbe sostituire la lettura dei dati da excel con una lettura dei dati direttamente acquisiti in vba.

COMMENTO: come vedi prima o poi i nodi ... portano alla scelta delle PIVOT !!! Eh,Eh !!!

Ti allego un ESEMPIO di PIVOT

[ramset1978]

Ciao Ricky53,
quell'istruzione è stata eleminata dal codice... mi basta solo riordinare le date.

I dati nella colonna A sono qualche migliaio ed in continuo aumento.

In merito all'ultima richiesta di chiarimento.... per le mie piccole conoscenze vba mi pare di capire che la macro legge i dati
acquisendoli di volta in volta dal foglio excel. Se invece si memorizzassero prima tutti i dati presenti nella colonna A penso, ma potrei sbagliare, che l'elaborazione sarebbe molto più veloce.
Grazie.

[ricky53]

Ciao,
si per velocizzare si può inserire tutti i dati in una Array e poi elaborare su questa array e poi scrivere i risultati sul foglio ... non è complesso ma va fatto e ... non avendo tu una conoscenza spinta non sei autonomo ... ennesima dimostrazione che le PIVOT ti sarebbero servite e saresti stato autonomo.

Hai scaricato il mo esempio?

[ramset1978]

Si Ricky l'ho scaricato e mi guarderò questi benedetti PIVOT. .
Ora però mi servirebbe quella modifica su quel codice, se qualcuno di buon cuore ha 5 minuti da perdere.