calcola esiti ultime 5 partite

[raimea]

ciao
se possibile, avrei bisogno di una super macro....

vorrei calcolare gli esiti delle ultime 5 partite piu recenti di ogni squadra

in col AD4: in giu ho l'elenco alfabetico di tutte le mie squadre che devo analizzare.

partendo dal "basso" di colonne Al e AN, con le partite piu recenti ,
vorrei andare a ritroso fino a trovare l'esito delle ultime 5 partite
e riportarlo nelle celle di col AE, AF, AG

quindi in AE il numero di quante vinte, AF quante pareggiate , AG quante perse.

la ricerca delle ultime 5 partite di una squadra va fatta sia in col AL che AN
quindi non mi interessa se in casa o fuori casa , ma mi serve l'esito generale
delle ultime 5 partite.

vi allego il file
https://dl.dropboxusercontent.com/u/96374724/ultime%205.rar

grazie
ciao

[Flash30005]

Perché limitare agli ultimi 5 incontri e non a tutti gli incontri già consolidati e fare una percentuale?
esempio se la squadra Pippo ha giocato 9 incontri ne ha vinti 4, pareggiati 2 e persi 3
avresti 44% vittorie, 22% pareggi e il 33% di perdite (resti a parte)

ciao

[raimea]

ciao
mi servirebbero solo le ultime 5 per calcolare il "picchetto "forma".

cosa che attualmente calcolo manualmente per la singola partita
che mi interessa , ricavando l'esito ultime 5 , andando in internet a cercarlo.



ho pensato che avendo un archivio potrei ricavalo .


grazie
ciao

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub SaluteSq()
Dim FA As Worksheet, myMatch
Set FA = Sheets("Archivio")
URAD = FA.Range("AD" & Rows.Count).End(xlUp).Row
FA.Range("AE4:AG" & URAD).ClearContents
URAL = FA.Range("AL" & Rows.Count).End(xlUp).Row
For RAL = URAL To 4 Step -1
    If FA.Range("AL" & RAL).Value <> 0 Then
        UREFF = RAL
        Exit For
End If
Next RAL
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RAD = 4 To URAD
    NomeSq = FA.Range("AD" & RAD).Value
    ContaP = 0
    For RAL = UREFF To 4 Step -1
        Esito = ""
        If NomeSq = FA.Range("AL" & RAL).Value Then
            Esito = FA.Range("AM" & RAL).Value
        End If
        If NomeSq = FA.Range("AN" & RAL).Value Then
            Esito = UCase(FA.Range("AO" & RAL).Value)
        End If
        If Esito <> "" Then
            ContaP = ContaP + 1
            Select Case Esito
                Case "V"
                Col = 31
                Case "X"
                Col = 32
                Case "P"
                Col = 33
            End Select
            FA.Cells(RAD, Col).Value = FA.Cells(RAD, Col).Value + 1
            If ContaP >= 5 Then GoTo SaltaRad
        End If
    Next RAL
SaltaRad:
Next RAD
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Impiega un po' di tempo anche se ho cercato di ridurre il tempo di esecuzione con la ricerca dell'ultima riga effettiva nella colonna AL dove hai delle formule fino alla riga 40000 quando gli incontri attuali popolano fino alla riga 5000

Ciao

[raimea]

ciao
è vero ho messo formule fino riga 40000
xche il fgl archivio si amplia ogni giorno, quindi ho dovuto restare di manica larga,
appena posso la macro e faccio sapere
grazie

[raimea]

ciao
PERFETTA...

considerando il super lavoro che deve svolgere
il tempo che ci impiega e' nulla....


grazie

ciao