Este fórum está sendo desativado

[davispi]

Boa Tarde, alguém poderia me ajudar com a formula a baixo preciso transcrever ela em VBA, sei que seria mais facil gravar a macro, porém o Excel ao invés de converter ela apenas copia e cola a formula, e no caso queria que o próprio VBA já realizasse o calculo.

=SE(CONT.SES($D:$D;D2;$G:$G;G2)=8;SE(P2=1;1;SE(P2=2;1;SE(P2=3;1;SE(P2=4;1;SE(P2=5;2;SE(P2=6;2;SE('BANCO DE DADOS'!P2=7;2;SE(P2=8;2)))))))))

[osvaldomp]

Código: Selecionar todos

[A1] = Evaluate("=IF(COUNTIFS($D:$D,D2,$G:$G,G2)=8,IF(P2=1,1,IF(P2=2,1,IF(P2=3,1,IF(P2=4,1,IF(P2=5,2,IF(P2=6,2,IF('BANCO DE DADOS'!P2=7,2,IF(P2=8,2)))))))))")