analizza ritardo e frequenza di un importo

[raimea]

ciao
tramite macro ,
vorrei analizzare il ritardo , e la frequenza di un importo.

in fgl dalambert ,
analizzando l 'importo in cella G3
vorrei analizzarlo in Col N6:N

contare tutti i ritardi fra lo stesso importo G3
e quante volte si e' presentato lo stesso ritardo.

il risultato vorrei metterlo nella tabella di fgl squadre
in AJ7:AJ il numero del ritardo
ed a fianco AK7:AK, la frequanza di quante volte si e'
presentato lo stesso ritardo .

ES
nel file allegato , il primo ritardo che si presenta e' = 11
il 2do = 1 ecc ecc

spero di essermi spiegato ,
vi allego il file

https://www.dropbox.com/scl/fi/9zxcs3e6ft4mfglsx5xe5/analizza_ritardo.xlsm?dl=0&rlkey=j8xf6ppf7ixy0zc6biw3za27t

grazie

[Anthony47]

La mia interpretazione:

Codice: Seleziona tutto

Sub GuardaG3()
Dim OArr(), colN As Range, curG3 As Single
Dim lastPos As Long, cuRit As Long, oInd As Long
'
Sheets("dalambert").Select
Set colN = Range(Range("N6"), Range("N10000").End(xlUp))
ReDim OArr(0 To colN.Rows.Count)
'
curG3 = Range("G3").Value
For i = 1 To colN.Rows.Count
    If colN.Cells(i, 1) = curG3 Then
        cuRit = i - lastPos - 1
        If i > 1 Then OArr(cuRit) = OArr(cuRit) + 1
        lastPos = i
    End If
    If colN.Cells(i, 1) = "" Then Exit For
Next i
With Sheets("Squadre").Range("AJ7")
    .Resize(UBound(OArr), 2).ClearContents
    For i = 0 To UBound(OArr)
        If OArr(i) > 0 Then
            oInd = oInd + 1
            .Cells(oInd, 1) = i
            .Cells(oInd, 2) = OArr(i)
        End If
    Next i
End With
Sheets("Squadre").Select
End Sub


Prova...

[raimea]

ciao
i conteggi sono corretti
l' interpretazione esatta.

unica accortezza se possibile,
vorrei far scrivere zero 0 in AJ7
anzicche' un trattino - e' possibile ?



ho provato a maneggiare il codice ma senza successo

ciao

[raimea]

risolto
tutto ok


ora mette lo zero

ancora grazie

[Anthony47]

Non so come hai risolto, ma il "trattino" e' il risultato di una specifica formattazione; in genere corrisponde all'icona con 000 nel tab Home, gruppo Numeri. Se applichi una formattazione, ad esempio Numeri con 0 decimali, vedrai lo 0

[raimea]

ciao

si siii
era proprio cosi

la cella aveva una formattazione errata

ciao