Indicizzare date fine mese

[Statix]

Ciao a tutti,dovrei indicizzare le date fine mese o inizio mese di un archivio di circa 5000 date,
cioè ad ogni fine mese 1 poi 2,3 etc.etc.
con una macro,in modo che posso scegliere se fine o inizio mese
allego foto dei riferimenti



seconda foto, a così

[Statix]

Dimenticavo un particolare le celle delle date sono in parte
formattate Data e un altra in Testo,
se è possibile una macro che mette a posto anche questa situazione.
inoltre per fine mese intendo l'ultima data del mese che è in archivio che potrebbe essere 27,28,29, e non neccessariamente 30 o 31

[ricky53]

Ciao,
perchè non vuoi evidenziare gennaio, marzo, aprile, giugno.

Devi evidenziare tutti i mesi o ...???

Immagino che la tua esigenza sia più complessa e che tu debba fare altre cose sui dati.


Saprebbe preferibile che tu esponessi le tue necessità globali e ... potremmo aiutarti meglio.
Cortesemente leggi la mia firma e ...

[Statix]

Ciao ricky53,
devo indicizzare la data di fine mese dell'archivio,
quindi una per ogni mese,tipo 1-2-3-4-5-in colonna B,
le date di fine mese dell'archivio non sempre coincidono con 30 e 31.
in effetti mi serve per testare dei metodi con date fine mese o inizio mese,
dovendo fare dei report della ricerca,devo usare un ciclo che mi vada a prendere solo le date della fine del mese,
esempio se faccio un ciclo da 1 a 100 (100 datedi fine mese)devo per forza indicizzarle per riconoscerle

[ricky53]

Caio,
ma se fai un ciclo non occorre altro, quando scorri le date, che un controllo sul mese della data i-esima e per mese diverso dalla data i-esima+1 fai ... quello che ti occorre.

Se descrivi con maggiori dattagli e fai riferimento alle colonne ti posso aiutare, se vuoi, a scrivere il codice.

[Statix]

i riferimenti sono come nelle foto allegate,
mi basta una macro che mi indicizza le date che sono a fine mese o inizio mese
per il resto vedo dopo,il ciclo non fa altro che prendere quelle estrazioni indicizzate e fare dei riscontri.

[ricky53]

Ciao,
quanto hai scritto può servire solo a mettere 1, 2, 3, ..., nella colonna "B" ad ogni ultima data di ogni mese del tuo elenco.
Non è detto che sia la soluzione migliore per quanto devi ottenre come prodotto finale.

Scusa la franchezza: probabilmente non puoi/vuoi dare altre notizie altrimenti avresti dato maggiori informazioni per arrivare al risultato.
No problem ... sono sempre QUI !!!

[Statix]

ok non è che non vorrei spiegare cosa devo fare è che mi è difficile spiegarlo,
posso provarci,devo testare un metodo del lotto,
il metodo non fa altro che prendere l'ultima estrazione del mese fare dei calcoli sommativi
e il risultato verificato nelle 13 estrazioni successive,
quindi volendo fare un report delle ultime 100 estrazioni fine mese,
per me è più semplice indicizzare queste estrazioni che poi con un cerca.vert. le vado a prendere nell'archivio
tra tutte le altre.
PS nella seconda foto ho saltato per errore una data

[ricky53]

Ciao,
e non fai prima, senza indicizzare in colonna "B", a prendere - nel ciclo - le date che ti occorrono e poi proseguire nell'elaborazione?

Lo avevo già scritto prima.

Puoi inviare il codice che utilizzi per preparare il report ... potremmo vedere se si può intervenire in quel codice.

[Statix]

Non ho ancora scritto nessun codice,
non sono abbastanza bravo con le macro,mi limito ad usare molto le formule.
ripeto ,per me una volta indicizzato l'archivio delle estrazioni fine mese o inizio mese (a scelta)
dopo con un ciclo e cerca.vert riesco ad andare avanti,
l'estrazione che viene presa viene elaborata con altre estrazioni(metodo abbastanza complesso ha molte condizioni)
è il risultato del metodo dopo viene controllato nelle successive 13 estrazioni consecutive no fine mese,
questo per ogni ciclo.potrei farlo anche a mano tanto su 5000 estrazioni sono solo 700 quelle a fine mese o inizio mese.
con la macro potrei decidere se fine o inizio mese o addirittura la seconda o terza del mese.
quindi indicizzare a piacere l'archivio

[ricky53]

Ciao,
con il lotto non sono a mio agio ... lascio a Flash la questione di capire cosa viene fatto o si vuole fare.

Io posso solo aiutarti a scrivere il codice ma mi occorre un file di prova con la struttura BEN definita e ... con alcuni chiarimenti che verrano da me posti quando avrò visto il file ... se vuoi/puoi inviarlo.

[Statix]

http://uploading.com/files/5dm11ce4/Test%2Bindice.zip/

