Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Filtrar valores

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Filtrar valores

Mensagem por Wagner.cwb »

Olá Pessoal, olha eu de volta rs

Meus caros, estou desenvolvendo uma planilha que precisa filtrar valores de outras planilhas.
Consegui filtrar os valores "uni valorados" com a função SumIfs, porém agora encontro mais de uma valor para determinados critérios.

No exemplo abaixo, encontro três valores (41,61,82) para os critérios data (01/07/2017) e "Planilha de leitura (CMEPLHS1)".

Ref |Etapa|Data |Hora| Evento

07/2017 |41| 01/07/17| 07:00| Planilha de leitura (CMEPLHS1)
07/2017 |61| 01/07/17| 07:00| Planilha de leitura (CMEPLHS1)
07/2017 |82| 01/07/17| 07:00| Planilha de leitura (CMEPLHS1)

Primeiro, qual função usarei para encontrar os valores 41 61 82?


Segundo, como alocar estes valores em uma única célula.

Resutado final
Geracao - PLHS

41 61 82

Pensei em criar um loop fixando o critério "data" até ele chegar no último valor, mas será que existe algo mais "inteligente"?


segue o arquivo completo.


Obrigado novamente, abs!
Anexos
Pasta1.7z
(59 Bytes) Baixado 181 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Filtrar valores

Mensagem por Wagner.cwb »

Boa tarde pessoal!

deve estar um pouco confuso o que estou pedindo.

Bom, estou tentando trabalhar com array, mas nunca fiz nada usando esse recurso, vou pedir o auxílio de vcs. por favor.

Meu raciocínio agora é:

Armazenar a "etapa" no vetor "data", resultado esperado é aparecer por exemplo:

00/00/0000 = 41 50 80

data = etapas encontradas


Tentei desse jeito, resumidamente:

o contador serve para indicar qual etapa filtra os meus critério, até aqui tudo bem.

Código: Selecionar todos

If contador > 0 Then
                    
    Dim ETAPA As Integer
    Dim Valor_result
    Dim Arr(2, 2)
    Dim Net As Integer 'Numeros de etapas
    Dim Det     'dias das etapas
                    
                    
                Valor_result = ETAPA
                
                Det = ValorA
                Net = Net + 1
                Arr(Det, Net) = Valor_result
                
                End If
Bom, esta dando erro grosseiro "Subscrito fora do intervalo" , pois não tenho experiencia com vetores.

Obrigado


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Filtrar valores

Mensagem por Wagner.cwb »

Voltei, pensei um pouco mais...

estou certo em fazer algo assim?

Tenho

35 opções de datas
100 opções de etapas

Logo, uma matriz com 35 rótulos com 100 possibilidades de etapas?
Matriz(35,100)?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder