Este fórum está sendo desativado

[crovador]

Olá amigos, estou precisando de uma ajuda com relação a este código.

Private Sub CommandButton3_Click()

txt_cod_produto.Text = ""
combo_descricao.Text = ""

Call Pesquisar1

'Filtrar por uma coluna retirando o registro do listview
Dim Tmp As Integer, i As Integer
On Error Resume Next
Tmp = ListView1.ListItems.Count 'Troque para o nome de seu formulario
For i = 1 To Tmp
With ListView1
If i > Tmp Then GoTo saida
If .ListItems(i).SubItems(5) > .ListItems(i).SubItems(6) Then 'Supondo que o valor a ser filtrado seja a coluna 6
ListView1.ListItems.Remove i
i = i - 1
Tmp = Tmp - 1

End If

End With
Next
saida:
Call SOMA_LISTA
Me.label_registro = dataini & " " & datafim & " " & Me.ListView1.ListItems.Count & " Registro(s)"
End Sub

Tenho uma coluna no listview estoque mínimo e outra estoque atual, gostaria de filtrar assim: quando meu estoque atual estiver menor que o mínimo filtrar somente valores que estão abaixo do mínimo.

pode ajudar-me amigos?