Somar medidas de uma lista

Preciso de um auxilio para montar uma planilha que pega os valores de uma celular, procurar uma referencia numa planilha de dados e soma os resultados.

Na sequencia é assim :slightly_smiling_face:

Eu preciso de um macro que leia os valores da celular C3, (EL-01;EL-02;RD-01)

LOOP -

2° Vai rolar um loop aqui, cada um dado dentre ponto-virgula, será procurado com procv em uma outra planilha, que trata um valor.

3° com esse valor em mãos, será feita um calculo de área,

4° e o valor será reservado

5° Inicia o loop para o próximo dado

Final do Loop (Quando acabar os dados entre ponto-virgula)

6° Uma função irá somar os valores reservador e me dar a resposta em uma cédula na frente da que estava com os valores.

Alguem ai na disposição para me ajudar.

43 99826-4499 Whats APP

Oi!

Coloca a planilha pra facilitar ver onde estao as informaçoes e tudo mais! Obrigado!

1 Curtida

Sou novo nao posso enviar arquivo, me add no zap !

https://1drv.ms/x/s!AtzIY0PkdKn7i6cxfwia-fLDq8vCoA?e=XhOta7

Alguem ajuda nos, posso até pagar a consultoria.

https://1drv.ms/x/s!AtzIY0PkdKn7i6kJsWUq2tQ8j4aZYA?e=qsdSow

Eu tinha postado o Excel errado desculpe.

Bom dia @henrikue, o primeiro ponto é desmembra esta cadeia de caracteres:
“EL-01;EL-02;RD-01”

Pontos relevantes: A quantidade de caracteres entre " ; " é sempre o mesmo? (Neste caso 5: “E”, “L”, “-”, “0”, “1” . Ou podem variar?

Existe uma função que se chama InStr ( Retorna um inteiro que especifica a posição inicial da primeira ocorrência de uma cadeia de caracteres dentro de outra. O inteiro é um índice baseado em um se uma correspondência é encontrada. Se nenhuma correspondência for encontrada, a função retornará zero.), que pode ser utilizado em casos em que o numero de caracteres seja variável, porem é mais chato de mexer.

Se a quantidade de caracteres for fixo, então pode utilizar o Mid.

Fiz algo bem rápido aqui apenas para lhe mostrar a logica, veja se atende:

Dim x As Integer
Dim UltimaCaracter As Integer
Dim rng As Range
Dim valorProcurado As String

Set rng = Sheets(" NOME DA SUA SHEETS ").Range(“D3”)
UltimaCaracter = Len(rng.Value)

For x = 0 To UltimaCaracter
valorProcurado = Mid(rng.Value, x, 3)

'Aqui voce faz o Procv com o valor valorProcurado

x = x + 3
Set rng = rng.Offset(1, 0)

Diego agradeço muito a resposta, o Roberto está me ajudando nesse esquema. Estamos bolando uma função para fazer oque eu preciso.
Vou postar o resultado aqui pra você dar uma olhada depois Muito obrigado.