Condividi:        

Indicizzare date fine mese

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Indicizzare date fine mese

Postdi Statix » 16/05/12 09:10

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

Immagine

seconda foto, a così

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 09:28

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
Ultima modifica di Statix su 16/05/12 09:34, modificato 1 volte in totale.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 09:32

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 ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 09:38

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
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 10:08

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 10:52

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.
Ultima modifica di Statix su 16/05/12 11:01, modificato 1 volte in totale.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 11:00

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 !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 11:09

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
Ultima modifica di Statix su 16/05/12 11:16, modificato 1 volte in totale.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 11:15

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 11:28

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
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 11:41

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 12:40

Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi ricky53 » 16/05/12 13:34

Scarico e ci risentiamo ... sperando che il firewall non mi blocchi
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indicizzare date fine mese

Postdi Flash30005 » 16/05/12 13:37

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 13:51

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
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 14:11

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
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 14:25

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.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi Anthony47 » 16/05/12 14:46

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Indicizzare date fine mese

Postdi Statix » 16/05/12 15:00

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
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Indicizzare date fine mese

Postdi Flash30005 » 16/05/12 15:10

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Indicizzare date fine mese":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti