Página 1 de 1

[Resolvido] Listbox contagem sem repetição

Enviado: Qua Set 02, 2020 9:28 am
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.

Re: Listbox contagem sem repetição

Enviado: Sáb Set 05, 2020 9:08 am
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

Re: Listbox contagem sem repetição

Enviado: Seg Out 05, 2020 8:02 am
por milton
Bom dia LaerteB!
Muito obrigado, era isso mesmo.
:P