Analizzare un range di celle e verificare se è assente un dato presente nel 2 foglio di lavoro e visualizzarlo in un MSGBOX

Question

Buongiorno a tutti gli amici della community.

Per operazioni lavorative che hanno cadenza mensile, ho la necessità di verificare, al momento del trasferimento dei dati tramite la finestra Filedialog se in una colonna non sono presenti dei codice numerici (nel mio caso specifico solo tre cifre es. 860,720 ecc.) rispetto agli stessi dati fissi riportati nel Foglio DATI ( alla colonnaA) del file che allego per prova.

Cioè dovrebbe accadere questo:

Il codice VBA ( magari lanciato da pulsante di comando) dovrebbe verificare le due colonne ( colonna B del Foglio 1 e colonna A del foglio DAT) e tramite MSGBOX annunciarmi il codice di tre cifre mancante.

Si tenga presente, però, che nel foglio 1 nella colonna B ci sono gli stessi codici ripetuti per più volte ( indicano tate persone che hanno quel tipo di ritenuta mensile es. tanti 930, 870 ecc.) e nel momento in cui il codice VBA  rilevi un dato diverso rispetto alla colonna A del foglio DATI  il MSGBOX dovrebbe dire che è assente solo il tipo di codice es. 930, 870 ecc. e non che sono assenti nr. 50 codici 930, 25 codici  870 ecc.

Quindi, per essere chiaro, il MSGBOX deve indicare solo il codice di tre cifre che è assente nel foglio DATI in colonna A e non il numero totale dei codici assenti.

Spero di essere stato chiaro e comprensibile.

Ringrazio anticipatamente tutti coloro che vorranno aiutarmi in questo.

Il link dove ho pubblicato il file è questo:http://1drv.ms/1EwhB95

Ciao Nicola.

Answer 1

Ciao Nicola, 

Per una maggiore flessibilità, sostituisci

    Call MsgBox(Prompt:="I codici mancanti nel foglio Dati sono:" _

                      & vbNewLine & vbNewLine _

                      & sStr, Buttons:=vbInformation, Title:="ELENCO NICOLA")

con:

    Call MsgBox(Prompt:="I codici mancanti nel foglio " & dataSH.Name & " sono:" _

                      & vbNewLine & vbNewLine _

                      & sStr, Buttons:=vbInformation, Title:="ELENCO NICOLA")

===

Regards,

Norman

Answer 2

Ciao nichicanta,

ho preparato **questo**ma dopo aver letto la questione del colore, di cui non mi pare vi sia cenno nel tuo primo post di questo thread, non so più se va bene.

Per eseguire:

1. ALT+F8
2. Nome macro:

Test 3. [ Esegui ]

Answer 3

Ciao Niccola,

Ciao Maurizio, ciao Norman, innanzitutto infinite grazie per il vostro prezioso e fantastico codice, per entrambi brillante.

Ho effettuato alcune prove aggiungendo alcuni codici nella colonna B del Foglio1 e dopo aver lanciato i vostri due codici noto che quello di Maurizio si aggiorna  e mi rileva i nuovi codici non presenti nel foglio DATI alla colonna A, mentre quello di Norman non me li rileva.

Per me invece il mio codice funzione senza alcun problema.

Eseguendo il codice con il file che hai caricato inizialmente, ottengo il seguente MsgBox:

Potresti scaricare questio file con il mio codice a:  **http://1drv.ms/1HhxDRR**

===

Regards,

Norman

Answer 4

Ciao Maurizio, ciao Norman, innanzitutto infinite grazie per il vostro prezioso e fantastico codice, per entrambi brillante.

Ho effettuato alcune prove aggiungendo alcuni codici nella colonna B del Foglio1 e dopo aver lanciato i vostri due codici noto che quello di Maurizio si aggiorna  e mi rileva i nuovi codici non presenti nel foglio DATI alla colonna A, mentre quello di Norman non me li rileva.

Per  quanto riguarda questo:ma dopo aver letto la questione del colore, di cui non mi pare vi sia cenno nel tuo primo post di questo thread, non so più se va bene; gentile Maurizio non preoccuparti poiché hai capito benissimo la mia esigenza e lo hai dimostrato con il codice che mi hai postato, il resto era venuto fuori dalla modalità con cui mi stavo approcciando al codice basandomi sulle mie capacità, tutto ciò che desideravo è stato realizzato.

Per il carissimo Norman, ho voluto segnalare questo che verifico eseguendo varie prove, ti allego il file sul quale ho effettuato delle prove al fine di avere la certezza (io non tu) di non aver commesso errori.

Attendo tue notizie e ringrazio tantissimo Maurizio per il suo fantastico codice che utilizzerò e segnerò come risposta dopo aver atteso ulteriori tuoi dettagli, Norman.

Per ora Vi saluto e Vi ringrazio per tutto quello che fate per noi.

Ciao Nicola.

Il link del file postato è questo: http://1drv.ms/1DmKgfx