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

[Resolvido] Listbox contagem sem repetição

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Listbox contagem sem repetição

Mensagem por milton »

Bom dia pessoal!

Tenho uma listbox que faz a contagem dos registros e carregar na label LblRegistros, esse código está dentro da ComboBox2

Na coluna J da Planilha tem as datas onde os dias se repetem, gostaria que na Label também registrasse o número de dias sem repetição.

Ex: Localizado 205 registros, 23 dias trabalhados

Podem dar essa ajuda? Segue parte da Planilha em anexo.
Anexos
PRODUÇÃO - Cópia.rar
(50.32 KiB) Baixado 163 vezes
Editado pela última vez por milton em Seg Out 05, 2020 8:03 am, em um total de 1 vez.


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.


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: Listbox contagem sem repetição

Mensagem por LaerteB »

Bom dia,
milton
Amigo se eu entendi bem, tu queres contar os registros da coluna "DT FIM" da ListBox1, mas
a quantidade de dias trabalhados não são 23 e sim 22 (conforme o que está na sua ListBox1
de acordo com as datas de inicio e fim do seu "FormRelatorioOPS")...

Mais abaixo o código para a sua solução, este código é inserido dentro do "Objeto/Procedimento":

Código: Selecionar todos

Private Sub ComboBox2_Change()
Agora o código:

Código: Selecionar todos

 Dim xlin, i, x As Integer

 xlin = ListBox1.ListCount - 1

  For i = 0 To xlin
  For x = 0 To xlin

   If i <> x Then
    If x > xlin Or i > xlin Then Exit For
     If ListBox1.list(i, 5) = ListBox1.list(x, 5) Then

    xlin = xlin - 1

    End If
    End If

  Next x
  Next i
  
 ' MsgBox xlin
E para aparecer na Label8 "LblRegistros" a número de dias Trabalhados,
é só substituir a linha anterior por esta abaixo:

Código: Selecionar todos

Me.LblRegistros = "Localizado " & conta_registros & "  registros, " & xlin & " dias trabalhados"
Por gentileza verifique, teste e informe se era o que queria.

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smile :P ...

LaerteB :D


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Listbox contagem sem repetição

Mensagem por milton »

Bom dia LaerteB!
Muito obrigado, era isso mesmo.
:P


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