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!
