AjHottz,
Bom Dia!
Troque sua linha:
Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 12).Value = Application.WorksheetFunction.VLookup(("lUltimaLinhaAtiva,1"), (Worksheets("Cadastro de Produtos").Range("a1:b100000")), 2, False)
Por esta:
Worksheets("Registro de Inventário").Range("L" & lUltimaLinhaAtiva).FormulaLocal = "=PROCV(A" & lUltimaLinhaAtiva & ";'Cadastro de Produtos'!$A$1:$B$100000;2;FALSO)"
Por algum motivo que não sei dizer qual, o VBA não aceita inserir a função SEERRO. Mas como você está inserindo a função na linha ativa... não vejo maiores problemas.
Postado : 22/05/2014 7:09 am