Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listbox Carregar Ap...
 
Notifications
Clear all

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,141 Visualizações
RSS
Lorenzon
 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

Next

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
 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
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Na mosca!

 
Postado : 26/01/2015 1:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico