elaborare ogni tipo di evento

[raimea]

ciao
con una macro vorrei elaborare la col I8 del fgl generale
e riportarne i valori nel fgl tabelle

analizzando fgl generale I8 vorrei contare quante volte ho i valori:

ov 05 1T - Und 1,5 1T - Ov 0,5 FT

e riportarlo in fgl tabelle col AV7
ed a fianco ad ognuno dei 3 valori quante volte e' stato V_P

questo lo si preleva dal fgl generale col K8

vi allego il file

https://www.dropbox.com/scl/fi/pw7m2hi0taphyfzjwukxp/filtra_tipo.xlsm?rlkey=gwea0xjas5km025sjrn8b4nf6&dl=0

ciao

[Anthony47]

Non puo’ bastare farlo con formule? Tipo:
-in AW7

Codice: Seleziona tutto

=CONTA.SE(generale!$I$8:$I$300;AV7)

-in AX7

Codice: Seleziona tutto

=MATR.SOMMA.PRODOTTO(--(generale!$I$8:$I$300=$AV7);--(generale!$K$8:$K$300=AX$6))

-copia AX7 in AY7
-copia la prima riga di formule nelle due righe sottostanti

Oppure via macto:

Codice: Seleziona tutto

Sub GetDets()
Dim oArr(1 To 3, 1 To 3) As Integer, myC As Range
Dim iTipo As Range, myMatch, iData As Range
'
Set iTipo = Sheets("Tabelle").Range("AV7")
Set iData = Sheets("generale").Range("I8")
'
For Each myC In Range(iData, iData.End(xlDown))
    myMatch = Application.Match(myC.Value, iTipo.Resize(3, 1), False)
    If Not IsError(myMatch) Then
        oArr(myMatch, 1) = oArr(myMatch, 1) + 1
        If myC.Offset(0, 2) = "V" Then
            oArr(myMatch, 2) = oArr(myMatch, 2) + 1
        ElseIf myC.Offset(0, 2) = "P" Then
            oArr(myMatch, 3) = oArr(myMatch, 3) + 1
        End If
    End If
Next myC
iTipo.Offset(0, 1).Resize(3, 3) = oArr
End Sub


NB: in ambedue i casi e' sottinteso che le celle Tabelle!AV7:AV9 siano compilate con i tre possibili valori di Tipo

Ciao

[raimea]

ciao

e' tutto ok

entrambe le soluzioni ovviamente funzionano.

Ma ho optato per il VBA come da richiesta,
perche' poi il file viene usato anche da altri amici
e sono sicuro che prima o poi qualcuno mi cancella le formule

grazie

[raimea]

ciao
in fgl tabelle col AV7
ho inserito un 4to valore >> Over 3,5FT

solo che non viene analizzato come gli altri 3 in cella AV7_8_9

il valore Over 3,5FT da cercare , e' in fgl generale e' in riga 26

vi allego il file

https://www.dropbox.com/scl/fi/fwhp1j3n3uypcprxqla10/filtra_tipo_puntata.xlsm?rlkey=hyocl1cnuxb72rpyp1qly4t3n&dl=0

ciao

[Anthony47]

La macro e' impostata per 3 options
Per portarlo a 4 elementi devi mettere a 4 le X nelle seguenti istruzioni:

Codice: Seleziona tutto

Dim oArr(1 To X, 1 To 3) As Variant

(attenzione che ho modificato As Variant)

Codice: Seleziona tutto

myMatch = Application.Match(myC.Value, iTipo.Resize(X, 1), False)

Codice: Seleziona tutto

iTipo.Offset(0, 1).Resize(X, 3) = oArr

Prova pero' a mettere 7 (invece che 4): dovresti così avere spazio per tutte le 7 righe che vedo pronte in colonna AV senza modificare quando aumenti a 5, a 6 e a 7

Ciao

[raimea]

ciao
tutto ok
ho messo subito il controllo x 7 combinazioni

grazie