Bom dia amigos.
fiz uma form no vba para somar uma coluna e deu certo.
agora queria aplicar a mesma form para as demais colunas, cada uma dando o total individual de cada coluna
Private Sub FILTRO_FORMA_PAGAMENTO_Change()
Dim I, Soma As Double
Soma = 0
For I = 0 To LISTA_CONSULTA.ListCount - 1
Soma = Soma + Val(LISTA_CONSULTA.Column(2, I))
Next
TOTAL_QTS = Soma
End Sub
fiz uma form no vba para somar uma coluna e deu certo.
agora queria aplicar a mesma form para as demais colunas, cada uma dando o total individual de cada coluna
Private Sub FILTRO_FORMA_PAGAMENTO_Change()
Dim I, Soma As Double
Soma = 0
For I = 0 To LISTA_CONSULTA.ListCount - 1
Soma = Soma + Val(LISTA_CONSULTA.Column(2, I))
Next
TOTAL_QTS = Soma
End Sub