Listbox nao carrega...
 
Notifications
Clear all

Listbox nao carregar itens em brancos da Coluna X


willianrc
Posts: 71
Registered
Topic starter
(@willianrc)
Trusted Member
Entrou: 5 anos atrás

Olá amigos,

Estou com uma dúvida, tenho um formulario com 1 Listbox, gostaria que este Listbox nao mostrasse os itens que estao em BRANCO na Coluna X , ou seja, mostrar somente os itens: VENCIDO, FALTA X DIAS , VENCE AMANHA , ETC.....

Agradeço antecipadamente.

Segue o projeto em Anexo. 

Responder
3 Respostas
2 Respostas
Anderson
Registered
(@anderson)
Entrou: 1 ano atrás

Estimable Member
Posts: 180

@willianrc

https://youtu.be/BV4YJFVNc9w

Responder
Mauro Coutinho
Moderator
(@coutinho)
Entrou: 2 anos atrás

Estimable Member
Posts: 102
Postado por: @willianrc

Olá amigos,

Estou com uma dúvida, tenho um formulario com 1 Listbox, gostaria que este Listbox nao mostrasse os itens que estao em BRANCO na Coluna X , ou seja, mostrar somente os itens: VENCIDO, FALTA X DIAS , VENCE AMANHA , ETC.....

Agradeço antecipadamente.

Segue o projeto em Anexo. 

Não sei se já conseguiu resolver, e pelo seu modelo fiquei em duvida se quer preencher o ListBox somente com as colunas com dados ignorando as em branco, se for isso teste a rotina abaixo, e se analisar da para ajustar para as outras colunas.

Private Sub PopularListbox1()
Dim i As Integer
Dim sRg As Range
Dim ultLin
Dim c As Range
Dim sValor As String
Dim lin_listbox
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets(UserForm2.txtList1.Value)

'Ultima linha preenchida na coluna A
ultLin = ws.Range("A" & Rows.Count).End(xlUp).Row

Set sRg = ws.Range("A2" & ":" & "A" & ultLin)

With Me.ListBox1
.Clear
.ColumnHeads = False
.ColumnCount = 3
.ColumnWidths = "50;50;50"

End With

i = 2
lin_listbox = 0

With ws
For Each c In sRg
'Capturamos o Valor na coluna X
sValor = .Cells(i, 24).Value
'Comparamos pra ver se não é vazio
If InStr(1, UCase(sValor), UCase(sValor), vbTextCompare) Then

'Add no listbox
With ListBox1
.AddItem 'Cells(i, 0)
.List(lin_listbox, 0) = Cells(i, 1)
.List(lin_listbox, 1) = Cells(i, 2)
.List(lin_listbox, 2) = Cells(i, 24)

lin_listbox = lin_listbox + 1
End With
End If

i = i + 1
Next c
End With

End Sub

 

[]s

Mauro Coutinho

Responder
willianrc
Posts: 71
Registered
Topic starter
(@willianrc)
Trusted Member
Entrou: 5 anos atrás

Ola amigos , muito obrigado pelas respostas, todas as 2 maneiras eu testei e obtive sucesso, muito obrigado. 

Responder