Notifications
Clear all

Erro de Sintaxe

4 Posts
3 Usuários
0 Reactions
879 Visualizações
(@willroesch)
Posts: 2
New Member
Topic starter
 

Bom dia!

Estava tentando criar um trecho de código para minha macro envolvendo uma condição (if) mas o VBA ta dando erro de sintaxe quando a macro é executada.

O código excel é:

=IF(HLOOKUP("Politica Credito PF CTI(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PF CTI(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PF F&A(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PF F&A(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PF HC(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PF HC(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PF OT and Others(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PF OT and Others(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PJ CTI(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PJ CTI(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PJ F&A(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PJ F&A(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PJ HC(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PJ HC(Sistema)";$A:$XAA;ROW(A3);0);
IF(HLOOKUP("Politica Credito PJ OT and Others(Sistema)";$A:$XAA;ROW(A3);0)<>0;HLOOKUP("Politica Credito PJ OT and Others(Sistema)";$A:$XAA;ROW(A3);0);"NOT FOUND"))))))))

E em VBA ele grava como:

"=IF(HLOOKUP(""Politica Credito PF CTI(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PF CTI(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PF F&A(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PF F&A(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PF HC(Sistema)""& _
"251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PF HC(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PF OT and Others(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PF OT and Others(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PJ CTI(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>"& _
"(""Politica Credito PJ CTI(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PJ F&A(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PJ F&A(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PJ HC(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PJ HC(Sistema)"",C1:C16251,"& _
"[-16277]),0),"&chr(10)&"IF(HLOOKUP(""Politica Credito PJ OT and Others(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0)<>0,HLOOKUP(""Politica Credito PJ OT and Others(Sistema)"",C1:C16251,ROW(R[1]C[-16277]),0),""NOT FOUND""))))))))"

Se alguém souber o que pode ser, ou mesmo testar e funcionar sem erro, eu agradeço!

 
Postado : 16/10/2017 8:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tem como postar seu arquivo modelo(contendo exemplo e código do que pretende fazer)?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/10/2017 9:42 am
(@willroesch)
Posts: 2
New Member
Topic starter
 

Na verdade são apenas IF's.. Ele vai verficiar se a a coluna X possui a informação, se não tiver ela vai pra Y, e assim por diante (8 vezes).. Caso nada seja encontrando naquelas colunas eu NÃO QUERO que coloque 0.
É isso que deve fazer, mas quando eu começo a gravação da Macro e depois tento executar aparece o erro de sintaxe no VBA.

 
Postado : 16/10/2017 10:06 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Se você postar um anexo eu posso utilizar o depurador e encontrar o erro...

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 16/10/2017 10:09 am