Preciso de uma função em VBA que terá como argumentos um valor que eu quero usar como referencia, e outro argumento que sera um intervalo de células, a qual eu quero percorrer todo esse intervalo procurando valores iguais ao meu valor de referencia, e todas vez que achar um valor igual, deslocar uma célula para a direita, pegar esse valor e ir somando em uma variavel, quando terminar de percorrer toda a lista, a função ira retornar esse valor da soma Total.
Segue o codigo até o momento da função:
Function SomarValoresPorReferencia(ValorReferencia As Variant, Intervalo As Range) As Double
Dim Célula As Range
Dim SomaTotal As Double
SomaTotal = 0
' Percorra cada célula no intervalo
For Each Célula In Intervalo
' Verifique se a célula atual contém o valor de referência
If Célula.Value = ValorReferencia Then
' Se encontrado, desloque uma célula à direita e some o valor
If Not Célula.Offset(0, 1).Value = Empty Then
SomaTotal = SomaTotal + Célula.Offset(0, 1).Value
End If
End If
Next Célula
' Retorne o valor total
SomarValoresPorReferencia = SomaTotal
End Function
O erro que aparece e o de "#NOME"
