Excel somases com filtro na listbox obtendo critérios do formulário - Resolvido

[WILSON SILVA JUNIOR]

Bom dia amigos do Clube do Hardware! Estou em um aprendizdo de Excel VBA e estou com certa dificuldade em criar um código de filtragem em uma ListBox de um projeto no qual eu obtenho a somatória de tipos distintos de despesas de acordo com o ano em que foram feitas e as pessoas que as fizeram. Ocorre que se insiro o ano na TextBox e seleciono as pessoas e as despesas por elas efetuadas individualmente, estas aparecem na ListBox e é apresentado o valor total na TextBox (Total), porém se insiro o ano e seleciono para que se calcule o total das despesas efetuadas por cada pessoa, a ListBox fica em branco apresentando apenas na TextBox (Total) o valor total das despesas efetuadas pela pessoa indicada. Quando seleciono a despesa total efetuada por determinada pessoa selecionada, quero que as despesas que esta pessoa efetuou apareçam também na ListBox; e não estou conseguindo com que estas sejam mostradas. Ex.: No ano de 2020, Marta_Total, gastou 10660 (valor mostrado na TextBox Total, mas não aparecem na ListBox as despesas (O Ano, Marta_Alimentação, Marta_Lazer e Marta_Vestuário e os valores) que ela fez. Agradeço qualquer ajuda. Estou enviando anexo o código VBA da planilha com o módulo Filtro e as imagens de um esboço da mesma em que estou trabalhando este código. Obrigado!

CÓDIGO PARA OBTENÇÃO DAS SOMATÓRIAS.docx

[Visitante]

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel. Imagens não servem.

[WILSON SILVA JUNIOR]

1 hora atrás, osvaldomp disse:

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel. Imagens não servem.

Obrigado Osvaldo! E perdoe a minha ingenuidade, é que eu posto muito pouco aqui no forum, e como estou neste processo de aprendizado, conto com vocês para me auxiliarem. Segue a planilha no formato .rar como sugerido.

Projeto.Somases-Testes.rar

[Midori]

 

@WILSON SILVA JUNIOR Você pode usar '*' no filtro, acrescentando um If nesta parte,

 

...

If Right(ComboBox1, 6) = "_Total" Then
    Planilha1.Range("F2") = Mid(ComboBox1, 1, Len(ComboBox1) - 5) & "*"
Else
    Planilha1.Range("F2") = ComboBox1
End If

Call FILTRO

...

 

 

[WILSON SILVA JUNIOR]

@Midori Obrigado Midori! Mais uma vez você me salvou. Eu havia pensado em colocar um "If" no filtro, mas confesso que desconhecia a função MID e não tinha ideia de como fazer o código funcionar. Tentei várias formas mas nenhuma delas deu certo. Você me abriu os olhos, pois agora vou estudar mais a fundo as funções relacionadas às STRINGS. Muitíssimo obrigado Midori!

adicionado 11 minutos depois

Resolvido! A Membro Pleno Midori me mostrou o caminho como uma verdadeira Sensei. ありがとうございました Midori!

[Patropi]

Boa tarde @WILSON SILVA JUNIOR

 

Para marcar o tópico como Resolvido não precisa digitar, na minha assinatura tem uma link para uma instrução de como proceder.

 

[]s