Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Filtrar Dados de uma planilha e apresentar dados em uma ListBox

Ir para baixo 
2 participantes
AutorMensagem
joaovictors1




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

Filtrar Dados de uma planilha e apresentar dados em uma ListBox Empty
MensagemAssunto: Filtrar Dados de uma planilha e apresentar dados em uma ListBox   Filtrar Dados de uma planilha e apresentar dados em uma ListBox EmptyTer 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
Ir para o topo Ir para baixo
LincolnVba




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

Filtrar Dados de uma planilha e apresentar dados em uma ListBox Empty
MensagemAssunto: Res: Filtrar Dados de uma planilha e apresentar dados em uma ListBox   Filtrar Dados de uma planilha e apresentar dados em uma ListBox EmptyQua 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
Ir para o topo Ir para baixo
 
Filtrar Dados de uma planilha e apresentar dados em uma ListBox
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Macro para copiar dados de uma planilha e colar na última linha vazia de outra planilha
» Exportar dados (do controle ActiveX) de uma planilha A para uma planilha B
» Copiando dados de uma planilha para outra via VBA [RESOLVIDO]
» copiar dados de um formulario userform para uma planilha
» Copiando dados de uma planilha para outra via VBA

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: