Este fórum está sendo desativado

Veja se atende sua necessidade.

Veja se a tabela dinâmica feita na planilha EXEMPLO atende suas necessidades.

Se houver apenas uma ocorrência em 455, é simples fazer com procv ou índice+corresp. Agora se houver repetição, aí precisa ter mais critérios para diferenciar.. ex: trazer o mais recente, trazer o mais antigo, etc. Qual é o seu caso? Faz um caso mais verdadeiro e explique quais os critérios. Expliqu...

Veja se é isso.

Coloca o arquivo em anexo. Fica mais fácil de entender e ajudar.

Para te ajudar preciso entender o problema. Por exemplo, BLM000128-7 repete várias vezes na planilha 455. Qual deles você quer que retorne para a planilha Relatório?

Veja se atende.

Veja o arquivo em anexo e veja se ajuda. É um pequeno exemplo.

Você poderia explicar em qual célula está o erro e qual seria o resultado esperado? Deve estar faltando pouca coisa para acertarmos.

Não consegui entender sua planilha. Mas se você quer verificar se os dados já estão na listbox, mostro um pequeno exemplo: for lin = 1 to listbox.listcount 'Percorre todos os itens de listbox if textbox.value = listbox.list(lin,1) then 'Supondo que o dado esteja na primeira coluna 1 da listbox. Msgb...

Acredito que porque a SOMASE só trabalha com os dados originais da tabela. Ao você transformar os dados com uma fórmula (DIA neste caso), a função não funciona.

Nilton,

veja se atende.

Crie uma coluna auxiliar de dias usando a função DIA e use-a no SOMASE.
Outra alternativa é utilizar a seguinte fórmula:
SOMARPRODUTO (--(DIA(data)=DIA(coluna de datas));coluna de valores)

Não sei se entendi exatamente o que você quer. Se você anexar a planilha e explicar o que você quer com base nela, fica mais fácil de entender e te ajudar. Ou seja, explicar o que você quer que aconteça no formulário (nos combobox e textbox) e como você que cadastrar estas informações na sua planilha.

Veja se é isso.

Veja se é isso.

Vc quer popu?lar o combobox com o nome das máquinas. Depois selecionada uma máquina no combobox e o usuário apertar um botão de cadastro, você quer que retorne o ID correspondente à máquina selecionada? É isso? Se for isso, você pode retornar usando ÌNDICE+CORRESP no VBA assim: Premissa: dados das m...

Mude este código. Você estava adicionando uma linha em branco na listbox1. O que eu fiz foi subtrair 2 de ultLinha ao invés de 1. Sub AddSetores() With ThisWorkbook.Sheets("Departamentos") ultLinha = .Cells(Rows.Count, "A").End(xlUp).Row For i = 0 To ultLinha - 2 If .Cells(i + 2,...

Veja se te ajuda.

Esqueci de avisar que só fiz para Janeiro, mas você pode fazer o mesmo raciocínio para os demais meses.