Condividi:        

esito V_P di ogni quota

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

esito V_P di ogni quota

Postdi raimea » 25/11/22 15:12

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
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: esito V_P di ogni quota

Postdi Anthony47 » 25/11/22 18:35

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

Re: esito V_P di ogni quota

Postdi raimea » 25/11/22 19:15

ciao
tutto ok

si la associo con la call.....

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "esito V_P di ogni quota":


Chi c’è in linea

Visitano il forum: Nessuno e 60 ospiti