Tentei adaptar com o filtro da data que tinha. Lógico que preciso ajustar.
Alguem consegue dar uma luz?
Sub filtrovariavel()
Dim Tmp As Long
Dim i As Long
Dim scombo As Date
Dim stextbox As Date
On Error GoTo Erro ' acrescentei para evitar loop
Tmp = FrmEstoquesSaldo.ListView1.ListItems.Count
If cbovariavel = "" Then
cbovariavel.SetFocus
Exit Sub
ElseIf txtestoque = "" Then
txtestoque.SetFocus
Exit Sub
End If
scombo = cbovariavel.Value
stextbox = txtestoque.Value
For i = 1 To Tmp
With ListView1
If .ListItems(i).SubItems(7) = scombo & .ListItems(i).SubItems(7) = stextbox Then
FrmEstoquesSaldo.ListView1.ListItems.Remove i
i = i - 1
Tmp = Tmp - 1
If i = Tmp Then Exit For
Tmp = FrmEstoquesSaldo.ListView1.ListItems.Count
End If
End With
Next
Exit Sub
Erro:
cbovariavel.SetFocus
End Sub
Postado : 31/07/2017 4:13 pm