Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
somar valor por cri...
 
Notifications
Clear all

somar valor por criterio

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
1,173 Visualizações
RSS
 Silverio
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Boa tarde!!!

Preciso de uma macro que pega o valor da coluna A coloque na coluna c e conta quantas vezes aparece e soma o valor da na coluna D

COL A COL B COL C COL D
3906 1 3906 3
3207 2 3207 2,5
3951 0,5
3902 0,3
3908 0,4
3901 0,8
3906 2
3207 0,5
3951 0,3
3902 0,4
3908 0,8
3901 4

 
Postado : 08/11/2016 12:12 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Silvério

Não precisa de macros, pois dá para fazer facilmente com fórmulas.
Uasr macro é como usar um canhão para matar uma formiga.

08_11_16_Copiar únicos e somar-Patropi.zip

Se foi útil, clique na mãozinha.

Dê retorno.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/11/2016 12:27 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente isso..

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Columns("A:A").Copy Destination:=Range("C1")
    Application.CutCopyMode = False
    ActiveSheet.Range("$C$1:$C$12").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("D1").Formula = "=SUMIF($C$1:$C$600,C1,$B$1:$B$600)"
    Range("D1").AutoFill Destination:=Range("D1:D" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/11/2016 12:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico