none
Erro em declaração de variáveis RRS feed

  • Pergunta

  • Estou com o seguinte erro: no trecho do código abaixo, realizo um procv dentro de um vetor de datas previamente definido (dt). Quando insiro um numero na mão, como dt(10,1), a funçõ funciona, porém se tento inserir uma variável, como k ou j, previamente definido no código, recebo o erro que não é possível obter a propriedade do objeto para a função. Alguém sabe se estou fazendo algo de errado com a declaração destas variáveis? (obs: as variáveis k e j ja sao utilizadas no código em outras linhas, sem apresentar erros. Segue abaixo o trecho do código:

                                                                                         

    For i = LBound(mout) To UBound(mout)
            If cf_(i, 1) <> 0 Then
                '-- a partir desse fluxo de caixa...
                j = i
                k = 1
                If i = UBound(mout) Then
                    mout(i, 1) = cf_(i, 1)
                    GoTo wayOut
                End If

                '-- o investimento é depreciado (até seu fim, caso reposicao = 0)
                If reposicao = 0 Then
                    Do
    fct_infl_atual = wf.VLookup(dt(j, 1), curva_inflacao, 2, 0)
                        fct_infl_acc = fct_infl_atual

                        mout(j, 1) = mout(j, 1) + (cf_(i, 1) / depreciacao)
                        mout(j, 1) = mout(j, 1) * fct_infl_acc
                        k = k + 1: j = j + 1
                    Loop While j <= UBound(mout) And k <= depreciacao
                '-- ou o investimento é depreciado até sofrer baixa
                Else
                    Do
        fct_infl_atual = wf.VLookup(dt(j, 1), curva_inflacao, 2, 0)
                        fct_infl_acc = fct_infl_atual

                        mout(j, 1) = mout(j, 1) + (cf_(i, 1) / depreciacao)
                        mout(j, 1) = mout(j, 1) * fct_infl_acc
                        k = k + 1: j = j + 1
                    Loop While j <= UBound(mout) And k <= IIf(flg_acc, depreciacao, reposicao)
                End If
            End If
        Next i

    Muito obrigado!

    quinta-feira, 26 de novembro de 2020 15:47