[EXCEL] betting difficile - query e macro

[peppegiuseppe]

Ciao a tutti ragazzi... innanzi tutto mi presento sono giuseppe e sono alle prime armi con excel...
sono molto appassionato di betting e per questo vorrei automatizzare un' operazione che mi richiede troppo tempo...
naturalmente conoscendo ben poco di questo programma non so se si possa fare... allora
io ho due query, la prima che rappresenta i risultati di una giornata di calcio... quindi ho nella prima la cella la squadra in casa nella seconda la squadra fuori casa e nella terza il risultato ... http://www.statisticbet.com/campionati/ ... o_109.html
mentre nella 2 query ho la classifica della competizione sotto esame...http://www.statisticbet.com/mainstats.p ... parz=sleep
allora quello che vorrei è che il programma riconosca i pareggi della query 1 e mediante l'uso della classifica mi dica i gol segnati, le giornate disputate, e la posizione in classifica delle due squadre che hanno pareggiato... si puo fare??
grazie mille in anticipo
a presto

[Flash30005]

Ciao PeppeGiuseppe e benvenuto nel Forum

Riguardo al tuo quesito dovrei farti una domanda

La classifica generale non riporta già tutti i dati che richiedi?

Fai sapere
Ciao

[peppegiuseppe]

si effettivamente è cosi ma vorrei una cosa piu automatica... mi spiego meglio
per ogni giornata, a partire dalla 7a, analizzo la classifica della giornata precedente... così per tutte le giornate fino alla 24a. quindi se la giornata disputata è la 13a mi servono i valori (posizione in classifica, gol fatti e subiti, giornate disputate) di quella precedente, quindi della 12a.
facendo manualmente verrebbe una cosa molto lunga soprattutto se devo ripetere l'operazione per piu partite, piu giornate, piu stagioni e piu competizioni...

[Flash30005]

Apri un modulo e inserisci quanto riportato qui:

Codice: Seleziona tutto

Public Ws1, Ws2, Ws3 As Worksheet
Sub ImportaGiornate()
Application.ScreenUpdating = False
Sheets("ArchGiornate").Select
Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.statisticbet.com/campionati/Portogallo/Liga-de-Honra_99/anno_109.html" _
        , Destination:=Range("A1"))
        .Name = "anno_110"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "6,9,12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("B:B").Delete Shift:=xlToLeft
    Columns("C:C").Delete Shift:=xlToLeft
    Columns("D:D").Delete Shift:=xlToLeft
    Call EliminaRigheVuote
    Call ImportaClassifica
    Worksheets("ClassAna").Select
    Application.ScreenUpdating = True
End Sub
Sub ImportaClassifica()

    Sheets("ClassGen").Select
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.statisticbet.com/mainframe.php", Destination:=Range("A1"))
        .Name = "mainframe"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Sub EliminaRigheVuote()

UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR3 = Ws3.Range("AD" & Rows.Count).End(xlUp).Row
Ws3.Range("AD2:AD" & UR3).ClearContents
Conta = 0
For RV = UR1 To 1 Step -1
If Ws1.Range("A" & RV).Value = "" Then
Conta = Conta + 1
Else
Conta = 0
End If
If Conta > 1 Then Rows(RV & ":" & RV).Delete Shift:=xlUp
Next RV
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RD = 1 To UR1 - 8 Step 10
StrD = Ws1.Range("A" & RD).Text

