Individuare numeri mancanti da una lista di 7745 numeri

[thespaceboyPartecipante thespaceboy]

Buongiorno a tutti, vi scrivo perchè ho un problema e spero che voi possiate aiutarmi a risolverlo.

Per la fatturazione elettronica mi trovo a dover esportare un file di 7745 record di un totale di 8616 fatture.
Dovendo essere 8616 record (pari alle fatture emesse) io dovrei capire quali numeri mancano dall'ordine cosi da poterli reinserire senza dovermi vedere ad occhio tutte le 7745 righe con il rischio che me ne sfugga una.

C'è una formula che possa fare questa estrapolazione? che possa dirmi i numeri mancanti dall'elenco?

Vi allego il file in questione, ho giusto messo un nome fittizio ai clienti per via della privacy.

Potreste darmi una risposta quanto prima in mattinata?

Grazie a tutti per la disponibilità, sono nelle vostre mani. 😉

 

[Edit by ADMIN] Corretto titolo

Allegati:

You must be logged in to view attached files.

[vionPartecipante vion Karma: 3 pts]

Nel titolo hai scritto che vuoi il conteggio, mentre nel messaggio fai capire che vuoi la lista delle numerazioni delle fatture mancanti...

Nel secondo caso, puoi mettere in H2 questa formula e trascinare giù

=SE(A3-A2>1;"MANCA"&" "&A3-1;"OK")

e poi mettere un filtro "Diverso da OK" per elencare le fatture mancanti. Allego xls.

Allegati:

You must be logged in to view attached files.

[albatros54Moderatore albatros54 Karma: 89 pts]

thespaceboy ha scritto:

io dovrei capire quali numeri mancano dall'ordine

Quindi da quello che capisco la numerazione è progressiva, quindi se tu trovi una fattura col numero 10 è la seconda fattura è col numero 15, ti mancano le fattura 11,12,13,14?perche se è cosi la formula postata da Vion(che saluto) non va bene, secondo me bisogna buttare giu qualche riga di codice VBA.

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[cromagnoPartecipante cromagno Karma: 5 pts]

Ciao a tutti,
@thespaceboy

per avere la lista dei numeri mancanti, in celle H2 (da copiare poi in basso):
=SE.ERRORE(AGGREGA(15;6;RIF.RIGA(INDIRETTO("A1:A"&MAX($A1:$A$10000)))/(CONTA.SE($A1:$A$10000;RIF.RIGA(INDIRETTO("A1:A"&MAX($A1:$A$10000))))=0);RIF.RIGA(A1));"")

vorresi sbagliarmi ma il tuo file sembra danneggiato... ci mette troppo tempo per il ricalcolo (anche considerando la mole di dati).

In alternativa si può ricorrere al VBA.
In un modulo standard:

Sub Mancanti()
    Dim uRiga As Long
    Dim Massimo As Long
    Dim i As Long
    Dim MyRng As Range
    Dim Riscontro As Double
    Dim Matr() As Long
    Dim Indice As Long
    Dim MyArray
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    Set MyRng = Range("A2:A" & uRiga)
    Massimo = Application.WorksheetFunction.Max(MyRng)
    For i = 1 To Massimo
        Riscontro = Application.WorksheetFunction.CountIf(MyRng, i)
        If Riscontro = 0 Then
            Indice = Indice + 1
            ReDim Preserve Matr(1 To Indice)
            Matr(Indice) = i
        End If
    Next i
    
    Range("H2:H" & Rows.Count).ClearContents
    MyArray = Matr
    Range("H2").Resize(Indice, 1).Value = Application.Transpose(MyArray)
    MsgBox "Finito!", vbInformation + vbOKOnly, "OPERAZIONE COMPLETATA"
End Sub

Nel modulo di classe del foglio:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$H$1" Then
        Call Mancanti
        Cancel = True
    End If
End Sub

quindi per far partire il codice dovrai fare un "doppio-click" sopra la cella H1.
Allego file...

Ciao
Tore

Allegati:

You must be logged in to view attached files.

[cromagnoPartecipante cromagno Karma: 5 pts]

Mi sa che ci son stati problemi nella pubblicazione del mio post precedente...
I tre file allegati in realtà è lo stesso file caricato 3 volte.

 

[Edit by admin] Sembra di si.. ho rimosso i file in eccesso. grazie!

[vionPartecipante vion Karma: 3 pts]

albatros54 ha scritto:

fattura è col numero 15, ti mancano le fattura 11,12,13,14

giusto! hai ragione Albatros

La mia formuletta potrebbe cambiare così:

=SE(A3-A2>1;"MANCA"&" DA"&A2+1&" A"&A3-1;"OK")

Ma la soluzione vba di @cromagno mi sembra più professionale 🙂

 

[thespaceboyPartecipante thespaceboy]

Ciao a tutti, 

scusami l'attesa ma ho dovuto verificare le vostre indicazioni ed essendo un principiante della materiale ci ho impiegato qualche giorno di più. 

Vi ringrazio tutti per i consigli, ora sto utilizzando la soluzione indicatami da @cromagno, ma avrei un altro quesito da sottoporvi:

Nella colonna I c'è il modo di segnarmi i numeri doppi?
So come eliminare i doppi dalle colonne, mi servirebbe solo sapere quali sono su una basi di circa 8000 numeri.

Sapete aiutarmi?

Grazie mille   

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Utilizzerei una formattazione condizionale >>  regole evidenziazione celle >> valori duplicati

[Autore]

Articoli