Este fórum está sendo desativado

[batistathor]

Boa tarde pessoas, venho aqui mas uma vez pedir ajuda , gostaria de uma rotina para carregar um listbox ,tenho na planilha uma coluna com nomes ativo e inativo , gostaria de quando carregar no listbox não carregasse os nomes inativos.. Desde de já agradeço a ajuda...

[osvaldomp]

Código: Selecionar todos

Sub CarregaListBox()
 Dim i As Long
  ActiveSheet.ListBox1.Clear
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(i, 2) = "ativo" Then ActiveSheet.ListBox1.AddItem Cells(i, 1)
  Next i
End Sub