If Mid(StrD, 1, 9) = "Risultati" Then
DataS = DateSerial(Val(Mid(StrD, Len(StrD) - 3, 4)), Val(Mid(StrD, Len(StrD) - 6, 2)), Val(Mid(StrD, Len(StrD) - 9, 2)))
Ws1.Range("A" & RD).Value = DataS
UR3 = Ws3.Range("AD" & Rows.Count).End(xlUp).Row + 1
Ws3.Range("AD" & UR3).Value = DataS
End If
Next RD
Ws3.Select
UR3 = Ws3.Range("AD" & Rows.Count).End(xlUp).Row
    Ws3.Range("Y1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AD$2:$AD$" & UR3
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub
Sub CreaClassifica()

'Set Ws1 = Sheets("ArchGiornate")
'Set Ws2 = Sheets("ClassGen")
'Set Ws3 = Worksheets("ClassAna")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
DataC = Ws3.Range("Y1").Value
For RD = 1 To UR1 - 8 Step 10
    If Ws1.Range("A" & RD).Value = DataC Then URD = RD - 2
Next RD

Ws3.Range("B2:U17").ClearContents

For SqC = 2 To 17

Sq = Ws3.Range("A" & SqC).Value
For RR1 = 2 To URD
For Col = 1 To 2
   
If Ws1.Cells(RR1, Col).Value = Sq Then
    Ws3.Cells(SqC, 3).Value = Ws3.Cells(SqC, 3).Value + 1
    Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value + 1
    RisC = Ws1.Range("C" & RR1).Value
    If Col = 1 Then
        RisVC = Val(Mid(RisC, 2, 1))
        RisSqA = Val(Mid(RisC, 4, 1))
    Else
        RisSqA = Val(Mid(RisC, 2, 1))
        RisVC = Val(Mid(RisC, 4, 1))
    End If
        If RisVC > RisSqA Then
            Ws3.Range("D" & SqC).Value = Ws3.Range("D" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value + 1
        End If
        If RisVC < RisSqA Then
            Ws3.Range("F" & SqC).Value = Ws3.Range("F" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value + 1
        End If
        If RisVC = RisSqA Then
            Ws3.Range("E" & SqC).Value = Ws3.Range("E" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value + 1
        End If
        Ws3.Range("G" & SqC).Value = Ws3.Range("G" & SqC).Value + RisVC
        Ws3.Range("H" & SqC).Value = Ws3.Range("H" & SqC).Value + RisSqA
        Ws3.Range("I" & SqC).Value = Ws3.Range("G" & SqC).Value - Ws3.Range("H" & SqC).Value
        Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value + RisVC
        Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value + RisSqA
End If
Next Col

Next RR1
Ws3.Range("B" & SqC).Value = Ws3.Range("D" & SqC).Value * 3 + Ws3.Range("E" & SqC).Value * 2

Next SqC

    Range("A1:U17").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("I2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Columns("C:U").EntireColumn.AutoFit
    Range("A1").Select

End Sub



Nominerai i tre fogli con questi nomi:
"ArchGiornate"
"ClassGen"
"ClassAna"
Nel vba del foglio "ClassAna" inseirai questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$Y$1" Then Exit Sub
Call CreaClassifica
End Sub

E in Workbook all'apertura mettere

Codice: Seleziona tutto

Private Sub Workbook_Open()
Set Ws1 = Sheets("ArchGiornate")
Set Ws2 = Sheets("ClassGen")
Set Ws3 = Worksheets("ClassAna")
End Sub


Potrai mettere un pulsante per aggiornare l'archivio giornate che richiama la macro "ImportaGiornate"

Ora variando la data in Y1 del foglio "ClassAna" avrai la classifica fino alla data precedente da te richiesta

Se invece vuoi il file "chiavi in mano" scaricalo qui

Ho controllato la macro e sembra corretta ma non mi tornano i conti con la classifica del foglio "ClassGen" ottenuta tramite QueryWeb direttamente dal sito.

Fai sapere
ciao

[peppegiuseppe]

grazie di tutto quello che stai facendo
allora...
1 andando nel primo foglio noto che le giornate sono dalla 1 alla 24 mentre dovrebbero essere dalla 7 alla 24
2 la classifica invece deve andare dalla 6 alla 23
3 poi quello che noto è che non c'è la funzione principale che chiedevo ovvero questa...
"allora quello che vorrei è che il programma riconosca i pareggi della query 1 e mediante l'uso della classifica mi dica i gol segnati, le giornate disputate, e la posizione in classifica delle due squadre che hanno pareggiato..."
il tutto naturalmente automatizzato ovvero... volevo che selezionando (va benissimo quello del terzo foglio) la giornata... mi dicesse direttamente le squadre che hanno pareggiato e le altre cose che chiedevo...
perche in questo modo (come lo hai fatto tu ) l'unico aspetto migliorato è quello di non aprire pagine web....

[Flash30005]

Ti dò ragione solo sul fatto che l'analisi parta da 1 invece che 6
per il resto...

Riguardo al tuo quesito dovrei farti una domanda
La classifica generale non riporta già tutti i dati che richiedi?

si effettivamente è cosi ma vorrei una cosa piu automatica... mi spiego meglio
per ogni giornata, a partire dalla 7a, analizzo la classifica della giornata precedente... così per tutte le giornate fino alla 24a. quindi se la giornata disputata è la 13a mi servono i valori (posizione in classifica, gol fatti e subiti, giornate disputate) di quella precedente, quindi della 12a.
facendo manualmente verrebbe una cosa molto lunga soprattutto se devo ripetere l'operazione per piu partite, piu giornate, piu stagioni e piu competizioni...

Ciò che ho realizzato è la classifica storica, decidi tu quale giornata analizzare, non credo che il web ti dia oggi la classifica alla dodicesima 12ª giornata.

A questo punto dovresti fare un esempio visivo di come vorresti questa classifica che, a me sembra, riporti tutto ciò che richiedi chiaramente nel foglio ClassAna (non ClassGen)

Attendo schema dei dati di output

ciao

[peppegiuseppe]

http://www.megaupload.com/?d=2AFKQCOI
eccoooo

[Flash30005]

Eccooooo

Codice: Seleziona tutto

Sub CreaClassifica()
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
DataC = Ws3.Range("Y1").Value
For RD = 1 To UR1 - 8 Step 10
    If Ws1.Range("A" & RD).Value = DataC Then URD = RD - 2
Next RD

Ws3.Range("B2:U17").ClearContents
Ws3.Range("A2:A17").Interior.ColorIndex = xlNone
For SqC = 2 To 17

Sq = Ws3.Range("A" & SqC).Value
For RR1 = 51 To URD
If RR1 > URD - 8 Then
    Mem = 1
Else
Mem = 0
End If
For Col = 1 To 2
   
If Ws1.Cells(RR1, Col).Value = Sq Then
    Ws3.Cells(SqC, 3).Value = Ws3.Cells(SqC, 3).Value + 1
    Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value + 1
    RisC = Ws1.Range("C" & RR1).Value
    If Col = 1 Then
        RisVC = Val(Mid(RisC, 2, 1))
        RisSqA = Val(Mid(RisC, 4, 1))
    Else
        RisSqA = Val(Mid(RisC, 2, 1))
        RisVC = Val(Mid(RisC, 4, 1))
    End If
        If RisVC > RisSqA Then
            Ws3.Range("D" & SqC).Value = Ws3.Range("D" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value + 1
        End If
        If RisVC < RisSqA Then
            Ws3.Range("F" & SqC).Value = Ws3.Range("F" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value + 1
        End If
        If RisVC = RisSqA Then
            Ws3.Range("E" & SqC).Value = Ws3.Range("E" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value + 1
            If Mem = 1 Then Ws3.Range("A" & SqC).Interior.ColorIndex = 6
        End If
        Ws3.Range("G" & SqC).Value = Ws3.Range("G" & SqC).Value + RisVC
        Ws3.Range("H" & SqC).Value = Ws3.Range("H" & SqC).Value + RisSqA
        Ws3.Range("I" & SqC).Value = Ws3.Range("G" & SqC).Value - Ws3.Range("H" & SqC).Value
        Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value + RisVC
        Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value + RisSqA
End If
Next Col

Next RR1
Ws3.Range("B" & SqC).Value = Ws3.Range("D" & SqC).Value * 3 + Ws3.Range("E" & SqC).Value * 2

Next SqC

    Range("A1:U17").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("I2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Columns("C:U").EntireColumn.AutoFit
    Range("A1").Select

End Sub



Sostituisci solo questa macro (CreaClassifica) che trovi nel modulo1

E nella macro EliminaRigheVuote (verso la fine)
sostituire questa riga

Codice: Seleziona tutto

        xlBetween, Formula1:="=$AD$8:$AD$" & UR3

Che è la riga di convalida che non prenderà in considerazione le giornate da 1 a 6 (per la selezione giornata analisi)

Ciao

P.s. Mi hai inviato l'esempio per la giornata 7 quindi con classifica alla 6ª ma come mai ci sono tutte quelle partite giocate se dobbiamo considerare dalla sesta in poi? Dovremmo avere solo una partita giocata, o ho interpretato male qualcosa?

[peppegiuseppe]

P.s. Mi hai inviato l'esempio per la giornata 7 quindi con classifica alla 6ª ma come mai ci sono tutte quelle partite giocate se dobbiamo considerare dalla sesta in poi? Dovremmo avere solo una partita giocata, o ho interpretato male qualcosa?

non capisco nella classifica si vede chiaramente nella colonna H che le giornate sono 6
in pratica a me interessano le giornate dalla 7 alla 24, che poi ci siano altre partite (1a-6a/ 25a-30a) non importa...

[peppegiuseppe]

scusami non avevo salvato il file quindi non posso modificarlo... ho cercato di riscaricarlo ma non riesco più

[Flash30005]

Cosa significa non avevi salvato il file?
Per fare il test devi averlo scaricato e salvato su disco

eventualmente l'hai cancellato!

Forse perché non lo ritenevi interessante?

Beh, conserva questo perché non lo invierò un'altra volta

http://www.megaupload.com/?d=VFZQLMSI

Ciao

[peppegiuseppe]

Cosa significa non avevi salvato il file?
Per fare il test devi averlo scaricato e salvato su disco

eventualmente l'hai cancellato!

Forse perché non lo ritenevi interessante?

Beh, conserva questo perché non lo invierò un'altra volta

http://www.megaupload.com/?d=VFZQLMSI

Ciao

non giungere a conclusioni affrettate avevo semplicemente scelto l'opzione apri il file... piuttosto che salva il file... ecco tutto
ti ringrazio ancora una volta del tempo che mi stai dedicando
ma c'è ancora qualcosa che non va...
1) selezionando la classifica la prima data utile è il 6/ 11 ma dovrebbe essere 31/10 6a di campionato, mentre l'ultima disponibile è il 10/4 mentre dovrebbe essere 3/4 23a di campionato....
infatti come ti avevo spiegato la situazione dovrebbe prospettarsi in questo modo....
trova pareggi della X giornata... e seleziona squadre nella classifica alla (X-1) giornata... quindi se ho "a vs b " che pareggiano alla 10 giornata mi interessa che vengano evidenziate a e b nella classifica aggiornata alla 9 a giornata
2) andando sulla classifica del 6/11 le giornate disputate (colonna C) sono 1 ma dovrebbero essere 7

edit............ quindi tutta la classifica è sbagliata non riesco a capire perche

[peppegiuseppe]

allora sono riuscito a sistemare il 1 punto così.... nella macro importa giornate
WebTables = "24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75"
così ci sono le giornate dalla 7 alla 24
ora manca solo da sistemare la classifica che deve andare dalla 6 alla 23
il programma deve girare in questo modo
GIORNATA DEL PAREGGIO--------------CLASSIFICA DOVE EVIDENZIARE
...........7..............................................6....................
...........8..............................................7....................
...........9..............................................8....................
e così via...
un ultima cosa.... la classifica anche se parte dalla 6 deve contenere anche i risultati delle prime 5 quindi se la squadra A aveva 13 punti nelle prime 5 giornate, nella nostra classifica,anche separte solo dalla 6, si deve comunque vedere...

[Flash30005]

I file sul server host, tutti sanno che, prima o poi, non sono più disponibili quindi potrei capire la tua azione di aprire e non salvare per un utente che è incappato nel tuo topic, ha visto il file, non ha trovato interesse e chiude (senza salvare) ma non concepisco questo atteggiamento se a farlo è lo stesso interessato
I ringraziamenti a parole non suffragati dai fatti non hanno lo stesso "effetto"

Per quanto riguarda il punto 1)
specifico che è un discorso del tutto soggettivo e spiego:
tu hai detto di voler analizzare la 7ª giornata (quindi non poter selezionare la 6ª)

non capisco nella classifica si vede chiaramente nella colonna H che le giornate sono 6
in pratica a me interessano le giornate dalla 7 alla 24, che poi ci siano altre partite (1a-6a/ 25a-30a) non importa...

A me come settima giornata risulta quella del 06/11/2010
1ª 28/08/2010
2ª 12/09/2010
3ª 26/09/2010
4ª 03/10/2010
5ª 23/10/2010
6ª 31/10/2010

7ª 06/11/2010
e intendo settima giornata da analizzare riportando i dati pareggi della sesta giornata
e il programma originale fa proprio questo

Per il punto 2
Hai detto sempre che vuoi analizzare dalla settima partita in poi senza considerare le precedenti quindi con la modifica della riga

Codice: Seleziona tutto

For RR1 = 51 To URD

Ho escluso le prime 5 giornate
se vuoi ripristinare tutte le 24 giornate per l'analisi non devi far altro che mettere 2 al posto di 51
in qesta maniera:

Codice: Seleziona tutto

For RR1 = 2 To URD

E dovresti aver risolto altrimenti posta ancora

ciao

[peppegiuseppe]

perdonami flash ma la classifica è ancora sbagliata... infatti andando alla classifica 8-01 (13 a giornata) che dovrebbe corrispondere alla giornata 12-12 (12 a giornata) dovrebbe essere così/// invece escono questi valori
squadra pt giocate squadra pt giocate
Feirense 21 12 Oliveirense 26 12
Trofense 20 12 Trofense 26 12
Oliveirense 20 12 Belenenses 25 12
Leixoes 17 12 Penafiel 24 12
Arouca 17 12 Gil Vicente 24 12
Gil Vicente 17 12 Leixoes 24 12
Estoril 16 12 Santa Clara 23 12
Varzim 16 12 Arouca 21 12
Santa Clara 16 12 Feirense 20 12
Penafiel 16 12 Moreirense 20 12
Moreirense 15 12 Freamunde 18 12
Covilha 14 12 Aves 17 12
Aves 13 12 Covilha 17 12
Freamunde 13 12 Estoril 16 12
Belenenses 13 12 Varzim 16 12
Fatima 9 12 Fatima 14 12


e cosi per tutte le giornate... sono sbagliate

[Flash30005]

Non credo proprio che siano sbagliate la macro non sbaglia
semmai sono le condizioni inserite che dipendono dalla non chiara esposizione del quesito
non posso seguire il tuo ragionamento...
se seleziono a data ottengo questi valori e aggiungi sono tutte sbagliate
non posso sapere invece come dovrebbero essere quei valori
Inizialmente dicevi di non volere tutte le 24 partite, ho quindi messo 51 l'inizio del conteggio
dopo dici che vorresti anche le prime 6 giornate e dici che è tutto sbagliato.
Ripeto di sbagliato o meglio confusa è la meta da raggiungere perché ti assicuro che la macro è perfetta!

Per trovare una soluzione dovresti elaborare a data,
e a fianco creare una classifica come dovrebbe essere o che ritieni debba essere
invii il file senza modificare la data di estrazione

Ciao

[peppegiuseppe]

ascolta flash forse non hai visto bene ma nel mio messaggio precedente ho scritto come dovrebbe essere la classifica...

squadra pt giocate
Feirense 21 12
Trofense 20 12
Oliveirense 20 12
Leixoes 17 12
Arouca 17 12
Gil Vicente 17 12
Estoril 16 12
Varzim 16 12
Santa Clara 16 12
Penafiel 16 12
Moreirense 15 12
Covilha 14 12
Aves 13 12
Freamunde 13 12
Belenenses 13 12
Fatima 9 12

I toni si sono accesi senza una motivazione ben precisa, sono molto dispiaciuto di questo e se ad occhi esterni puo sembrare che io cambi idea e meta ogni 2 minuti ti posso assicurare che non è affatto cosi, forse non mi sono fatto capire bene...
Comunque io confido ancora in un tuo aiuto, che sicuramente mi è molto gradito e utile.
Ritornando al discorso se decido di voler analizzare i pareggi di una giornata ad esmpio quella del 8/01 .... (13a giornata) le squadre che pareggiano devono essere evidenziate nella classifica della GIORNATA PRECEDENTE in questo caso quindi nella 12a
Mi sembra chiaro, se cosi non fosse rendimelo noto
a presto

[Flash30005]

Perché vuoi complicare la vita a me quando io cerco di facilitartela?

Ti ho inviato un file con macro!?
Bene!
Ti sto chiedendo, solo, di inserire una data ed elaborare
scrivere a fianco i valori che vorresti avere e rispedirmi il file.

E' complicato?
Penso che hai impiegato più tempo a fare i due post con il listato
Listato che dovrei riportare sul foglio per confrontare le discordanze

[peppegiuseppe]

ecco fatto puoi prenderlo qui http://www.fileserve.com/file/MUtaUJc/ClassificaBetting3.xlsm

[Flash30005]

Mi dispiace dovertelo dire ma ancora una volta i tuoi conteggi sono errati.
Ho effettuato una verifica con delle formule che troverai nel foglio "Archivio" delle partite VNP in casa e fuori casa di una squadra che hai messo come prima classificata (Feirense) e le formule forniscono lo stesso risultato della macro
quindi a questo punto dovresti chiarire come ottieni quei risultati, perché a me a quella data 8/01/2011 (in analisi) mi risulta la Oliveirense

Invio il file di verifica

Ciao