none
como utilizar vlookup no vba RRS feed

  • Pergunta

  • Boa noite,
    Sou iniciante a area de programação e estou com um proplema, tenho que gerar 72 tabelas de custo por UF, tenho um Workbook onde ha worksheets denominadas pelas UF, e uma das worksheets é a base onde estarei gerando as tabelas de custo.
    Abaixo segue o código que estou usando,

    Sub TabCusto()
    Dim i As String
    
    Worksheets("BASE Custo").Activate
     
    i = Cells(1, 3).Value        ' i é a célula onde denomino qual UF estarei calculando
    
        ActiveCell.FormulaR1C1 = _
            "=IF(VLOOKUP(RC[-1],BA!R10C1:R39C12,2,0)<>"""",VLOOKUP(RC[-1],BA!R10C1:R39C12,2,0)*10%+VLOOKUP(RC[-1],BA!R10C1:R39C12,2,0))"
        Range("C10").Select
        
       
    End Sub


    No código acima funciona perfeitamente o vlookup, porém ele fica

    engessado
    , pois aponta somente a worsheets ("BA"). o Que estou precisando saber é se tem como a função vlookup assumir a variavel "i" no lugar do BA, ou sejs se eu ativar a worksheets("SP") pela variavel a funçaõ deveria ficar:
    ActiveCell.FormulaR1C1 = _
            "=IF(VLOOKUP(RC[-1],SP!R10C1:R39C12,2,0)<>"""",VLOOKUP(RC[-1],SP!R10C1:R39C12,2,0)*10%+VLOOKUP(RC[-1],SP!R10C1:R39C12,2,0))"

    segunda-feira, 24 de agosto de 2009 22:06