Olá Fábio!
Se no critério de pesquisa tiver somente números separados por ";", então você pode aplicar a fórmula matricial:

=SOMA(SE(ÉERROS(LOCALIZAR(";"&G2:G11&";";";"&C2&";"));"";H2:H11))

Que deve ser inserida com CTRL+SHIFT+ENTER.

Quanto ao critério separado por hifen ("-"), ainda não pensei um modo de fazer via fórmula, creio que a solução mais eficaz seria via desenvolvimento de uma UDF pelo VBA. Vou pensar mais e qualquer coisa volto a postar aqui.

Abraços!

Muito obrigado... aguardo um retorno, caso houver a possibilidade de fazer via VBA com intervalos

Bom dia Rafael, favor fazer o teste da formula, pois o mesmo está me trazendo o valor total dos numeros que estão lá, quero que traga apenas o valores dos numero digitado entre ; tipo 1;2;3;8;9...

aguardo....

Insira a fórmula com CTRL+SHIFT+ENTER conforme descrevi.
Abs

Desculpe-me, muito obrigado, está ajudando bastante no momento... o problema só é quando eu tiver um intervalo de 1-30,35;36;40-78.... terei que digitar um por um entre ;... mas já está servindo

Juntando algumas UDF montei uma lógica que deve lhe atender.
Crie um módulo no arquivo e insira os codigos abaixo:

Function ENTRE(iIncial As Integer, iFinal As Integer)
    Dim sResultado As String
    Dim i As Long
    sResultado = iIncial
    For i = iIncial + 1 To iFinal
        sResultado = sResultado & ";" & i
    Next i
    ENTRE = sResultado
End Function
Function ExtractElement(str, n, sepChar)
    Dim x As Variant
    x = Split(str, sepChar)
    If n > 0 And n - 1 <= UBound(x) Then
        ExtractElement = x(n - 1)
    Else
        ExtractElement = ""
    End If
End Function
Function VALORES(sTexto As String)
    Dim i As Integer
    Dim sTexto2 As String
    Dim sResultado As String
    For i = 1 To VBA.Len(sTexto) - VBA.Len(VBA.Replace(sTexto, ";", "", , , vbTextCompare)) + 1
        sTexto2 = ExtractElement(sTexto, i, ";")
        If VBA.InStr(1, sTexto2, "-", vbTextCompare) > 0 Then
            sTexto2 = ENTRE(ExtractElement(sTexto2, 1, "-"), ExtractElement(sTexto2, 2, "-"))
        End If
        sResultado = sResultado & ";" & sTexto2
    Next i
    VALORES = sResultado & ";"
End Function

Agora na planilha a fórmula matricial (CTRL+SHIFT+ENTER) será:

=SOMA(SE(ÉERROS(LOCALIZAR(";"&G2:G11&";";";"&Valores(C2)&";"));"";H2:H11))

Veja modelo.

Abraços!

Bom dia!

Olá vbajr10!
Revise seu código, pois há algumas exceções que você não esta levando em conta.
Veja que o inquiridor quer a soma por números e também por intervalos definidor pelo separador "-" (Ex: 1-5 é 1, 2, 3, 4 e 5). Além disso seu código só vai funcionar para números de 1 a 9, quando entra números com mais de 1 algarismo dará errado.
Abs!

Fabio

Nos fóruns é proibido manter 2 cadastros, e você postou com 2 cadastros diferentes, e você poderá ser banido por isso.

Também é proibido criar 2 tópicos sobre a mesma dúvida, por isso eu uni teus 2 tópicos

Aguardo esclarecimentos.

[]s

Patropi - Moderador

bom dia, poderia adicionar mais uma condição ?
se o cod 10117 estiver dentro do intervalo onde eu quero selecionar os números da coluna C e após ir no banco de dados buscar o código da fazenda e os talhões selecionados fazer a soma.
 
notamos que temos diversos código de fazenda, que estão por talhão ... Ao procurar o código da fazenda 10117 (A2) da aba DADOS, ele irar selecionar lá na coluna BANNCO DE DADOS
é como se fosse um SOMASES somar com duas condições.... segue anexo como amostra.

Desculpe-me eu havia entrada no modo VBA errado, como sou novo aqui, não sei excluir ainda....

Segue ai Fábio, proposta de solução utilizando a mesma UDF que propus anteriormente.

Os argumentos de pesquisa que forem somente numero-hifen-número, coloque uma aspas simples antes ou formate as células como texto para que o Excel não interprete como data (Ex: 1-8 deve-se digitar '1-8).

Abs!

Muito obrigado Rafael, ajudou bastante...