[ricky53]

Scarico e ci risentiamo ... sperando che il firewall non mi blocchi

[Flash30005]

In J2 inserisci questa convalida
Consenti: Elenco
Origine: 1;2;3;4

e in un modulo questa macro

Codice: Seleziona tutto

Sub TrovaEstr()
UR = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
Range("B3:B10000").ClearContents
Dim Vs(4) As Integer
Dim SR(4) As Integer
MM = ""
CS = 0
For RR = 3 To UR
    If Len(Range("C" & RR).Value) > 9 Then
        If Month(Range("C" & RR).Value) <> MM Then
            For RS = 1 To 4
                If Range("J2").Value = RS Then
                    CS = CS + 1
                    Range("B" & RR).Value = CS
                    RR = RR - 1
                End If
                RR = RR + 1
            Next RS
            MM = Month(Range("C" & RR).Value)
        End If
    End If
Next RR
End Sub


Per attivare la macro ad ogni variazione della settimana in J2 inserisci nel vba del foglio questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$2" Then Exit Sub
TrovaEstr
End Sub


Ciao

[Statix]

Ciao Flash30005,
trovo la tua macro molto ingegniosa,mi piace come èstata impostata,
ho fatto delle prove, funziona abbastanza bene,ma c'è ancora qualcosa che non va,
impostando a 4 ho visto che non riesce a trovare l'ultima del mese,qualcuna viene saltata,
quindi non è precisa.se scarichi il foglio test vedrai tu stesso l'errore.

[Statix]

Questo succede perche l'archivio e fatto di estrazioni mensili variabili,
anni fa erano 4 poi 7/8 e per finire 12/13/14 al mese
ecco il motivo perche la macro non funziona bene con 4,
mentre 1,2,3 va benissimo,

[Statix]

Ciao Flash30005,
se ti può essere d'aiuto,ho risolto provvisoriamente con un trucchetto,
elaboro la macro con impostazione ad 1 e dopo sposto di una cella in su,
l'indicizzazione dell'archivio dell'ultima del mese è perfetta.

[Anthony47]

Non mi e' chiaro se vuoi un conteggio che arriva a 12 e riparte da 1 oppure che parte da 1 (indipendentemente dalla prima data presente in elenco) e arriva a 1000 (o quanti sono i mesi di statistica disponibili in elenco)
Con formule:
-per conteggio incrementale, in B9 metti la formula

Codice: Seleziona tutto

=SE(MESE(C9)=MESE(C10);"";MAX($B$3:$B8)+1)

-oppure, per conteggio 1:12

Codice: Seleziona tutto

=SE(MESE(C9)=MESE(C10);"";MESE(C9))

-copi verso il basso

Se vuoi convertire eventuali testi in data:
-in I9 (o altra colonna libera) metti la formula

Codice: Seleziona tutto

=SE(VAL.NUMERO(C9);C9;DATA.VALORE(C9))

-copia verso il basso.
-poi copia i dati di colonna I e "incolla-speciale /valori in C

Ciao

[Statix]

Ciao Anthony47,

la macro di Flash30005,
è perfetta era proprio quella che cercavo,unico inconveniente e che non avevo pensato
alle estrazioni passate e quelle recenti,anni fa erano 4/5 mensili adesso arrivano anche a 13/14 al mese,
visto che mi interessava maggiormente la prima o l'ultima del mese ,per me va bene già così,
provvisoriamente ho messo una condizione nella macro che mi aggiusta l'indicizzazione dell'ultima del mese
per le correzioni delle formattazioni Data e Testo seguirò il tuo consiglio ,
grazie

[Flash30005]

Beh mi devi dire tu, a questo punto, cosa vorresti avere
un elenco fino a 13/14 estrazioni/mese? (è sufficiente incrementare la convalida)
oppure solo inizio e fine mese ma perdiamo le estrazioni intermedie.

ciao

EDIT: Nel frattempo ho modificato così
da 1 a 3 avrai le prime tre estrazioni del mese
con 4 impostato in J2 avrai l'ultima estrazione del mese

Codice: Seleziona tutto

Sub TrovaEstr()
UR = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
Range("B3:B10000").ClearContents
MM = ""
CS = 0
For RR = 3 To UR
    If Len(Range("C" & RR).Value) > 9 Then
        If Month(Range("C" & RR).Value) <> MM Then
            If Range("J2").Value <> 4 Then
                For RS = 1 To 4
                    If Range("J2").Value = RS Then
                        CS = CS + 1
                        Range("B" & RR).Value = CS
                        RR = RR - 1
                    End If
                    RR = RR + 1
                Next RS
                MM = Month(Range("C" & RR).Value)
            Else
                If MM <> "" Then
                CS = CS + 1
                Range("B" & RigaP).Value = CS
                End If
            End If
        Else
            RigaP = RR
        End If
        MM = Month(Range("C" & RR).Value)
    End If
Next RR
End Sub