Excel: filtrare dati confrontando con piu' valori

[valle1975]

Ciao.
Ho la seguente necessità: devo poter filtrare i dati che contengono nella colonna "A" del Foglio1 , uno dei valori contenuti in una lista secondaria (Foglio2-Colonna A), composta da piu' valori. Provo a spiegarmi meglio.
Ho una tabella (foglio1) complessiva delle movimentazioni di un Magazzino con il riferimento dell'articolo, formattato come segue "codice/nomearticolo/tipo".
Poi ho un secondo foglio (Foglio2) dove ho elencati gli articoli di cui devo analizzare le movimentazioni ( sono alcune decine e cambiano sempre), ma che hanno formattazione con solo "codice".
Sarebbe sufficiente che per gli articoli presenti nel Foglio 2, mi aggiungesse un identificativo (Es. "SI" in una colonna del foglio1), cosi' dopo potrei filtrarli facilmente e elaborarli come necessario.

Grazie per il vs. aiuto.

[Avatar3]

Per avere un "SI" nella colonna D del foglio1 degli articoli elencati nel Foglio2 puoi usare questa macro

Codice: Seleziona tutto

Sub TrovaArt()
 UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
 UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
 Sheets("Foglio1").Columns("D:D").ClearContents
 For RR2 = 2 To UR2
    Art2 = Worksheets("Foglio2").Range("A" & RR2).Value
    For RR1 = 2 To UR1
        Art1 = Worksheets("Foglio1").Range("A" & RR1).Value
        If Art2 = Art1 Then
            Worksheets("Foglio1").Range("D" & RR1).Value = "SI"
            GoTo Continua
        End If
    Next RR1
Continua:
 Next RR2
End Sub


Però, se occorre, si può creare una macro che riporti il nome articolo e il tipo nel foglio2 a fianco di ogni codice articolo del foglio2, in questo caso non hai alcun bisogno di filtrare nulla

[valle1975]

Grazie per la tempestiva risposta, c'è un problema dovuto alla diversa composizione delle 2 colonne da controllare, come avevo indicato..
Infatti la tua macro cosi' come è non funziona, mentre se imposto nell'insieme Foglio2 il codice articolo scritto nello stesso modo, funziona.
Per cui come posso correggerlo??
Ti metto un esempio:
L'articolo nel foglio1 è tipo questo : KBSWKG/221/E
Mentre nel foglio2 è : KBSWVG
Come vedi la prima parte è identica (quella del codice), per cui, qualunque valore ci sia dopo questo codice, deve scrivere il "Si".
Spero di essere stato piu' chiaro, grazie.

Ho una tabella (foglio1) complessiva delle movimentazioni di un Magazzino con il riferimento dell'articolo, formattato come segue "codice/nomearticolo/tipo".
Poi ho un secondo foglio (Foglio2) dove ho elencati gli articoli di cui devo analizzare le movimentazioni ( sono alcune decine e cambiano sempre), ma che hanno formattazione con solo "codice".[/quote]

[ricky53]

Ciao,
prova a sostituire

Codice: Seleziona tutto

        If Art2 = Art1 Then

con

Codice: Seleziona tutto

        If Art2 = Mid(Art1, 1, Len(Art2)) Then

ATTENZIONE: ho ipotizzato che il codice articolo scritto nel "Foglio12 abbia lunghezza maggiore o uguale a quella del codice articolo del "Foglio2" !!!

[valle1975]

Semplicemente Perfetto!!!
Mille Grazie..

[ricky53]

Ciao,
il primo ringraziamento ad Avatar che ti ha proposto la macro, poi ... a me il secondo per l'implementazione.

[valle1975]

Giusto il ringraziamento ad entrambi per la disponibilità !!
Saluti.

[valle1975]

Salve, ho trovato una anomalia alla soluzione proposta, cioè nel caso si ripresentino piu' volte articoli esistenti da evidenziare con il "SI" sul foglio2, nella COLONNA "D" dove vengono riportati i "SI", mi viene riportato solo la prima volta che trovano la stessa corrispondenza e non ogni volta che tale corrispondenza è presente.
Ad esempio in foglio 2 ho la seguente situazione, considerando che "pippo" e "tom" siano gli articoli da evidenziare:

Foglio 1

Pippo, SI
pluto
Pippo
pippo
tom, SI
pluto
Tom

Grazie per tutto.

[Avatar3]

Ehmmm

Prova a commentare il Goto Continua

Codice: Seleziona tutto

            Worksheets("Foglio1").Range("D" & RR1).Value = "SI"
           ' GoTo Continua  '<<<< commentare o cancellare
        End If

[valle1975]

Ok, perfetto.. risolto anche questo..
Mille grazie.

[Avatar3]