Excel Erro na Fórmula ao trocar de Aba - #Valor

[ppeterk]

Pessoal, boa noite!

 

Tenho uma fórmula que, ao mudar de aba e atualizar/calcular o Excel, gera o erro #Valor. Somente ao voltar pra aba original (Março 2023) e atualizar/calcular o Excel, os valores voltam ao normal.

 

A fórmula estão nas células C12 e C13.

Fluxo de Caixa 2023.rar

[OreiaG]

Os erros ocorrem nas UDFs, visto que nelas os intervalos não referenciam a planilha de interesse, então as UDFs processam os dados da planilha ativa. Coloquei as referências na UDF modificada abaixo.

Function SomaFonteRecebimento()
 Dim col As Long, r As Range, ws As Worksheet
  Set ws = Sheets("Março 2023")
  col = ws.Range("1:1").Find(Day(Date), , xlValues, xlPart).Column
  For Each r In ws.Range(ws.Cells(2, col), ws.Cells(ws.Cells(2, 1).End(4).Row, col))
   If r.Font.Color <> vbBlack And Application.Caller.Offset(, -1).Value = _
    ws.Cells(r.Row, 2) And "Recebimentos" = ws.Cells(r.Row, 1) Then SomaFonteRecebimento = SomaFonteRecebimento + r.Value
  Next r
End Function

 

Faça igual na outra UDF.

 

Caso as UDFs forem utilizadas em outras planilhas, cujos nomes sejam diferentes de Março 2023, então utilize a instrução abaixo, assim não precisará alterar o nome da planilha nas UDFs.

Set ws = Application.Caller.Parent

 

[ppeterk]

@OreiaG, obrigado.

 

De fato, acabei incluindo a opção do "Application.Caller.Parent", considerando que temos várias abas.

 

Att,