Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Soma na Label
 
Notifications
Clear all

Soma na Label

 
2024 - VBA & Macros
Post Recente por Rui Maciel 7 anos atrás
5 Posts
2 Usuários
0 Reactions
901 Visualizações
RSS
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Venho junto de do forum solicitar ajuda na solução do seguinte problema:
Queria que no userform "ufm_dp" aparecesse a soma da coluna "C" na label22 ao selecionar determinado ano na combobox1, tentei por no userform_inicialize, mas não funciona, podem me dar uma dica, obrigado. Segue em anexo o trabalho.
Grato,
RM

 
Postado : 13/02/2018 5:16 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Você se esqueceu de dizer ADM 1234, mas eu já havia decorado.

 
Postado : 13/02/2018 5:28 pm
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Desculpe, pois foi esqueci-me.

 
Postado : 13/02/2018 5:30 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub ComboBox1_Change()
Call pesquisanome
TextBox1.SetFocus

Dim DLin As Long
DLin = Range("C1").End(xlDown).Row

Dim linha As Long
Dim soma As Double
soma = 0
For linha = 2 To DLin
soma = soma + Sheets(Me.ComboBox1.Value).Range("C" & linha).Value

Next linha
Me.Label22.Caption = soma
End Sub
 
Postado : 13/02/2018 5:38 pm
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Obrigado Klarc28, funcionou na perfeição, grande.

 
Postado : 13/02/2018 5:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico