Este fórum está sendo desativado

[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.

[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 todos

Private 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

[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.