Excel Somar Produtos Iguais Range VBA Excel

[Adão J. Silva]

Bom dia.

Alguém poderia me ajudar, tenho uma planilha com produtos e quantidades, inclusive já está pronta, só não estou conseguindo fazer as somas na range referente a cada produto, segue a planilha anexada. Muito obrigado.

SomarProdutos.xlsx

[Patropi]

Bom dia @Adão J. Silva

 

Seja bem-vindo ao fórum!

 

Confira na planilha uma opção com fórmula, onde na coluna E retorna os produtos únicos e na coluna F faz a soma por produto.

 

Dê retorno.

 

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

 

[]s

[Adão J. Silva]

@Patropi Patropi, desculpe-me mas não entendi, estou anexando uma outra planilha sé preciso que me explique a soma no código: Range("B" & LINHA).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

pois não está somando direito. Muito obrigado.

Planilha Soma Valores.7z

[Patropi]

@Adão J. Silva

 

Eu acabei me esquecendo de anexar a planilha, onde apenas postei um exemplo com fórmulas. que retorna o dados únicos e o respectivo total de cada um.

 

Confira na planilha e dê retorno.

 

Se quiser aplicar a mesma fórmula no VBA, bata usá-la como formula local.

 

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

 

[]s

31_03_19_Retornar produtos unicos e Somar_Patropi.xlsx

[Adão J. Silva]

@Patropi Patropi, formula também é muito interessante, mas na verdade o que eu quero é tipo relatório, quando mudar de produto ocorrerá a soma abaixo de cada produto. Obrigado.

[Visitante]

18 horas atrás, Adão J. Silva disse:

... o que eu quero é tipo relatório, quando mudar de produto ocorrerá a soma abaixo de cada produto.

 

Sugestão: disponibilize uma amostra do seu arquivo Excel com as fórmulas inseridas manualmente, ou se você preferir coloque os resultados esperados ao invés das fórmulas e explique como obteve os resultados.

[Adão J. Silva]

@osvaldomp @osvaldomp @osvaldomp

32 minutos atrás, osvaldomp disse:

 

Sugestão: disponibilize uma amostra do seu arquivo Excel com as fórmulas inseridas manualmente, ou se você preferir coloque os resultados esperados ao invés das fórmulas e explique como obteve os resultados.

@osvaldomp Bom dia, Osvaldomp, obrigado, estou disponibilizando uma planilha, estou com dificuldades no código VBA na linha da soma, onde tem que somar todos os produtos do mesmo nome: Ex.

Nome EmitenteVALOR

AMBIENTAL  4.400,00

AMBIENTAL  4.400,00

SubTotal8.800,00

GLOBALPRED 7.010,08

GLOBALPRED 9.008,31

GLOBALPRED 74.952,93

SubTotal90.971,32

GP 1.244,18

GP 19.018,21

SubTotal20.262,39

J.S.B. 2.256,66

J.S.B. 2.256,66

J.S.B. 2.372,11

J.S.B. 2.847,57

J.S.B. 3.120,00

J.S.B. 3.347,30

SubTotal16.200,30  

linha de comando do erro: Range("B" & LINHA).FormulaR1C1 = "=SUM(R[-1]C:R[-1]C)" (planilha anexada), está pegando somente a ultima linha referente a soma. Obrigado.

Planilha Soma Valores.7z

[Visitante]

Veja se aproveita. O código abaixo insere os subtotais, aí você pode incrementá-lo como desejar.

Sub InsereSubTotais()
 Dim r As Long, x As Long
  r = 2
  Do
   x = Application.CountIf([A:A], Cells(r, 1))
   Rows(r + x).Insert
   Cells(r + x, 1) = "Subtotal"
   Cells(r + x, 2) = Evaluate("SUM(B" & r & ":B" & r + x - 1 & ")")
   r = r + x + 1: If Cells(r, 1) = "" Then Exit Do
  Loop
End Sub

 

[Adão J. Silva]

1 hora atrás, osvaldomp disse:

Veja se aproveita. O código abaixo insere os subtotais, aí você pode incrementá-lo como desejar.

Sub InsereSubTotais()
 Dim r As Long, x As Long
  r = 2
  Do
   x = Application.CountIf([A:A], Cells(r, 1))
   Rows(r + x).Insert
   Cells(r + x, 1) = "Subtotal"
   Cells(r + x, 2) = Evaluate("SUM(B" & r & ":B" & r + x - 1 & ")")
   r = r + x + 1: If Cells(r, 1) = "" Then Exit Do
  Loop
End Sub

 

Osvaldo, muito obrigado, era isso mesmo que eu estava precisando. Problema resolvido!