Ciao
con una formula non ci sono riuscito...ci vogliono quelli bravi..
Premesso che di gioco non ne so nulla, non ho capito una cosa: se tu metti in col.A tutte le estrazioni una dopo l'altra è facile che un numero esca più volte, poniamo il numero 24; ciò detto che ne so quale 24 andare a cercare per poi riportare i successivi 5 nel foglio "Spia" ?
Non so se sono stato chiaro.
Comunque il seguente codice (si può far di meglio) analizza i dati del tuo prospetto (
sempre che ho capito).
saluti
Sub Next5()
Dim ws1 As Worksheet, Rng As Range, c As Object
Set ws1 = Worksheets("Inserimento")
Worksheets("Spia Generale").Select
For r = 2 To 37
n = Cells(r, 1)
With ws1.Range("A:A")
Set c = .Find(n, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
r1 = c.Row + 1
For i = 1 To 5
n1 = .Cells(r1, 1)
Set Rng = Range("1:1").Find(n1, LookIn:=xlValues, lookat:=xlWhole)
Cells(r, Rng.Column) = 1
r1 = r1 + 1
Next i
End If
End With
Next r
End Sub
[Modificato da dodo47 10/05/2017 18:35]
Domenico
Win 10 - Excel 2016