Bom dia pessoal,
mais um topico de soma
poderia me ajudar em uma soma de colunas de um listview
segue em
Private Sub BtGravar_Click()
'--------------------------------------------------------------------------------
Set Ws = ThisWorkbook.Worksheets("Lancamento")

lin = Ws.UsedRange.Rows.Count + 1 'Primeira linha em branco

Ws.Cells(lin, 1) = CLng(ProximoId) 'Criei uma function para gerar um novo id
Ws.Cells(lin, 2) = TxtCultura
Ws.Cells(lin, 3) = TxtFazenda
Ws.Cells(lin, 4) = TxtFornecedor
Ws.Cells(lin, 5) = TxtProduto
Ws.Cells(lin, 6) = CLng(TxtNAplicacao) 'os campos que usa o recurso Clng e CDbl nao podem ficar vazios
Ws.Cells(lin, 7) = TxtDose
Ws.Cells(lin, 8) = CDbl(TxtArea)
Ws.Cells(lin, 9) = TxtTotalAplica
Ws.Cells(lin, 10) = CDbl(TxtValorUnit)
Ws.Cells(lin, 11) = CDbl(TxtValorTotal)

Select Case Me.TxtFornecedor.ListIndex
Case 0
Set Ws = ThisWorkbook.Worksheets("fmc")
Case 1
Set Ws = ThisWorkbook.Worksheets("Lavrobras")
Case 2
Set Ws = ThisWorkbook.Worksheets("Syngenta")
End Select

lin = Ws.UsedRange.Rows.Count + 1

Ws.Cells(lin, 1) = CLng(ProximoId)
Ws.Cells(lin, 2) = TxtCultura
Ws.Cells(lin, 3) = TxtFazenda
Ws.Cells(lin, 4) = TxtProduto
Ws.Cells(lin, 5) = CLng(TxtNAplicacao)
Ws.Cells(lin, 6) = TxtDose
Ws.Cells(lin, 7) = CDbl(TxtArea)
Ws.Cells(lin, 8) = TxtTotalAplica " SOMAR ESTE CAMPO E MOSTRA EM TEXTBOX
Ws.Cells(lin, 9) = CDbl(TxtValorUnit)
Ws.Cells(lin, 10) = CDbl(TxtValorTotal) 'ESTE AQUI TAMBEM

Me.LstLancamentos.ListItems.Clear
Call Lancamento
Call LimpaEntrada
MsgBox "Item cadastrado com sucesso !!!", vbExclamation, "Informação"
TxtProduto.SetFocus

End Sub

Desde ja agradeço a todos obrigado