Guima, uma duvida, você quer adicionar uma linha no listview ? ou a soma pode ser em Labels ?

Se for direto no listview, você pode realizar a soma na propria planilha e carregar esta linha.

Bom dia Mauro,

Seria adicionar uma linha mesmo. O ideal seria fazer isso que voce descreveu, carregar no listview uma determinada linha da planilha.

Obrigado pela resposta

Guima, segue o modelo onde as colunas são somadas, poderiámos incluir as instruções de soma direto na rotina preenche, mas criei a rotina SomarColunas separada onde chamamos quando carregamos o listview, assim fica mais fácil ajustar ou utilizar em outros listview, veja se é isto.
Uma outra forma, tambem poderiamos utilizar uma function na rotina para somar as colunas direto da planilha e depois jogar para o listview.

De uma olhada se é isto.
Somar Colunas de um Listview

[]s

Poxa Mauro, muito bom. Voce reduziu em poucas linhas um código que eu fiz com mais de 50 linhas...rs

Uma curiosidade, será que tem como colorir apenas a linha da soma? Ex.: .Backcolor = vbYellow

Valeu

Poxa Mauro, muito bom. Voce reduziu em poucas linhas um código que eu fiz com mais de 50 linhas...rs

Uma curiosidade, será que tem como colorir apenas a linha da soma? Ex.: .Backcolor = vbYellow

Valeu

Guima, sempre me desafiando, está certo que nem tudo acertamos, mas como uma vez ja consegui zebrar as linhas, vou dar uma olhada e depois retorno um modelo com a linha Total Destacada colorida, enquanto isto, só para alterar a cor do Texto acrescente a linha em destaque na rotina de somar :

With LISTA.ListItems(sLinha)
.SubItems(xCol) = Format(sSoma, "R$ #,0.00")
'Colorir a Fonte da Linha Total
.ListSubItems.Item(xCol).ForeColor = vbRed
.Selected = True
End With

Alterei a situação para não Resolvido, só para não trancarem o tópico, depois de eu adicionar o modelo seto novamente.

[]s

Guima, adaptei aquele modelo de listview zebrado mais a sua solicitação de inserir linha do total e destaca-la, e como achei interessante adicionei no Forum BIBLIOTECA, de uma olhada se atende.

Somar colunas ListView e colorir linha
http://www.planilhando.com.br/forum/vie ... 21&t=16766

[]s

hahaha... o listview zebrado foi DEMAIS !! E ja alguns anos isso, como passa rápido o tempo....

Agora este eu perguntei, mas ja achando que não tinha jeito...rsrs

Realmente não dá pra duvidar do VBA. Esse modelo ja entrou no acervo.

Valeu por mais essa meu caro.

Abraço

hahaha... o listview zebrado foi DEMAIS !! E ja alguns anos isso, como passa rápido o tempo....
Agora este eu perguntei, mas ja achando que não tinha jeito...rsrs
Realmente não dá pra duvidar do VBA. Esse modelo ja entrou no acervo.
Valeu por mais essa meu caro.
Abraço

Verdade Guima, fui dar uma olhada no Forum do Tomaz e já vão fazer 5 anos, como o tempo passa.

abraços