Bom dia pessoal.
Sou novo neste assunto, e estou com dificuldade em fazer os comandos para um Userform contendo Combobox, Listbox e o Sistema de filtro.
O caso é o seguinte, no meu listbox quero que ocorra de seguinte forma, quando eu seleciono um mês no combobox, o vba selecione a planilha e mostre as informação nela contida no listbox, e que ao digitar no textbox ao lado seja filtrado os nomes iniciados com a letra digitada no listbox.
Porem ainda não consegui fazer com que o vba faça a ligação com o combobox e busque as informações da planilha referente a ele, e tambem quando for fazer a pesquisa pelo filtro, ele tambem faça o msm.
aguardo uma luz dos Nobre colaboradores.
segue abaixo o modelo do meu codigo, caso esteja errado favor corrigir.
Dim guia As Worksheets
Dim linha As Integer
Dim coluna As Integer
Dim linhalistbox As Integer
Dim valor_celula As String
Dim REGISTRO As Integer
If Combomes.Value = "JANEIRO 2016" Then
REGISTRO = ThisWorkbook.Worksheets("JAN16").Select
ElseIf Combomes.Value = "FEVEREIRO 2016" Then
REGISTRO = ThisWorkbook.Worksheets("FEV16").Select
End If
Set guia = ThisWorkbook.REGISTRO
linha = 2
coluna = 11
linhalistbox = 0
Listbox1.Clear
With guia
While .Cells(linha, coluna).Value <> Empty
valor_celula = .Cells(linha, coluna).Value
If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then
With userform1.Listbox1
.AddItem
.List(linhalistbox, 0) = Cells(linha, 1).Value
.List(linhalistbox, 1) = Cells(linha, 2).Value
linhalistbox = linhalistbox + 1
End With
End If
linha = linha + 1
Wend
End With
End Sub
Postado : 18/05/2016 7:24 am