none
função vlookup utilizada em uma macro não funciona RRS feed

  • Pergunta

  • função vlookup utilizada em uma macro não funciona

    Gostaria de um auxílio. Tenho um banco de dados em que na 1º coluna consta várias datas e na 2º coluna alguns índices financeiros dessas respectivas datas. Utilizando o procv no excel consigo buscar na data informada o valor do índice definido pela coluna. Já no vba, não consigo. Eis meu código.

       

    Dim data_inicial as date   

    data_inicial = Sheets("Índices").Range("C375").Value   

    indice_inicial = Application.WorksheetFunction.VLookup(data_inicial, Sheets("Índices").Range("A2:G355"), 2, False)


    O valor na célula c375 é uma data, já com o formato adequado (01/01/2018).

    A seleção Sheets("Índices").Range("A2:G355") é uma tabela como informei anteriormente.

    Já atentei de tudo e sempre aparece a mensagem de erro 1004 Não é possível obter a propriedade Vlookup da classe Worksheetfunction. Informo que já tentei fazer o tratamento da variável data_inicial como data por meio de DATEVALUE(), por meio de format("STRING","dd/mm/yyyy") e "mm/dd/yyyy". 

    O problema parece que a função vlookup não consegue reconhecer a variável data_inicial como uma data e por isso não localiza na intervalo.

     A tabela abaixo é apenas exemplificativa. Asseguro que a data que pesquiso está inserida na tabela.                                                                                        
    ago/17 2,14505710410449 3,24629732130138
    set/17 2,14614893817048 3,25765936192594
    out/17 2,14614893817048 3,26124278722406
    nov/17 2,14614893817048 3,27233101270062
    dez/17 2,14614893817048 3,28280247194126
    jan/18 2,14614893817048 3,29429228059306
    fev/18 2,14614893817048 3,30714002048737
    mar/18 2,14614893817048 3,31970715256522
    abr/18 2,14614893817048 3,32302685971779
    mai/18 2,14614893817048 3,33000521612319
    jun/18 2,14614893817048 3,33466722342577
    jul/18 2,14614893817048 3,37168202960579
    ago/18 2,14614893817048 3,39326079459527
    set/18 2,14614893817048 3,39767203362824
    out/18
    nov/18
    dez/18

    Alguem poderia me ajudar. Muito agradecido


    • Editado Andrew Kronos quinta-feira, 18 de outubro de 2018 20:20
    quinta-feira, 18 de outubro de 2018 20:17