para somar é simples
Dim Total As Double
With MSFlexgrid1
For Linha = 1 to .Rows - 1
Total = Total + CDbl(.TextMatrix( Linha, 2)) ' 2 é a coluna a ser somada
Next Linha
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 2) = Total ' Aqui criei mais uma linha onde ponho o resultado da soma
End Wtih
Bom você pode trocar estas duas linhas
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 2) = Total ' Aqui criei mais uma linha onde ponho o resultado da soma
Por um LabeL
LblTotal.Caption = Total
e é isso veja se funciona
