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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Listbox contagem sem repetição
[Resolvido] Listbox contagem sem repetição
- Anexos
-
- PRODUÇÃO - Cópia.rar
- (50.32 KiB) Baixado 171 vezes
Editado pela última vez por milton em Seg Out 05, 2020 8:03 am, em um total de 1 vez.
Re: Listbox contagem sem repetição
Bom dia,
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":
Agora o código:
E para aparecer na Label8 "LblRegistros" a número de dias Trabalhados,
é só substituir a linha anterior por esta abaixo:
Por gentileza verifique, teste e informe se era o que queria.
Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smile ...
LaerteB
Amigo se eu entendi bem, tu queres contar os registros da coluna "DT FIM" da ListBox1, masmilton
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()
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
é só substituir a linha anterior por esta abaixo:
Código: Selecionar todos
Me.LblRegistros = "Localizado " & conta_registros & " registros, " & xlin & " dias trabalhados"
Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smile ...
LaerteB