LISTVIEW: SOMAR UMA DAS COLUNAS[ RESOLVIDO]

[LEANDRO ALVES]

OLA TOMAS VASQUEZ E OLA A TODO O PESSOAL DO FORUM. SOU NOVO NO RAMO DE PROGRAMAÇAO (VBA) E ESTOU COM DIFICULDADE NO LISTVIEW...PRECISO DE UM CODIGO QUE SOME OS VALORES DA QUARTA COLUNA (POR EXEMPLO) DO LISTVIEW (ISTO É POSSIVEL?) ...SE ALGUEM SOUBER POR FAVOR ME AJUDE. DESDE JA AGRADEÇO A ATENÇÃO

[webmaster]

Leandro,

Bem vindo. Primeiro, por favor, NÃO GRITE!

Segundo, o controle ListView que diz é qual exatamente?

Abraços

[LEANDRO ALVES]

Ola Tomas,

Perdao...eu nao quis ser indiscreto he! he! he!!!
Bom, eu sou novo em programação, entao fiquei meio perdido em sua pergunta. Mas vou tentar explicar mais detalhadamente.
Eu fiz um um adaptaçao no Cadastro de Fornecedores do Tomás Vásquez (vba excel) para Compra e venda de motos. E neste eu tenho um Combobox com as seguinte opçoes "Compra", "Venda" e "Venda Finalizada". Tenho tambem um formulario ("Relatorio") que filtra em um Listview somente os clientes cadastrados com a alteraçao para "Venda Finalizada". Este lisltview tem 6 colunas sendo as duas ultimas "Valor vendido" e "Comissão Recebida". Até aqui tudo bem...
O que eu preciso é somar estes valores filtrados nas colunas "Valor vendido" e "Comissão Recebida", cada um em um textbox.


Obrigado pela força...


Um abraço

[webmaster]

Leandro,

Supondo que a coluna do ListView que senha os valores seja a de índice 3, o código seria mais ou menos esse:

Código: Selecionar todos

Private Sub Somar()
    Dim i As Long
    Dim valor As Double
    For i = 1 To Me.ListView1.ListItems.Count
        valor = valor + CDbl(Me.ListView1.ListItems(i).ListSubItems(3))
    Next i
    MsgBox valor
End Sub

É só adaptar.

Abraços

[LEANDRO ALVES]

Bom dia Tomás,

Eu tentei de diversas maneiras adaptar o codigo que voce me mandou, mas só dá ERRO DE EXECUÇÃO "13" ou ERRO DE COMPILAÇÃO.Estou te mandandoa a minha planilha para que voce dê uma olhada....

Obrigado pela atenção especial.

Até mais.

[webmaster]

Leandro,

Aqui funcionou. No seu caso, no form frmRelatorio, a coluna de soma pode ser a 4 (valor) ou 5 (comissão), que deve entrar no ListSubItems do código. Só tem um problema. Os valore estão com formatação de número (ex: R$ 100,00), então, é preciso limpá-los antes de fazer soma. No caso, recomendo que faça-a direto da planilha, na coluna K e M pelo que pude ver.

É mais fácil do que ficar transformando o dado que já está no ListView.

Abraços

[LEANDRO ALVES]

Tomas,

Muito obrigado pela força...

Um abraço

[LEANDRO ALVES]

Ola Tomas,

Estou passando pra te dizer q fiz um novo projeto e usei a formula q vc me passou. Funcionou direitinho.
Valeu mesmo, muito obrigado!!!!!!!!!!

Abraços,
Leandro Alves