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]Como faço para não aparecer as linhas em branco no listbox

Dúvidas gerais sobre Excel
Nill2016
Colaborador
Colaborador
Mensagens: 20
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 » Sáb Jun 09, 2018 5:17 pm

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: 766
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 » Sáb Jun 09, 2018 10:41 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Nill2016
Colaborador
Colaborador
Mensagens: 20
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 » Sáb Jun 09, 2018 11:02 pm

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