Listbox contabilizando linhas em branco  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Listbox contabilizando linhas em branco

Mensagempor Hsantos01 » Qua Jul 18, 2018 8:21 pm

Olá a todos.

Criei um form com uma listbox que realiza a filtragem de alguns dados. No entanto, ao criar um código para exibir numa label a quantidade de registros mostrados no lisbox, notei que o listbox estava mostrando linhas em branco.

Já revisei meu código e não consegui encontrar uma solução.

Vejam a imagem abaixo. Em vez de contabilizar 4 registros, o listbox está adicionando linhas em branco para cada registro mostrado.

Imagem

Alguém poderia me ajudar nessa questão? Desde já agradeço.
Você não está autorizado a ver ou baixar esse anexo.
Hsantos01
Membro
Membro
 
Mensagens: 28
Registrado em: Seg Fev 27, 2017 7:40 pm
Has thanked: 13 times
Have thanks: 0 time

{ SO_SELECT }

Re: Listbox contabilizando linhas em branco  [Resolvido]

Mensagempor klarc28 » Qua Jul 18, 2018 8:42 pm

Código: Selecionar todos
Sub Contarregistros()
Dim contador_reg As Integer
Dim CONT As Integer
CONT = 0
For contador_reg = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.List(contador_reg, 0) <> "" Then

CONT = CONT + 1
End If

Next contador_reg


'contador_reg = ListBox1.ListCount
Labelcontar.Caption = CONT - 1 & " registros encontrados"

End Sub
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
Hsantos01 (Qua Jul 18, 2018 9:04 pm)
klarc28
Membro
Membro
 
Mensagens: 966
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 402 times

Re: Listbox contabilizando linhas em branco

Mensagempor Hsantos01 » Qua Jul 18, 2018 9:04 pm

klarc28

Show de bola... Era isso mesmo que eu precisava. Muito obrigado. :)
Editado pela última vez por Patropi em Qua Jul 18, 2018 9:27 pm, em um total de 1 vez.
Razão: Use o botão responder que fica logo abaixo da janela de resposta - Só use citação quando realmente for necessário
Hsantos01
Membro
Membro
 
Mensagens: 28
Registrado em: Seg Fev 27, 2017 7:40 pm
Has thanked: 13 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes