ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 139
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Listbox contagem sem repetição

Mensagem por milton » Qua Set 02, 2020 9:28 am

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

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


Se a dica foi útil, clique no Joinha do lado direito da mensagem (acima).
Se tiver tirado todas as suas dúvidas, por gentileza atribuir ao título do tópico: [RESOLVIDO].

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

Re: Listbox contagem sem repetição

Mensagem por milton » Seg Out 05, 2020 8:02 am

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