Considerando que vc tenha essas informações nas colunas A, B, C e D, a partir da linha 1, use: =ESCOLHER(1+(ÉNÚM(CORRESP("shampoo";A1:D1;0)...

E era pra ser como?

Eu rodei assim e funcionou: Sub elimina_zeros() Application.ScreenUpdating = False Sheets("Book").Select Dim UltimaLinha As Lo...

Não sabia que vc queria aquela também. Veja agora. Controle de Estoque de Correias_GT2.zip

Se vc olhar nos botões... O primeiro está com o nome "Retângulo 1" Logo, 1 + 6 = 7, e deu certo. O segundo, está com o nome "Retângul...

Para os interessantes, vc pode usar: =SOMA(F:F) Para os relevantes, =SOMA(G:G) Para listar todos os de cada categoria, seria mais fácil vc aplicar...

Veja, eu criei a seguinte função pra vc: Function F_MSGBOX(vComp1 As Double, vComp2 As Double, msg As String) As Double Ela tem 3 argumentos, sendo ...

Se vc mandasse o modelo da planilha ficaria mais fácil entender porque não deu certo...

Porque vc nunca explica com detalhes o que vc quer? Nem sempre a bola de cristal funciona. Vc quer um código único, para poder copiar e colar os bot...

Fiz 3 sugestões pra vc. A primeira, usa apenas formatação condicional, o que eu usaria, com uma cor gritante. A segunda, usa uma fórmula na planilha...

Ed, tirando a parte de usar .Value2 para datas, o resto segue de acordo com essa explicação aqui:

Os números são praticamente iguais.... Vc sabe ler o E-02?! Notação científica, é o mesmo que dividir por 100 Vcs estão focando no começo do númer...

Se quiser tentar com o .Value ao invés do .Value2, é melhor... *não sei quem te indicou usar o Value2, mas evite ao máximo. O Value2 é mais simlpes q...

Olhando rapidamente, os valores são os mesmos, no Excel e no VBA. Só que o VBA está retornando ele multiplicado por 100. Eu diria que a multiplicaçã...

Obrigado, Doni, acho que é este sim, embora o anexo de lá tenha sido removido.