quando seleciono o mes e o ano

uma possibilidade

For x = 5 To ultimalinha
    If Month(Plan4.Cells(x, 1)) = Val(TextBox1.Text) And Year(Plan4.Cells(x, 1)) = Val(TextBox2.Text) Then
        Set li = ListView1.ListItems.Add(Text:=Plan4.Cells(x, "a").Value)
            li.ListSubItems.Add Text:=Plan4.Cells(x, "c").Value
            li.ListSubItems.Add Text:=Plan4.Cells(x, "e").Value
            li.ListSubItems.Add Text:=Plan4.Cells(x, "g").Value
    ElseIf TextBox1.Text = "" Then
        Set li = ListView1.ListItems.Add(Text:=Plan4.Cells(x, "a").Value)
            li.ListSubItems.Add Text:=Plan4.Cells(x, "c").Value
            li.ListSubItems.Add Text:=Plan4.Cells(x, "e").Value
            li.ListSubItems.Add Text:=Plan4.Cells(x, "g").Value
    End If
Next

sossego

Pelo jeito você não leu os links que eu postei no teu outro tópico:

Continua colocando ajuda no título e anexando sem compactar.

Também não aprendeu como agradecer ao colaboradores, clicando na mãozinha.

[]s