Listbox contabilizando linhas em branco

2024 - VBA & Macros

Post Recente por Hsantos01 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,212 Visualizações

RSS

Hsantos01

(@hsantos01)

Posts: 29

Eminent Member

Topic starter

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.

Alguém poderia me ajudar nessa questão? Desde já agradeço.

Postado : 18/07/2018 5:21 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

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

Postado : 18/07/2018 5:42 pm