cercavert con risultati

Hai un problema con Excel?

Nuova discussione

cerca.vert con + risultati
di Tacchino82 (utente non iscritto) data: 13/09/2016 20:11:54
Salve,

Sotto posto il cerca.vert in VBA.
Il codice che ho scritto mi restituisce il primo dato che trova.
C'è il modo che mi scriva nei range dichiarati ogni volta che trova il valore cercato?

Mi spiego:

Ogni volta che trovi un risultato lo scrivo, e passo al successivo scrivendolo nel rigo sotto.

Grazie

Sub Crea_lista()


On Error GoTo fine



'Worksheets("FOGLIO2").Select

range(d5) = WorksheetFunction.VLookup(Worksheets("FOGLIO2").Range("B3"), Worksheets("FOGLIO1").Range("J:P"), 2, 0)
range("e5")= WorksheetFunction.VLookup(Worksheets("FOGLIO2").Range("B3"), Worksheets("FOGLIO1").Range("J:P"), 4, 0)
range("f5") = WorksheetFunction.VLookup(Worksheets("FOGLIO2").Range("B3"), Worksheets("FOGLIO1").Range("J:P"), 6, 0)


fine:


End Sub

di Cucù data: 13/09/2016 20:48:37
Non si capisce un gran che ma a occhio e croce credo tu debba utilizzare un findnext
di alessio mazzantini (utente non iscritto) data: 13/09/2016 23:55:59
Vale a dire?
di alessio (utente non iscritto) data: 13/09/2016 23:56:49
Vale a dire?
di alessio (utente non iscritto) data: 14/09/2016 00:00:23
Praticamente mi servirebbe un cerca.vert che ad ogni valore trovato scrive i valori come da codice già creato, ma che continua finchè trova la condizione del cerca.vert, mettendo i risultati uno sotto l'altro.

Grazie
di Cucù data: 14/09/2016 08:15:36
allega un file di esempio con i risultati scritti manualmente (i dati di partenza + il risultato atteso)
di alessio (utente non iscritto) data: 14/09/2016 23:43:07
File allegato, spero che sia un pò+ chiaro

Grazie
di Cucù data: 15/09/2016 09:22:50
Prova file allegato

Vuoi Approfondire?