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