Cerca verticale in Vba

Cerca verticale in Vba
di Mimakinu (utente non iscritto) data: 02/09/2014 16:44:55
Salve a tutti,
ho iniziato a sviluppare in vba da poco piu' di un mese.
Dopo aver letto per lungo e per largo su molti forum ed un paio di libri e con un aiuto
di un amico che mi ha fornito alcuni esempi, ho iniziato a sviluppare software.
Sicuramente quello che ho scritto non è il massimo della qualità però devo dire che funziona tutto.
Arrivo al dunque,

Ho copiato tramite il registratore di macro quanto segue

Funziona e devo dire che è velocissima.

Chiedo se è possibile rendere la formula variabile cioè il range C2000 devo poterlo cambiare automaticamente.
Vi confesso che le ho provate tutte senza successo.

Un grazie anticipato

Fernando Alias Mimakinu
Cells(1, 7) = "=VLOOKUP(E1,C1:C2000,1,FALSE)"

di lepat (utente non iscritto) data: 02/09/2014 16:54:59
prova cos'

LR = Cells(Rows.Count, "C").End(xlUp).Row
Cells(1, 7) = "=VLOOKUP(E1,C1:C" & LR & ",1,FALSE)"

di Mimakinu (utente non iscritto) data: 02/09/2014 17:25:04
Dopo le modifiche funziona alla perfezione.
Ho capito dove sbagliavo

Grazie
di camillo (utente non iscritto) data: 02/09/2014 17:33:25
In questo modo in G1 avrai sempre il valore di E1.
Non mi sembra abbia un gran senso.