Este fórum está sendo desativado

[walber]

Boa noite

gostaria de saber se tem como acrescentar a seleção conforme a seleção do mês e ano

Private Sub CmdVendas_Click()

With ListView1
.Gridlines = True
.View = lvwReport
FullRowSelect = True

.ColumnHeaders.Add Text:="Data", Width:=60
.ColumnHeaders.Add Text:="Descrição", Width:=200, Alignment:=2
.ColumnHeaders.Add Text:="Quantidade", Width:=60, Alignment:=2
.ColumnHeaders.Add Text:="Valor", Width:=40, Alignment:=2
.ColumnHeaders.Add Text:="Valor Total", Width:=60, Alignment:=2


End With
ultimalinha = Plan3.Cells(Plan3.Cells.Rows.Count, "a").End(xlUp).Row
ListView1.ListItems.Clear
For x = 5 To ultimalinha
Set li = ListView1.ListItems.Add(Text:=Plan3.Cells(x, "a").Value)
li.ListSubItems.Add Text:=Plan3.Cells(x, "c").Value
li.ListSubItems.Add Text:=Plan3.Cells(x, "d").Value
li.ListSubItems.Add Text:=Plan3.Cells(x, "e").Value
li.ListSubItems.Add Text:=Plan3.Cells(x, "f").Value


Next
End Sub