provavelmente se tenha que cria uma tabela de medidas para se utilizada
pq se tem pacotes , ponta de faca, fatia
não sei se tem o fator peso por volume
se tiver vai ter que ter uma coluna de valor desse parâmetro para se fazer os cálculos do tipo volumétrico como colher de chá, xícaras, entre outros
na criação da tabela vai ter que ter varredura de valores para adicionar na posição correta e ou adicionar os que não tiver
uma ideia é trazer a lista completa dos alimentos para a planilha já com os hiperlinks
e depois ir atualizando os componentes por linha
mais ou menos assim:
pl = "Alimentos"
planaux = "Aux"
With Sheets(pl)
cc = .Range("D9").End(xlToRight).Column
'======================================================
componentes = .Range("E7", .Cells(9, cc)).Value2
'linha1 = categoria,
'linha2= componente,
'linha 3 = unidade
'========================================================
ultimo = .Cells(Rows.Count, "D").End(xlUp).Row + 1
site = .Cells(ultimo, 2).Hyperlinks(1).Address
End With
se pega o componente do alimento e localiza na array linha 2
se achar adiciona na linha do alimento
para adicionar a tabela de medidas se pode varrer as medidas e ir atualizando a tabela separada
para se ter diferença de peso e volume acho que vai ter que pegar uma das medidas volumétricas e calcular contra o valor de 100g
acho que é assim
densidade= peso/volume
volume= densidade x peso
peso= densidade x volume
sendo assim se um copo tem um volume de 10ml e nela cabe 40mg do alimento densidade é 40/10 "eu acho"
bem acho que nessa parte vc´s são muito melhores que eu
Postado : 28/12/2016 1:47 pm