Escrevendo Fórmula arranjo com VBA

2024 - VBA & Macros

Post Recente por guma 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,228 Visualizações

RSS

guma

(@guma)

Posts: 135

Estimable Member

Topic starter

Pessoal o codígo abaixo está retornando #N/D, mas se fazer no braço e der Ctrl+Shift+Enter dá certo. Então acredito que seja essa peculiaridade das fórmulas de arranjo o problema. Alguém sabe como resolver?

Sub PrParidades()

J = Range("A65536").End(xlUp).Row

    For i = 2 To J
        Range("C" & i).FormulaLocal = "=ÍNDICE(PARIDADES!B:B;CORRESP(1;(PARIDADES!D:D=EXTRATO!I" & i & ")*(PARIDADES!A:A=EXTRATO!G" & i & ");0))"
        Range("C" & i).Value = Range("C" & i).Value
        Range("D" & i).FormulaLocal = "=ÍNDICE(PARIDADES!C:C;CORRESP(1;(PARIDADES!D:D=EXTRATO!I" & i & ")*(PARIDADES!A:A=EXTRATO!G" & i & ");0))"
        Range("D" & i).Value = Range("D" & i).Value
    Next i
End Sub

obrigado

Postado : 18/07/2018 5:25 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sub PrParidades()

J = Range("A65536").End(xlUp).Row

    For i = 2 To J
        Range("C" & i).Formulalocal = "=ÍNDICE(PARIDADES!B:B;CORRESP(1;(PARIDADES!D:D=EXTRATO!I" & i & ")*(PARIDADES!A:A=EXTRATO!G" & i & ");0))"
        Range("C" & i).formulaarray = Range("C" & i).formula
        Range("D" & i).Formulalocal = "=ÍNDICE(PARIDADES!C:C;CORRESP(1;(PARIDADES!D:D=EXTRATO!I" & i & ")*(PARIDADES!A:A=EXTRATO!G" & i & ");0))"
        Range("D" & i).formulaarray = Range("D" & i).formula
    Next i
End Sub

Postado : 18/07/2018 7:01 am

guma

(@guma)

Posts: 135

Estimable Member

Topic starter

klarc28,valeu, agora deu certo!!!

Postado : 18/07/2018 9:02 am