contare la consecutivita

[raimea]

ciao
tramite macro
vorrei compilare la tabella consecutivita' in fgl squadre Col AC7:AC21

analizzando fgl generale col K8:K
contare quante volte ho avuto 1 sola consec. con segno V e poi 1na Con P
poi quante volte ho avuto 2 volte consec. V e poi 2 volte P
quante volte ho avuto 3 volte consec. V e poi 3 volte P ecc...

andando a riportare i dati ottenuti in fgl squadre
col AD7:AD21 per le vincite V consec.
e col AE7:AE21 per le perdite P consec.

vi allego il file

https://www.dropbox.com/scl/fo/5w3u7mdfgubdzhf3ze9Zc/h?dl=0&rlkey=r7g4chg7o83usbxp1b8zysw21

ciao

[Anthony47]

Il link allegato non funziona...

[raimea]

scusate...
ho sbagliato a mettere il link !!

ecco il link corretto
riferito al 1mo post:

https://www.dropbox.com/scl/fi/i6khp1gk879lv44aub01a/consecutivita.xlsm?dl=0&rlkey=l7azkhx11b80fhzg2mtc4evf5

ciao

[Anthony47]

A me questa sembra funzionare:

Codice: Seleziona tutto

Sub Consec()
Dim strVP As String, I As Long, J As Long, Ck As String
Dim lDiff As Long, oArr(1 To 15, 1 To 2)
'
strVP = Application.WorksheetFunction.TextJoin("", True, Sheets("generale").Range("K8:K10000"))
For I = 15 To 1 Step -1
    For J = 1 To 2
        If J = 1 Then Ck = "V" Else Ck = "P"
        lDiff = Len(strVP) - Len(Replace(strVP, String(I, Ck), "", , , vbTextCompare))
        If lDiff > 0 Then
            oArr(I, J) = lDiff / I
            strVP = Replace(strVP, String(I, Ck), "###", , , vbTextCompare)
        End If
    Next J
Next I
Sheets("Squadre").Range("AD7").Resize(15, 2).Value = oArr
End Sub

..e i risultati mi sembrano pure giusti

[raimea]

ciao
e' tutto ok

grazie