Listbox Carregar Apenas os dados no filtro

2024 - VBA & Macros

Post Recente por Lorenzon 10 anos atrás

3 Posts

2 Usuários

0 Reactions

1,147 Visualizações

RSS

Lorenzon

(@lorenzon)

Posts: 355

Reputable Member

Topic starter

Pessoal,

O código abaixo, através de uma planilha que funciona como banco de dados, carrega a listbox do meu projeto.

Vejam abaixo:

Vamos lá:

'essa é a aba que contém os dados.
With Sheets("PDI")

Dim i As Long
ListBox2.Clear

For i = 1 To 50
ListBox2.AddItem Range("C" & i).Value
ListBox2.List(ListBox2.ListCount - 1, 1) = Range("D" & i).Value
ListBox2.List(ListBox2.ListCount - 1, 2) = Range("E" & i).Value

MsgBox "... Aguarde mais um pouco!", vbInformation, "Verificando..."

'aqui eu fecho a planilha
ActiveSheet.Protect Password:="bossjob"

ActiveWorkbook.Close SaveChanges:=True 'salvar True

Exit Sub

De acordo com as explicações que fiz na imagem acima, alguém pode ajudar-me?

Postado : 26/01/2015 6:38 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Vai no chute

For i = 1 To 50
If range(Range("E" & i).Value = "D" then  'Se não for a nota na coluna "E" altere para a correta
   ListBox2.AddItem Range("C" & i).Value
   ListBox2.List(ListBox2.ListCount - 1, 1) = Range("D" & i).Value
   ListBox2.List(ListBox2.ListCount - 1, 2) = Range("E" & i).Value
end if

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/01/2015 11:55 am