Condividi:        

EXCEL:confrontare 2 colonne per ottenere mancanti e doppioni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL:confrontare 2 colonne per ottenere mancanti e doppioni

Postdi valle1975 » 01/04/11 17:13

Ciao, ho questa necessità , che anche leggendo alcuni post non sono riuscito a risolvere da solo.

Ho 2 insiemi di articoli (colonna A dove ho l'elenco univoco e completo degli articoli esistenti )e la colonna B(dove ho gli articoli rilevati in giacenza), che devo confrontare tra loro, per ottenere, per ogni articolo presente nella colonna A, l'informazione dell'esistenza dello stesso nella colonna B, e se esistente, per quante volte è presente, magari indicando a fianco dell'articolo della colonna "A" il numero Zero.
In modo da poter poi ottenere, definendo come scorta minima fissa per tutti questi articoli, ad esempio n.3 pezzi, il dettaglio degli articoli da ordinare per arrivare a tale situazione di giacenza a magazzino.
Sperando di essere stato chiaro, vi ringrazio in anticipo e vi saluto.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33

Sponsor
 

Re: EXCEL:confrontare 2 colonne per ottenere mancanti e dopp

Postdi Flash30005 » 01/04/11 19:08

Non ho capito bene la disposizione dei tuoi dati ma se metterai nel foglio1 colonna A metterai gli articoli univoci
Nel foglio2 gli articoli che hai anche ripetuti
con questa macro avrai a fianco di A (colonna B) del foglio1 la quantità degli articoli
poi se in C metterai la quantità prevista con una formula in D avrai la differenza

Codice: Seleziona tutto
Sub ContaArt()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("B2:B" & UR1).ClearContents
UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
    Art1 = UCase(Worksheets("Foglio1").Range("A" & RR1).Value)
    For RR2 = 2 To UR2
        Art2 = UCase(Worksheets("Foglio2").Range("A" & RR2).Value)
        If Art1 = Art2 Then Worksheets("Foglio1").Range("B" & RR1).Value = Worksheets("Foglio1").Range("B" & RR1).Value + 1
    Next RR2
Next RR1
End Sub



Fai sapere
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL:confrontare 2 colonne per ottenere mancanti e dopp

Postdi valle1975 » 04/04/11 08:57

Semplicemente Perfetto... come sempre...:-)
Grazie mille.
Saluti.
Valerio
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
Iscritto il: 27/09/10 16:33


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL:confrontare 2 colonne per ottenere mancanti e doppioni":


Chi c’è in linea

Visitano il forum: raimea e 14 ospiti