Pesquisa datas em listbox
Enviado: 23 Jun 2015 às 12:09
por JeanHard
Bom dia.
Estou deixando um form modelo em anexo pois preciso da seguinte ajuda:
Preciso em uma coluna de datas pesquisar em um textbox o mes e em outro o ano. O Form esta pesquisando a data completa mas não é isso que quero.
Já tentei usar a o (MID) mas não consegui.
Re: Pesquisa datas em listbox
Enviado: 24 Jun 2015 às 16:58
por alexandrevba
Boa tarde!!
Seu eu imaginar (visto que não detalhado), que você vai usar um botão para após entrar com o mês e ano, clicar em um botão, então...
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim LR As Long
Dim r As Long
Dim i As Long
ListBox1.Clear
With Worksheets("Plan1")
LR = .Range("A" & .Rows.Count).End(xlUp).Row
For r = 2 To LR
If .Cells(r, 2).Value = Txtmes.Value And .Cells(r, 3).Value = Txtano Then
ListBox1.AddItem .Cells(r, 1).Value
ListBox1.List(i, 1) = .Cells(r, 3).Value
i = i + 1
End If
Next r
End With
End Sub
Att
Pesquisa datas em listbox
Enviado: 25 Jun 2015 às 10:16
por JeanHard
Alexandre, bom dia.
Na verdade o que pretendo é fazer com que o txtmes eo txtano tenha a mesma função do textbox1 qm que vou digitando e ele vai buscando o valor. Quero fazer uma pesquisa separada tipo, busco todos os meses 06 independente do ano o mesmo para o ano independente do mês.
Mas não sei como vou fazer. Ex: Se eu puxar o mes, ele tera que pesquisar somente o 4º eo 5° caractere do list eo o ano ele tera que puxar os quatros últimos carecteres.
Sei que é possível só não estou conseguindo executar.