Excel Erro ao filtrar Listbox

[paulocezarpicos]

Boa noite galera,

Alguém poderia me ajudar com esse filtro no Listbox. Estou apanhando a um bom tempo e não consigo descobrir o erro desse código nesse Lisbox. De já agradeço a quem poder me ajudar.

Obs.: Planilha em anexo.

 

Paulo Cezar

Adilau.rar

[RafaVillani]

Olá @paulocezarpicos, veja se lhe atende!

 

RafaVillani

Adilau.rar

[paulocezarpicos]

Valeu RafaVillani, no grau. Muito obrigado

[paulocezarpicos]

Bom dia RafaVillani.

Não sei reabrir esse post. Mas queria que você me ajudasse mais uma vez. É que o listbox tá contando os registros junto com o titulo, como faço pra corrigir isso

 

Agradecido,

 

Paulo Cezar

[RafaVillani]

@paulocezarpicos olá, disponibilize a planilha para download e me explique melhor o que está ocorrendo.

 

RafaVillani

[paulocezarpicos]

Boa noite RafaVillani. Agradecido pelo retorno.

 

Primero que ao filtrar a listbox percebo que a quantidade de registro que aparece na label20 está contando com o titulo, isto é, são 33 registros e está aparecendo 34 registros, porque está contando com titulo da listbox. Outra coisa, na planilha geral consta 33 registros e na listbox só aparece 27.

 

Agradecido,

 

Paulo Cezar

Adilau2.rar

[RafaVillani]

Prezado @paulocezarpicos, bom dia, segue a planilha devidamente corrigida.

 

RafaVillani

Adilau.rar

[paulocezarpicos]

Ótimo RafaVillani,

 

Só não ficou 10 mesmo porque você não me disse onde eu estava errando (pra que eu possa aprender). Era pra ter pedido pra você comentar onde eu estava errando, mas você pode fazer isso agora.

 

Agradecido,

 

Paulo Cezar

[RafaVillani]

@paulocezarpicos

18 horas atrás, paulocezarpicos disse:

são 33 registros e está aparecendo 34

Aqui foi só acrescentar -1 ao contador do label, ou seja, contador -1, descontando o cabeçalho.

 

18 horas atrás, paulocezarpicos disse:

na planilha geral consta 33 registros e na listbox só aparece 27.

Aqui foi só acrescentar +6 na Rows.Count, por que isso? Porque iniciamos a contagem na célula A7, para definir a propriedade RowSource do ListBox que é Planilha3.Range(Planilha3.Cells(7,1),Planilha3.Cells(L,7), se você possui 33 itens na sua tabela, a variável L vai receber 34 (contando com o cabeçalho) ou seja, a Range será definida pelo intervalo A7:G34, porém, seus dados estão armazenados até a linha 40, então acrescentamos +6 ao Rows.Count, onde o 6 também corresponde ao número de linhas acima do início da sua tabela, que começa na linha 7, dessa forma corrigimos a Range que agora será representada pelo intervalo A7:G40.

 

RafaVillani

[paulocezarpicos]

RafaVillani ou quem possa me ajudar.

 

Eu acrescentei a essa planilha tipo um aviso pra quando chegar a uma determinada data a planilha me avisasse que era a data da leitura. Só que tá dando erro quando duplico a planilha pra utilizar no mês subsequente. Queria se fosse possível que alguém não só corrigisse o erro mas me dissesse onde estou errando. De já meus agradecimentos.

Obs1.: Planilha em anexo

Obs2.: Essa planilhazinha simples eu quero oferecer aos meus clientes (trabalho c/ energia solar)

 

LEITURA.zip

[RafaVillani]

@paulocezarpicosBom dia, substitua todas as linhas de comando  ActiveSheet.Unprotect e ActiveSheet.Protect por nomedaplanilha.Unprotect e nomedaplanilha.Protect, exemplo:

 

Na Plan16 (Maio2021) ficará assim:

 

Plan16.Unprotect = "0"

Plan16.Protect = "0"

 

RafaVillani

[paulocezarpicos]

RafaVillani,

 

Quando duplico a planilha acontece o mesmo erro, tem que fazer as alterações no código no VB, e o meu cliente sendo leigo não vai saber nem entrar no VB.

[RafaVillani]

@paulocezarpicosAcredito que não seja possível inserir um código VBA automaticamente após a inserção de uma nova aba na planilha (se é possível, eu desconheço).

 

O que eu aconselho você a fazer é deixar as planilhas fixas, 12 planilhas representando os meses do ano, janeiro, fevereiro...até dezembro, já com os códigos VBA, e uma outra planilha onde será feito o controle anual conforme as planilhas mensais. E um botão tipo reset para poder apagar as planilhas mensais ao final de cada ano. Se o cliente quiser analisar as leituras anteriores elas estarão nessa outra planilha disposta por ano e mês.

 

RafaVillani

[paulocezarpicos]

Você tem razão, vou fazer isso. Muito obrigado e até a próxima.

[RafaVillani]

@paulocezarpicosSem problemas, precisando é só chamar!

[paulocezarpicos]

RafaVillani,

 

Você que é o pai da criança me ajude kkkkkk. Fiz do jeito que você me orientou, mas não achei nada parecido na net que me ajudasse a dá o pontapé inicial. Queria inserir a data inicial e data final num Userform (já criado) e que o código filtrasse da aba geral e imprimisse na aba maio2021 de acordo com as datas do Userform já citado.

 

Obs.: Planilha em anexo.

 

De já meus agradecimentos

 

Paulo Cezar

LEITURA.zip

[RafaVillani]

@paulocezarpicosRespondi no outro tópico.

 

RafaVillani