LhoSanca

Como posso adicionar uma função de soma no final do intervalo considerando que esse intervalo sempre varia por uma outra função? (Ps.: a soma precisaria ser abaixo da seleção como na figura)

Cara, consegui resolver com um soma-seS valeuuu, abraços

@CasaDoHardware Cara o problema que é algo gigantesco, eu precisaria incluir essa outra condição

@André_Arruda Na verdade, seria pra colocar outra condição dentro de: c.Offset(, 1).Value = Application.SumIf(Planilha1.Range("F:F"), c.Value, Planilha1.Range("G:G")) Exemplo: Se Condição1 e Condição2 for verdadeira então ele copia, caso uma não for, ele não copia nada

Seguindo essa linha de programação, como posso colocar outra condição para somar? Exemplo: gostaria que a soma fosse feita se o valor correspondesse a uma determinada célula, além da qual já está inserida nessa programação: For Each c In .Range("B11:B" & .Cells(.Rows.Count, 2).End(3).Row) c.Offset(, 1).Value = Application.SumIf(Planilha1.Range("F:F"), c.Value, Planilha1.Range("G:G")) Next c

@Patropi

@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

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

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 Você conseguiria me dizer como eu faço pra jogar os dados em outra planilha? no caso passar para uma plan2

@Patropi Cara, você foi incrível, me ajudou muito! Fico muito agradecido! Abs, Leonardo Henrique

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!