Guru do Excel e Power BI

Olá Pessoal, Bom Dia!

Depois de algum tempo, voltei para solicitar mais uma vez as consultas produtivas de voces, vamos lá.

Tenho esse sistema de Controle de Processo de Honorários Advocatícios que está em implantação. O que ocorre é que no Filtro de Pesquisa da ListBox não consigo listar nenhum registro por nome do cliente. A listbox esta funcionando perfeitamente a inconsistência só ocorre quando clico no campo de pesquisa. O Objetivo é filtrar os dados que já esyão sendo listados na ListBox com sucesso inclusive funcionando perfeitamente, porém o campo de pesquisa(filtrar) é de grande uso para o Advogado ao invés de só utilizar a barra de rolagem.

Quando não é utilizado o campo de pesquisa, utilizo a seleção direto pelos registros já listados na ListBox, e consigo efetuar todas as operações de: Inclusão, Alteração, e exclusão.

outro problema é que no momento de clicar no campo pesquisa, o cabeçalho não é listado, gostaria que mantivesse o mesmo cabeçalho, ou seja, deixando fixo. quando eu clicar no resultado no filtro seja o mesmo que está funcionando quando clico na ListBox.

Fico no aguardo!

Obs: Anexei os arquivos apenas do formulário do projeto VBA, caso seja necessário a planilha favor solicitar.
No arquivo compactado tem a senha do projeto VBA para abrir.

A rotina de pesquisa está neste Módulo: Private Sub caixa_Filtro_Change()

Boa Noite a Todos!

dentro do que foi solicitado está faltando algo que eu possa esclarecer, tah faltando material para análise. quando possível nos dê um retorno por gentileza.

Fico muito grato

servercold escreveu: ↑12 Mar 2021 às 10:42 Obs: Anexei os arquivos apenas do formulário do projeto VBA, caso seja necessário a planilha favor solicitar.

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com alguns dados, descreva na própria planilha, com exemplos, qual o resultado que está sendo gerado atualmente após o usuário efetuar determinada ação e qual seria o resultado desejado.
Não disponibilize arquivos/planilhas protegidos por senha.

Boa Tarde!,
Obrigado pela atenção.

Conforme solicitado, segue agora uma cópia da Planilha Demo. Dentro do arquivo compactado existe um arquivo com as senhas de acesso a planilha.

Obs: Para simular o problema, acesse o Menu Principal e clique na opção Botão [Honorários], na TabDados clique no Botão [Formulário], será aberta a Tela de Registro de Honorários, já existe 5 registros de demonstração.

1) Nesta primeira tela do ListBox tudo está em plano funcionamento, se observar e clicar em qualquer registro os mesmos são exibidos no Form corretamente e todas as operações de Inclusão, Alteração e Excluir estão funcionando;

2) O PROBLEMA:

2.1) A inconsistência ocorre quando iremos utilizar a funcionalidade do campo Pesquisa, quando digitado o primeiro Caractere sistema já esta fazendo a busca corretamente, porém ao clicar no resultado da busca os campos acima na 10 Colunas não consigo mais exibir no formulário com isso ocorre o erro, e o cabeçalho da ListBox fica em branco;

2.2) Comentei a linha abaixo justamente para tentar debbugar, pois o erro começa nela.

'.List(linhalistbox, 10) = Sheets("TabDados").Cells(Linha, 11) -- erro começa aqui


Obrigado pela atenção

Conforme solicitado, segue agora uma cópia da Planilha Demo. Dentro do arquivo compactado existe um arquivo com as senhas de acesso a planilha.

Obs: Para simular o problema, acesse o Menu Principal e clique na opção Botão [Honorários], na TabDados clique no Botão [Formulário], será aberta a Tela de Registro de Honorários, já existe 5 registros de demonstração.

1) Nesta primeira tela do ListBox tudo está em plano funcionamento, se observar e clicar em qualquer registro os mesmos são exibidos no Form corretamente e todas as operações de Inclusão, Alteração e Excluir estão funcionando;

2) O PROBLEMA:

2.1) A inconsistência ocorre quando iremos utilizar a funcionalidade do campo Pesquisa, quando digitado o primeiro Caractere o sistema já esta fazendo a busca corretamente, porém ao clicar no resultado da busca os campos acima na 10 Colunas não consigo mais exibir no formulário com isso ocorre o erro, e o cabeçalho da ListBox fica em branco;

2.2) Comentei a linha abaixo justamente para tentar debbugar, pois o erro começa nela.

'.List(linhalistbox, 10) = Sheets("TabDados").Cells(Linha, 11) -- erro começa aqui


Obrigado pela atenção

osvaldomp escreveu: ↑17 Mar 2021 às 08:35

servercold escreveu: ↑12 Mar 2021 às 10:42 Obs: Anexei os arquivos apenas do formulário do projeto VBA, caso seja necessário a planilha favor solicitar.

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com alguns dados, descreva na própria planilha, com exemplos, qual o resultado que está sendo gerado atualmente após o usuário efetuar determinada ação e qual seria o resultado desejado.
Não disponibilize arquivos/planilhas protegidos por senha.

Bom Dia @osvaldomp ,

Obrigado pela atenção, material disponibilizado.

osvaldomp escreveu: ↑17 Mar 2021 às 08:35

servercold escreveu: ↑12 Mar 2021 às 10:42 Obs: Anexei os arquivos apenas do formulário do projeto VBA, caso seja necessário a planilha favor solicitar.

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com alguns dados, descreva na própria planilha, com exemplos, qual o resultado que está sendo gerado atualmente após o usuário efetuar determinada ação e qual seria o resultado desejado.
Não disponibilize arquivos/planilhas protegidos por senha.

osvaldomp escreveu: ↑17 Mar 2021 às 08:35 Não disponibilize arquivos/planilhas protegidos por senha.

Na sua última postagem não encontrei qualquer arquivo Excel e na sua postagem anterior há um Excel protegido por senha

@osvaldomp Boa Tarde!

Peço desculpas, Removi a senha de Proteção na abertura do Arquivo, Removi a senha do Projeto VBA, apenas a senha Login no Sistema que deixei, é só colocar a senha padrão abaixo e mais nada.

Obrigado pela atenção

Usuário: Adm
Senha: 123

#
Olá. Olhei o seu arquivo e infelizmente eu não consigo lhe ajudar devido ao tamanho e à complexidade do projeto VBA.

Eu sugiro que você consulte a pessoa ou a empresa que elaborou o projeto, ou aguarde ajuda de algum colega aqui do fórum. Sorry.

Boa noite.

Adaptando alguns exemplos de códigos obtidos na internet acho que encontrei uma solução.
Valeu pelo aprendizado.
Anexo planilha.
Verifique se atende

É isso