Este fórum está sendo desativado

[pjuliocesar]

Olá.

Gostaria de inserir a equação a seguir em um range de células.

Código: Selecionar todos

    For auxn = 7 To X - 1
    
        ActiveSheet.Cells(auxn, 4).FormulaLocal = "=CONCATENAR(Padrao!$C$26;$K$5;ÍNDICE(Padrao!$B$30:$B$79;CORRESP(B7;Padrao!$D$30:$D$79;0));$K$5;$J$5;$K$5;$H$5;$K$5;$I$5)"

    Next

No entanto, no lugar do "B7" deveria variar até X-1
Tipo "B" & auxn

no entanto, a equação assim:

Código: Selecionar todos

"=CONCATENAR(Padrao!$C$26;$K$5;ÍNDICE(Padrao!$B$30:$B$79;CORRESP("B" & auxn;Padrao!$D$30:$D$79;0));$K$5;$J$5;$K$5;$H$5;$K$5;$I$5)"

A sintaxe não aceita.
Sou extremamente iniciante ainda no VBA, mas preciso muito desenvolver esse código.

Aguardo ajudo de vocês

[babdallas]

Tente assim:

Código: Selecionar todos

"=CONCATENAR(Padrao!$C$26;$K$5;ÍNDICE(Padrao!$B$30:$B$79;CORRESP(B" & auxn & ";Padrao!$D$30:$D$79;0));$K$5;$J$5;$K$5;$H$5;$K$5;$I$5)"

[pjuliocesar]

Obrigado! Funcionou!