esito V_P di ogni quota

[raimea]

ciao
tramite macro
vorrei sapere per ogni quota impiegata
quanti esiti ho avuto vinti V e quanti persi P

in fgl squadre col N7:N ho le quote
in col O ho quante volte impiegata stessa quota.

in col P7 e Q7
vorrei scriverci quante volte quella quota ha avuto esito V e P

il controllo e' da fare in fgl generale col J con la quota impiegata
in col K c'e il relativo esito

vi allego il file

https://www.dropbox.com/scl/fi/cgdkukpsdr031nrajj973/quote_esito.xlsm?dl=0&rlkey=luj3hncvli8czqtjf52floqby


ciao

[Anthony47]

Avrei voluto inserire il calcolo V/P all'interno della Sub QuoteNSort, ma ho visto che la usi per scrivere in piu' parti di Squadre; quindi opto per una sub a sé stante, anche se ha alcune definizioni in comune con la suddetta Sub QuoteNSort.
Il codice:

Codice: Seleziona tutto

Sub ContaVnP()
Dim StaQ As Range, OutR As Range, Cri1Adr As String, Cri2Adr As String
Dim SortR As Range

Set StaQ = Sheets("generale").Range("J8")       '<<< Da dove leggere le quote in origine (e l'esito)
Set SortR = Sheets("Squadre").Range("N7")       '<<< Da dove leggere le quote uniche
Set OutR = Sheets("Squadre").Range("P7")        '<<< Dove scrivere il risultato

Cri1Adr = Range(StaQ, StaQ.End(xlDown)).Address(External:=True)
Cri2Adr = Range(StaQ, StaQ.End(xlDown)).Offset(0, 1).Address(External:=True)
For i = 1 To 1000
    OutR.Cells(i, 1) = Evaluate("COUNTIFS(" & Cri1Adr & "," & Replace(SortR.Cells(i, 1).Value, ",", ".", , , vbTextCompare) & "," & Cri2Adr & ",""V"")")
    OutR.Cells(i, 2) = Evaluate("COUNTIFS(" & Cri1Adr & "," & Replace(SortR.Cells(i, 1).Value, ",", ".", , , vbTextCompare) & "," & Cri2Adr & ",""P"")")
    If Len(SortR.Cells(i + 1, 1).Value) = 0 Then Exit For
Next i
End Sub


Eventualmente la "chiami" dalla Sub QuoteNSort con Call ContaVnP
Ciao

[raimea]

ciao
tutto ok

si la associo con la call.....

grazie