Excel Retornar grupos únicos e somar as notas dos grupos

[LhoSanca]

Boa tarde pessoal, sou novo aqui e esse é o meu primeiro post no fórum, espero estar fazendo da forma correta.

 

Bom, estou com uma certa dificuldade quanto a criar uma macro que me retorne grupos únicos (agrupados), e na frente somando-se as notas de cada grupo, e precisaria que isso fosse em VBA, alguém poderia me ajudar? 

 

 

 

Exemplo:

 

Grupo 1: 10 + 10

Grupo 2: 8 + 5 + 10

Grupo 3: 5 + 7 + 9 + 9

 

Desde já, fico muito agradecido!

[Patropi]

Boa tarde @LhoSanca

 

Seja bem-vindo ao fórum!

 

O código foi aplicado na mesma planilha que eu postei no tópico com formula.

Confira na planilha  e dê retorno.

 

Não se esqueça de clicar em Curtir.

 

[]s

01_02_18_Retornar unicos e somar_Patropi.zip

[LhoSanca]

@Patropi

 

Cara, você foi incrível, me ajudou muito! Fico muito agradecido!

 

Abs,

Leonardo Henrique

[LhoSanca]

@Patropi Você conseguiria me dizer como eu faço pra jogar os dados em outra planilha? no caso passar para uma plan2

[LhoSanca]

Eu consegui passar para outra planilha, só que tá dando um probleminha que ele fica em um loop infinito na planilha onde eu mando o resumo, e ai fica mandando zero depois dos dados resumidos.

 

 

 

Sub ResumoRelatorioAno()

 Dim c As Range

  Planilha2.Range("B11:B" & Cells(Rows.Count, 10).End(1).Row).Copy Sheets("RELATORIO_ANO").[B11]
  Sheets("RELATORIO_ANO").Activate
  Planilha3.Range("B11:B50").RemoveDuplicates Columns:=1, Header:=xlNo

   For Each c In Planilha3.Range("B11:B" & Cells(Rows.Count, 3).End(3).Row)
   
        c.Offset(, 1).Value = Application.SumIf(Planilha2.Range("B:B"), c.Value, Planilha2.Range("G:G"))
        c.Offset(, 2).Value = Application.SumIf(Planilha2.Range("B:B"), c.Value, Planilha2.Range("M:M"))
        c.Offset(, 3).Value = Application.SumIf(Planilha2.Range("B:B"), c.Value, Planilha2.Range("N:N"))

   Next c

End Sub
 

[Patropi]

Boa noite

 

Baseado na planilha que postei, mantenha na Plan1 o botão que aciona a macro, substitua o código por este:

Sub ListaSemRepetição()
 Dim c As Range
  Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Copy Sheets("Plan2").[H2]
  With Sheets("Plan2")
   .Range("H:H").RemoveDuplicates Columns:=1, Header:=xlYes
   For Each c In .Range("H2:H" & .Cells(Rows.Count, 8).End(3).Row)
    c.Offset(, 1).Value = Application.SumIf([A:A], c.Value, [B:B])
   Next c
  End With
End Sub

Não se esqueça de clicar em Curtir.

 

[]s

[LhoSanca]

Putz, show! Obrigadão cara! Abraços,

 

Leonardo Henrique

[LhoSanca]

@Patropi cara, sou eu mais uma vez kkkk, eu tô com problemas quando eu tenho algo escrito em cima, vou anexar a planilha seguindo o mesmo esquema que você me mandou, se conseguir dar uma olhada, acredito que seja por conta do .end que seleciona de baixo para cima e faz a contagem, mas quando tenho algo a cima da tabela que estou trabalhando ele considera também, eu precisaria que fosse somente na tabela de trabalho.

 

 

Retornar_unicos_e_somar.zip

[LhoSanca]

@Patropi