Notifications
Clear all

FormulaR1C1

6 Posts
2 Usuários
0 Reactions
1,029 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Bom dia !

Passar essa linha .FormulaLocal para .FormulaR1C1

.FormulaLocal = "=SE(C" & linha & "=0;0;ÍNDICE(Empresas*(1+ISS);CORRESP(A" & linha & ";Nomes;0);1))"

para

.FormulaR1C1 = "=IF(R[" & Linha & "]C[-2]=0;0,INDEX(Empresas*(1+ISS),MATCH(R[" & Linha & "]C[1];Nomes;0),1))"

Seria assim mesmo ?

Obrigado !

 
Postado : 18/11/2016 8:11 am
(@mprudencio)
Posts: 2749
Famed Member
 

Escreve a formula com o gravador de macros que ele insere corretamente.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/11/2016 8:57 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Como a macro vai encaixar o range dinamico no lugar certo ?
Como a macro vai saber que eu quero do modo .FormulaR1C1 ?

 
Postado : 18/11/2016 9:19 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Erro em tempo de execução 1004

Celula S1

.FormulaR1C1 = _
"=IF(R[" & linha & "]C[-16]=0,0,INDEX(Empresas*(1+ISS),MATCH(R[" & linha & "]C[-18],Nomes,0),1))"

Problema deve ser aspas ou coloquei o range dinamico no lugar errado.

 
Postado : 18/11/2016 11:17 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Consegui, pois estava certo, mas a linha começa com número 2 e não linha 1

celula S1

.FormulaR1C1 = _
"=IF(R[" & Linha & "]C[-2]=0,0,INDEX(Empresas*(1+ISS),MATCH(R[" & Linha & "]C[-15],Nomes,0),1))"

=SE(Q2=0;0;ÍNDICE(Empresas*(1+ISS);CORRESP(D2;Nomes;0);1))

 
Postado : 18/11/2016 6:06 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Agora que fui entender que não precisa colocar " & Linha & " como no FormulaLocal

Que mágica esse FormulaR1C1 !

 
Postado : 18/11/2016 11:01 pm