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
Postado : 21/01/2021 3:45 pm