Filtros

Question

Estou com alguns problemas de inicio no meu Primeiro Projeto

Primeiro: Sempre que estou programando em VBA Excel o Excel trava e reinicia.
Ja formatei a maq e instalei tudo novamente e continua com o mesmo problema, isto esta me deixando com medo visto que estou criando um
sistema de controle de contas para uma oficina.

Ja criei alguns forms que estao salvando nas planilhas corretamente .
Será que este problema irá persistir quando o sistema estiver pronto ?
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Segundo: Estou apanhando para realizar um procedimento que acredito que pra vcs é muito simples mas pra mim está dificil de conseguir.

Ai vai o problema:
Tenho um FormCadServicos
Preciso que quando clicar no botao Salvar alem de gravar na (Plan 1) todos os dados na  proxima linha vazia que contem alem do Campo codCliente outros campos (isto ja esta funcionando muito bem), PRECISO que Salve tbem no Campo (ATIVO) da (Plan 6) daquele Cliente escolhido um valor = 1.

MOTIVO: Tenho um FormVisualizarServicos

CONTEUDO DO FORM
 
--------------------FILTROS--------------------------------------------------------
------RadioButton1 = Mecanico1
------RadioButton2= Mecanico2
------DataPickerInicio e DataPickerFim
------------------------------FIM DOS OBJETOS DE FILTRO---------------------------------------------------------
------ListView1
------ListView2
------Varios outros Campos Necessários para Editar os serviços
------BotaoEditar
------BotaoExcluir
------BotaoLimpar
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Terceiro:

Na Inicialização deste FormVisualizarServicos preciso que o ListView 1 carregue somente os Clientes que conter no Campo (ATIVO) VALOR = 1
e o ListView2 carregue todos os Serviços realizados nos ultimos 30dias de todos os clientes carregados na Listview1
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Quarto:
Solicitaçao de filtros
Quando clicar na linha do Cliente dentro do Listview 1 , o ListView 2 devera mostrar todos os Serviços cadastrados daquele cliente.
Quando clicar no RadioButton1= Mecanico1 deverá ocorrer um filtro dentro da ListView2 buscando todos os serviços daquele Mecanico1
Quando clicar no RadioButton2= Mecanico2 deverá ocorrer um filtro dentro daListView2 buscando todos os serviços daqueleMecanico2

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Por enquanto é só.
Agradeço se puder me ajudar.

---

Antonio Carlos [e-mail]

Answer 1

Boa noite acefel, tudo bem?

Cara, acho que um filtro avançado pode resolver seus problemas...

primeiro, fiz um exemplo simples aqui:

com essa base, escrevi no RowSource das propriedades do ComboBox1 o seguinte: "=$A$2:$A$3". Referente ao Status. Na imagem acima tem o exemplo.

Depois disso, dentro do comboBox1 criei o seguinte código:

Private Sub ComboBox1_Change()

'Primeiro gravamos o valor do ComboBox1 na célula de procura

Sheets("Plan1").Range("H2") = Me.ComboBox1

'Aqui esta o código do filtro avançado, lembrando que que ele vai executar cada vez que você mudar o status

Range("D3:F7").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H1:H2"), CopyToRange:=Range("J3:L8"), Unique:=True
        


End Sub

Pronto, agora nas propriedades do ComboBox2 vá até o RowSource e digite: "=$J$4:J$10".

Veja o resultado:

Acho que com essa lógica pode implementar e fazer sua ideia funcionar.

Abraço.