none
Filtros RRS feed

  • Pergunta

  • 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 acefeli@hotmail.com

    sexta-feira, 7 de novembro de 2014 21:48

Todas as Respostas

  • 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.

    sábado, 8 de novembro de 2014 02:53