PROCV COM MULTIPLICAÇÃO

[DANYY]

Boa tarde, estou utilizando o codigo: ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],listaOficial,4,0)", e na celula ativa esta entrando corretamente o valor a ser retornado. Porém gostaria que esse valor fosse multiplicado por um percentual que esta definido em umas celulas acima de onde traz esse resultado, sendo que essa celula que tem o valor do percentual não tem endereço fixo, ela pode ser variavel já que o usuario pode incluir novas linhas na planilha. Esse percentual é inserido nessa celula atraves da digitacao dele feita pelo usuario em um formulario atraves de um txtbox, e ai ao digitar é feito uma busca na planilha atraves do F5 em uma lista já definida e ai entaum é descolado duas celulas a direita e incluido esse percentual. Tentei armazenar o valor desse percentual em uma variavel e no final do codigo coloca-lo mais não da certo, tentei fazer assim:

Dim percentual as Integer

percentual = txtpercentual.value

activecell.formular1c1 = "=VLOOKUP(RC[-3],listaOficial,4,0) * percentual"

Mais não deu certo ele retorna como erro.

alguém tem uma dica para esse caso? Desde já Agradeço!

Editado Fevereiro 21, 2011 por DANYY

[João.Neto]

É por causa das aspas duplas

Dim percentual as Double 'Percentual não é número inteiro! <_<

percentual = txtpercentual.value

activecell.formular1c1 = "=VLOOKUP(RC[-3],listaOficial,4,0) * " & Replace(percentual, ",", ".") 'Tem que usar o formato de número decimal americano onde se usa ponto como separador decimal

Testa esse código e responde se deu certo.

[DANYY]

Ola Joao!, Obrigada pelas dicas.. Consegui resolver informando um nome na celula e utilizando esse nome para multiplicação. Deu certo, porque o excel entende a celula que carrega o percentual mesmo o usuario incluindo linhas.

Obrigada!!