salve
questa è la funzione modificata che controlla non solo i nuimeri mancanti ma anche le sequenze mancanti.
Public Function ControllaSequenza(rng As Range) As String
For Each CL In rng
If CL.Offset(1, 0) = "" Then Exit For
If CL.Offset(1, 0).Value <> CL.Value + 1 Then
If CL.Offset(1, 0).Value - CL.Value > 2 Then
y = y & "-" & CL.Value + 1 & "-" & CL.Offset(1, 0).Value - 1
Else
x = x & "-" & CL.Value + 1
End If
End If
Next
If x = "" And y = "" Then
ControllaSequenza = "sequenza corretta"
Else
ControllaSequenza = "Numero Mancante" & x & " -" & "SEQUENZA MANCANTE DA " & y
End If
End Function
nell'elenco che hai mandato risulta questo: SEQUENZA MANCANTE: DA 176190-176200
Ho copiato la funzione sopra descritta nel modulo di visual Basic
dal foglio di excel Alt+F11 per aprire l'editor di Visual Basic
Dal Menù Inserisci scegli "Modulo"
nella pagina bianca che si apre incolla il codice da Public Function fino a End Function
con Alt+F11 torna al foglio di Excel
Ordina la tabella per il numero tessera in ordine crescente
in una cella qualsiasi inserisci la funzione ControllaSequenza che troverai tra le funzioni definite dall'utente
la formula che vedrai scritta se fatto tutto in modo corretto è questa: =ControllaSequenza(B2:B1711)
saluti
Giap
