Private Sub btnFiltrar_Click()

Dim linha As Long
Dim liSTA As ListItem




If Me.txtDataFinal.Text <> "" And IsDate(Me.txtDataFinal.Text) Then
If Me.txtDataInicial.Text <> "" And IsDate(Me.txtDataInicial.Text) Then
linha = 4
While Plan1.Range("B" & linha).Value <> ""




If CDate(Plan1.Range("B" & linha).Value) >= CDate(Me.txtDataInicial.Text) Then
If CDate(Plan1.Range("B" & linha).Value) <= CDate(Me.txtDataFinal.Text) Then

Set liSTA = ListView1.ListItems.Add(, , Plan1.Range("B" & linha).Value)

liSTA.SubItems(1) = Plan1.Range("C" & linha).Value
liSTA.SubItems(2) = Plan1.Range("D" & linha).Value
End If

End If
linha = linha + 1




Wend

End If
End If




If Me.txtDataFinal.Text = "" Then
If Me.txtDataInicial.Text <> "" And IsDate(Me.txtDataInicial.Text) Then
linha = 4
While Plan1.Range("B" & linha).Value <> ""




If CDate(Plan1.Range("B" & linha).Value) >= CDate(Me.txtDataInicial.Text) Then
'If CDate(Plan1.Range("B" & linha).Value) <= CDate(Me.txtDataFinal.Text) Then

Set liSTA = ListView1.ListItems.Add(, , Plan1.Range("B" & linha).Value)

liSTA.SubItems(1) = Plan1.Range("C" & linha).Value
liSTA.SubItems(2) = Plan1.Range("D" & linha).Value
'End If

End If
linha = linha + 1




Wend

End If
End If







End Sub




Private Sub txtDataFinal_Change()
If Len(Me.txtDataFinal) = 2 Then
Me.txtDataFinal.Value = Me.txtDataFinal.Value & "/"
ElseIf Len(Me.txtDataFinal) = 5 Then
Me.txtDataFinal.Value = Me.txtDataFinal.Value & "/"
End If
End Sub

Private Sub txtDataInicial_Change()

If Len(Me.txtDataInicial) = 2 Then
Me.txtDataInicial.Value = Me.txtDataInicial.Value & "/"
ElseIf Len(Me.txtDataInicial) = 5 Then
Me.txtDataInicial.Value = Me.txtDataInicial.Value & "/"
End If

End Sub

Private Sub UserForm_Initialize()

With ListView1
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add Text:="Data", Width:=70
.ColumnHeaders.Add Text:="Nome", Width:=250
.ColumnHeaders.Add Text:="Valor", Width:=70
.Font.Size = 9
End With

End Sub

Editado pela Moderação. Motivo:

Membro @anderson:  Novamente pedimos utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

Show de bola. 

Muito obrigado pela força Anderson.