Somar valores da planilha numa TEXT

[Michelle Alves]

Boa noite,

Tenho um USERFORM que irá somar os dados de uma planilha. Por exemplo, na textbox1, deve somar todos os valores que são referentes a DINHEIRO, na textbox2 todos que são referentes a CHEQUE e na textbox3 todos que forem referentes a CARTÃO.

Exemplo:

15/02/09 DINHEIRO R$ 60,00

18/02/09 CARTÃO R$ 110,00

18/02/09 CHEQUE R$ 150,00

21/02/09 DINHEIRO R$ 89,00

25/02/09 CHEQUE R$ 70,00

Alguém pode me ensinar a montar a estrutura para efetuar essa soma ?

[MPR]

Michelle,

Eu respondi algo bem parecido para outra pessoa em outro fórum. Vou repetir aqui:

Estou considerando que os dados que você postou começam a partir da célula A2 e não há linhas em branco no intervalo de dados. Se for diferente altere os endereços.

A B C

2 10/03/09 DINHEIRO R$ 45,00

3 11/03/09 CHEQUE R$ 69,00

4 15/03/09 CHEQUE R$ 35,00

O código que vai no formulário é o seguinte:

Dim criterios As Range

Dim intsoma As Range

Sheets("Relsan").select

'Intervalo com o tipo de pagamento

Range("B2").Select

Set criterios = Range(ActiveCell, ActiveCell.End(xlDown))

'Intervalo com os valores a serem somados

Range("C2").Select

Set intsoma = Range(ActiveCell, ActiveCell.End(xlDown))

textbox1.text= Application.WorksheetFunction.SumIf(criterios, "DINHEIRO", intsoma)

textbox2.text = Application.WorksheetFunction.SumIf(criterios, "CHEQUE", intsoma)

Carlos César Tanaka

MPR Informática

http://www.mprinformatica.com.br

[Michelle Alves]

O outro post era de um funcionário daqui da empresa mesmo, mas aquela tua outra resposta lá naquele fórum não deu certo. Mas esse aqui deu certinho, Carlos.

Muito Obrigada.

[MPR]

OK Michelle, Se funcionou está bom. A resposta que está aqui foi copiada do outro fórum que eu respondi. :rolleyes: