Trovare in un intervallo i numeri mancanti con formula e mac

[ikwae]

Ciao a tutti sono ancora a chiedere il vostro prezioso aiuto .

Ho dei numeri dall’1 al 90, senza ripetizioni, di cui 85 sono nell’intervallo P4:T20 e devo trovare i 5 numeri mancanti
da scriverli nel range P21:T21. L’aiuto che cerco è una macro che legga l’intervallo e scriva i numeri mancanti.

Prima di chiedere aiuto ho provato in rete qualche soluzione ma non ne ho trovate. Ho trovato tantissime formule
che “pescano” i numeri o in una sola colonna o in una sola riga e nessuna che fa riferimento a un intervallo di righe e colonne.

Allego un file con 2 fogli il primo di nome Sviluppo e contiene una delle tante formule trovate in rete che funziona bene (ringrazio e saluto chi l’ha scritta) ma è in colonna e per quanto possa essere facile, modificare il range in intervallo, io non ci riesco. Dopo la modifica scrive solo un numero.

Codice: Seleziona tutto

Matriciale=SE.ERRORE(PICCOLO(SE(CONTA.SE($A$1:$A$100;RIF.RIGA($A$1:$A$90))=0;RIF.RIGA($A$1:$A$90));RIGHE($A$1:$A1));"")


Il secondo foglio, Fine, contiene quello che cerco sempre se c’è qualcuno che mi concede del tempo.

Ringraziando anticipatamente tutti coloro che vorranno aiutarmi.

73 ikwae

https://www.dropbox.com/s/gi3bwbrgpyjmc ... .xlsm?dl=0

[Marius44]

Ciao
con le formule non ci vado ... a nozze, ma con VBA ...
prova questa macro

Codice: Seleziona tutto

Sub Num_Mancanti()
Set area = Range("P4:T20")
a = 15
For i = 1 To 90
    flag = 0
    For Each c In area
        If c.Value = i Then
            flag = 1
            Exit For
        End If
    Next
    If flag = 0 Then
        a = a + 1
        Cells(21, a) = i
    End If
Next i
End Sub


Fai sapere. Ciao,
Mario

[ikwae]

Ciao Marius44 la macro funziona a meraviglia l'ho provata su vari esempi e i risultati sono tutti concordi.
Grazie mille del tuo tempo prezioso e gradito dedicatomi.
73 ikwae

[Anthony47]

Eventualmente con formula:
-selezioni P21:T21
-scrivi nella barra della formula

Codice: Seleziona tutto

=PICCOLO(SE(CONTA.SE(P4:T20;RIF.RIGA(A1:A90))=0;RIF.RIGA(A1:A90);"");RIF.COLONNA(A1:E1))

-confermi con Contr-Maiusc-Enter, non il solo Enter

Ciao

[ikwae]

Ciao Anthony47 si funziona anche lei. Per prova ho cambiato di posto diverse righe e il risultato è ok.
E' un piacere postare su questo sito... Complimenti ancora perché mi avete aiutato a fare un altro passettino al completamento del mio progettino. Grazie mille dell'aiuto e del tempo molto gradito che mi avete concesso.

73 ikwae