Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO]Como faço para não aparecer as linhas em branco no listbox

Dúvidas gerais sobre Excel
Nill2016
Colaborador
Colaborador
Mensagens: 32
Registrado em: Qua Mai 09, 2018 11:34 am

[RESOLVIDO]Como faço para não aparecer as linhas em branco no listbox

Mensagem por Nill2016 »

Pessoal, gostaria de saber como faço para eliminar as linhas em branco que aparacem na listbox. Estou usando o código abaixo mas não consegui fazer com que as linhas em branco não apareçam. Agradeço pela ajuda.

Código: Selecionar todos

Private Sub CommandButton4_Click()
Dim lastRow  As Long
Dim X        As Long
Dim I        As Double

I = 0
        
' Verifica qual a ultima célula preenchida
lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row

' Ciclo em todas as linhas
For X = 3 To lastRow '1 Linha dados pequisa
               
' verifica se o valor é igual ao da pesquisa
If Plan1.Cells(X, 4).Value <> "SIM" Then ' coluna pequisa

' Copia os valores
ListBox1.AddItem Plan1.Cells(X, 3).Value
ListBox1.List(I, 2) = Plan1.Cells(X, 3).Value
                
I = I + 1
                
End If
Next
Application.EnableEvents = True
End Sub
Editado pela última vez por Nill2016 em Sáb Jun 09, 2018 11:03 pm, 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.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Como faço para não aparecer as linhas em branco no listbox

Mensagem por srobles »

Nill2016,

Experimente o que segue abaixo :

Código: Selecionar todos

Private Sub CommandButton4_Click()
Dim lastRow  As Long
Dim X        As Long

'Limpa e refaz o layout do ListBox
ListBox1.Clear
ListBox1.ColumnCount = 2

' Verifica qual a ultima célula preenchida
lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row

' Ciclo em todas as linhas
For X = 3 To lastRow '1 Linha dados pequisa
               
' verifica se o valor é igual ao da pesquisa
If Plan1.Cells(X, 4).Value <> "" And Plan1.Cells(X, 4).Value <> "SIM" Then ' coluna pequisa

' Copia os valores
ListBox1.AddItem Plan1.Cells(X, 3).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Plan1.Cells(X, 3).Value
                
End If
Next
Application.EnableEvents = True
End Sub
Só não entendi o porque de se preencher as 2 colunas do ListBox com o mesmo valor, veja :

Código: Selecionar todos

ListBox1.AddItem Plan1.Cells(X, 3).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Plan1.Cells(X, 3).Value
Espero ter ajudado.

Abs


Nill2016
Colaborador
Colaborador
Mensagens: 32
Registrado em: Qua Mai 09, 2018 11:34 am

Re: Como faço para não aparecer as linhas em branco no listbox

Mensagem por Nill2016 »

Obrigado Saulo, agora chegou no que queria. A linha extra eu esqueci de apagar, fiz tantos testes que nem vi a duplicidade.


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