Ciao lukissimo, benvenuto nel forum.
Non hai bisogno di una macro per ottenere quello che cerchi, basta usare Cerca.Vert:
-salvi con un nome noto il listino del fornitore
-nel tuo file crea in colonna A l' elenco prodotti che ti interessano, da A2 in avanti
-in colonna B usa una formuta del tipo
- Codice: Seleziona tutto
=Se(A2="";"";Cerca.Vert(A2;'[IlFileColListino.xls]NomeFoglioColLisino'!$A:$C;3;0))
Poi copi la formula in verticale per le righe che ti interessa
Per impostare la formula e' necessario che il file Listino sia aperto
Ho immaginato che, nel Listino, il dato che vuoi importare sia in colonna 3; se e' diverso aggiorna "Indice" (il "3" della formula) ed eventualmente anche la matrice in cui cercare ($A:$C, nell' esempio).
Se con questo spunto non risolvi allora posta ancora indicando il layout dei tuoi file.
Ciao