Somar em TextBox

2024 - VBA & Macros

Post Recente por NERI S 7 anos atrás

7 Posts

3 Usuários

0 Reactions

1,453 Visualizações

RSS

Alemão

(@alemao)

Posts: 14

Active Member

Topic starter

Pessoal, estou enviando a planilha em anexo.
Preciso que na minha planilha , na Aba pesquisar, clicar no botão pesquisar , ele abre um formulario listview. Gostaria que quando eu selecionasse os itens para o listview2, aparecece no textbox total de produtos a soma da coluna "disponivel" da planilha .

Postado : 04/07/2017 8:16 am

carlosrgs

(@carlosrgs)

Posts: 631

Prominent Member

Boa tarde Alemão.

Cara nunca usei Listview
Mas talvez ajude.

Se você conseguir linkar uma célula para as seleções realizadas, pode usar esse código para somar.

Para TextBox = UserForm1.TextBox1.Text = Plan1.Range("A1").Text
Para Rotulo = UserForm1.Label1.Caption = Plan1.Range("A1").Text

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

Postado : 04/07/2017 10:32 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Boa tarde Alemão
Não entendi bem: vc fala em listview mas está usando listbox.

Se colocar uma listview e quiser somar pode ser adaptado o seguinte:

Sub calcularvalortotal()
Dim i As Long
Dim valor As Double
For i = 1 To Me.ListView1.ListItems.Count
valor = valor + CDbl(Me.ListView1.ListItems(i).ListSubItems(12)) 'este 12 é o número da coluna
Next i
txtvalortotal.Text = valor
txtvalortotal.Value = Format(txtvalortotal, "R$ #,##0.00") ' teste
End Sub

veja se serve

Postado : 04/07/2017 12:03 pm

Alemão

(@alemao)

Posts: 14

Active Member

Topic starter

Desculpe , na pressa escrevi errado é listbox, e o valor que eu falo (é a soma das quantidades). Tipo se eu pesquisar um fabricante e quiser saber o valor total de quantidades de produtos deste fabricante.
Posso usar esse mesmo codigo , só substituindo listview , por listbox?

Postado : 04/07/2017 12:29 pm