[Resolvido]Soma em coluna de list box com criterios

Tenho este cóigo que soma uma coluna de listBox

Código:


Function SomaColuna(Y As Integer)
On Error Resume Next
Dim X, soma
Dim StrTeste
soma = 0
For X = 1 To Me.lstConsulta.ListCount - 1
soma = soma + Me.lstConsulta.Column(Y, X)
Next
SomaColuna = soma
End Function

Supondo que eu tenha 3 registros
1 - Frango - PesoMedio 3
2 - Galinha - PesoMedio 2
3 - Frango - PesoMedio 4

COmo somar apenas os registros onde tem "Frango"

Grato pela Ajuda.

Resolvi assim..


Para a função de soma, adicional mais um valor como Opcional para a coluna de onde se extrairá a informação "Frango" que é uma coluna que só será utilizada pra o critério.


Function SomaColunaFiltro(Y As Integer, Optional N As Integer)
On Error Resume Next
Dim X, soma
Dim StrTeste As String
soma = 0
For X = 1 To Me.lstConsulta.ListCount - 1
'Aqui adicionei a clausula if direcionano a soma para quando for satisfeito o critério Frango contido na linha, somando apenas as linha onde na coluna que servirá de critério contiver a palavra especificada
If Me.lstConsulta.Column(N, X) = "Frango" Then
soma = soma + Me.lstConsulta.Column(Y, X)
MsgBox soma
End If
Next
SomaColunaFiltro = soma
End Function


Para preencher a caixa texto chamo a função especificando primeiramente a coluna a ser somada em seguida a coluna de critério:Me.txtPesoMedioFrango = SomaColunaFiltro(12, 9)

Cumprimentos

Certo três em um. Acho que compensaria dispensar um exemplo no repositório, o que achas?

Postei la no repositório.. não apenas este cálculo bem como outros envolvendo horas, desvio padrão, filtros etc..

Saudações