Notifications
Clear all

Colar uma fórmula do Excel via VBA

4 Posts
2 Usuários
0 Reactions
1,069 Visualizações
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Senhores, estou num impasse complicado aqui!

Criei um IF, e se verdadeiro, ele deveria colar a seguinte formula em uma célula na planilha:

ThisWorkbook.Sheets("Pedidox").Range("H10").Value = "=SEERRO(PROCV(B3;Cadastro_produtosth!$A$2:$O$7000;PROCV(Resultado_busca!$G$10;Ferramentas!$AN$2:$AO$7;2;FALSO);0);)"

"ERRO EM TEMPO DE EXECUÇÃO 1004 - Erro de definição de aplicativo ou de definição de objeto"

Reparem, eu tento colar uma fórmula do Excel via VBA, e mesmo eu colocando ela entre aspas, o Excel não aceita!
Tanto que se eu pegar essa mesma fórmula e colocar qq outra palavra dentro das aspas, tipo:

ThisWorkbook.Sheets("Pedidox").Range("H10").Value = "OE"

O Excel executa o comando perfeitamente!

Oq acontece amigos?
Existe uma maneira de driblar isso?
Estou fazendo alguma coisa de errado?

 
Postado : 20/06/2013 11:21 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

wolneypk,

Boa Tarde!

Para inserir uma fórmula, via VBA, o comando é FormulaLocal. Assim:

    ThisWorkbook.Sheets("Pedidox").Range("H10").FormulaLocal = "=SEERRO(PROCV(B3;Cadastro_produtosth!$A$2:$O$7000;PROCV(Resultado_busca!$G$10;Ferramentas!$AN$2:$AO$7;2;FALSO);0);)"
 
Postado : 20/06/2013 11:28 am
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Wagner, camarada sempre disposto a ajudar!
Muito Obrigado meu caro!
São detalhes que vamos aprendendo aos poucos em VBA!

Muito Obrigado meu amigo e um forte abraço!

 
Postado : 20/06/2013 11:39 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Disponha, wolneypk.

 
Postado : 20/06/2013 11:40 am