Filtro listview entre duas colunas

[Antonio Augusto 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?

[Alyson Ronnan Martins]

Bom dia.

Tem como mandar o link da planilha oara tentar te ajudar?

[Antonio Augusto Crovador]

https://1drv.ms/u/s!Avv4HvxdG0y5gYhoaxdaNDfWuS-wFg?e=LnR79f

 

 

Segue Amigo...

Editado Junho 1, 2021 por Antonio Augusto Crovador

[Alyson Ronnan Martins]

Boa tarde @Antonio Augusto Crovador

Quando tentei abrir seu projeto estava protegido.

[Antonio Augusto Crovador]

Desculpa amigo

Editado Julho 20, 2021 por Antonio Augusto Crovador