none
Aplicar Array com Vlookup RRS feed

  • Pergunta

  • Olá a todos!!!

    Estou estudando sobre a array dinâmica e gostaria de saber como aplicá-la com o Vlookup. Pois no meu trabalho, tenho uma planilha que rotineiramente tenho que copiar e colar dados atualizados da base do sistema da minha empresa. Para evitar de colar todas as informações, eu gostaria de colar apenas os logins dos assistentes e todas as outras informações, (nome, supervisor, coordenador, célula, etc...), seriam localizadas pelo Vlookup.

    Já consegui criar um código que faça isso pra mim, porém sem array, até todo o procedimento ser executado, é tudo muuuiiito demorado. Tentando aplicar array com o Vlookup cheguei ao seguinte código:

    Public Base

    Sub Base_Login()
    Dim todosLogin%, linha%

    Plan2.Select

    todosLogin = WorksheetFunction.CountA(Range("C:C")) - 1

    ReDim Base(todosLogin)

    [D8].Select

    For linha = 1 To todosLogin
        Base(ActiveCell) = WorksheetFunction.VLookup(ActiveCell.Offset(0, -1), [Ecadop!U:W], 3, False)
        ActiveCell.Offset(1, 0).Select
    Next linha

    End Sub

    O código é executado e numa velocidade muito rápida, porém, o Vlookup não busca a informação contida na planilha "Ecadop", que está na mesma pasta de trabalho.

    Alguém pode me ajudar? Gostaria de saber o que estou fazendo de errado no código.

    Att

     

    domingo, 3 de fevereiro de 2013 14:29

Respostas