Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Filtrar Dados de uma planilha e apresentar dados em uma ListBox

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
joaovictors1



Mensagens : 1
Data de inscrição : 25/02/2014

MensagemAssunto: Filtrar Dados de uma planilha e apresentar dados em uma ListBox   Ter Fev 25, 2014 11:46 pm

Boa tarde,

Segue a situação

Tenho um Form com 5 OptionButton e um botão confirmar.
Ao selecionar o item e clicar no botão quero abrir outro Form com uma ListBox
Os dados a serem preenchidos nesta ListBox estão em uma planilha com 13 colunas e linhas sem número exato definido. Porém preciso que pegue apenas as linhas que contenham uma das 5 informações comuns da coluna A do tipo String igual ao selecionado no OptionButton. Abaixo coloquei a lógica do que fiz para alimentar um textbox só para explicar melhor o que quero, mas não sei como fazer com que a ListBox ao buscar os dados na planilha filtre e mostre somente as linhas e colunas que contenham na primeira célula da linha o nome selecionado no Optionbutton.

Private Sub CommandButton1_Click()
Dim projetista As String
If OptionButton1.Value = True Then
projetista = "DAYANA"
Else
   If OptionButton2.Value = True Then
   projetista = "JANAINA"
   Else
           If OptionButton3.Value = True Then
           projetista = "RODRIGO"
           Else
                     If OptionButton4.Value = True Then
                     projetista = "WANESSA"
                     Else
                     projetista = "CLAUDIA"
           End If
       End If
   End If
End If

AGENDAPROJET.TextBox1.Value = projetista

AGENDAPROJET.Show
Voltar ao Topo Ir em baixo
Ver perfil do usuário
LincolnVba



Mensagens : 2
Data de inscrição : 26/03/2014

MensagemAssunto: Res: Filtrar Dados de uma planilha e apresentar dados em uma ListBox   Qua Mar 26, 2014 7:38 am

Kra, Dê uma olhada neste código. ele carrega na list box somente os registros filtrados em um componente, no seu caso optionButton. Porém, não é possível nomear os cabeçalhos.

Private Sub CommandButton1_Click()

'Pegando o Número de linhas da planilha
Dim linhas As Integer
linhas = Plan1.Cells(65536, 1).End(xlUp).Row

'reiniciando o listBox
listBox.Clear

' O termo txFiltro.text é o texto contido na propriedade Caption do option button que vc selecionou.
Dim exemplo As String
exemplo = txFiltro.Text

'Fazendo um for a partir da linha 2: primeira linha depois do cabeçalho.
Dim linhasListBox As Integer
linhasListBox = 0
For i = 2 To linhas
'Verificando se na primeira célula da linha é o texto do option button selecionado.
If UCase(Plan1.Cells(i, 1)) = UCase(exemplo) Then
'Adicionando os dados da linha na list box, no exemplo são 3 colunas.
With listBox
.AddItem
.List(linhasListBox, 0) = Plan1.Cells(i, 1)
.List(linhasListBox, 1) = Plan1.Cells(i, 2)
.List(linhasListBox, 2) = Plan1.Cells(i, 3)
End With

'Incrementando a contagem de linhas na ListBox
linhasListBox = linhasListBox + 1
End If
Next i
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Filtrar Dados de uma planilha e apresentar dados em uma ListBox
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Easy Registers 1.0
» Como criar base de dados?
» Como inserir dados no MEIO de um arquivo txt
» Como colocar mais dados obrigatórios
» Codigo de lançar dados?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: