SIPAUBA

Caros, confeso que estou começando em programação e nunca fiz curso, por isso posso dizer que estou aprendendo na "marra" ! Se alguém puder ajudar agradeço ! O problema é o seguinte: A instrução que tenho abaixo, não está executadno o PROCV até a última linha (valor_procurado), por conta da condição: diferente de vazio (<> ""). Existe alguma forma para que a instrução execute em todas as linhas ? A instrução está errada ? Alguém pode me indicar o correto ? ------------------------------------------------------------- i = 2 Do While (Cells(i, 6).Value <> "") ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1],'[DIR + PORTE.xls]DIR'!R4C3:R26C4,2,FALSE)" Range("G" & i).Select i = i + 1 Loop -------------------------------------------------------------- Grato !!!!!!!!!