Estrarre parte di dati da elenco

alfrimpa, 18/03/2019 12.44:

---

Ciao a tutti

In attesa di una soluzione con formule propongo questa macro

vb

Sub EstraiDati()
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, "a").End(xlUp).Row
Set rng = Range("a7:a" & ur)
Range("I10:L100").ClearContents
For Each cel In rng
lr = Cells(Rows.Count, "i").End(xlUp).Row
    If cel.Value = Range("i6").Value And Year(cel.Offset(0, 1).Value) = Range("n6").Value And cel.Offset(0, 5).Value <> "" Then
        Cells(lr + 1, "i").Value = cel.Offset(0, 1).Value
        Cells(lr + 1, "l").Value = cel.Offset(0, 5).Value
    End If
Next cel
End Sub

---