somar valor por criterio

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,166 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

(@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

(@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