leandro_vf,

Boa tarde!

Veja se é assim.

leandro_vf,

Boa tarde!

Veja se é assim.

Oi Wagner,

Antes de mais nada obg pela ajuda. Seria mais ou menos isso, so que preciso que o resultado da soma que apareca seja sempre o total do produto e nao o parcial obtido na altura da linha. Uma informacao importante e que na sequencia das linhas, na hora que muda o produto nao tem possibilidade de aparecer novamente.

Ok.

Entendi. Vamos aguardar, então, que alguém complemente pois o meu conehcimento é insuficiente para prosseguir.

Pois e. O meu tambem.

Olá, Leandro.

Veja se este código atende.

Sub SomaProduto()
 Dim x As Long, k As Long
  For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   k = Application.CountIf([A:A], Cells(x, 1))
   Cells(x + k - 1, 3) = Application.Sum(Range(Cells(x, 2), Cells(x + k - 1, 2)))
   x = x + k - 1
  Next x
End Sub

Ola Osvaldo!

Cara a soma ta correta, mas os valores obtidos da soma precisam se repetir em cada linha do produto.

Entende?

Com esse codigo o somatorio esta sendo incluido no ultimo produto da lista apenas.

Proposta do colega Morel modifica; veja se auxilia/atende

Sub Somar()
Dim i As Long, j As Long, UltimaLinha As Long
Dim Soma As Double
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    For i = 2 To UltimaLinha
        For j = 2 To UltimaLinha
            If Range("A" & j).Value = Range("A" & i).Value Then
                Soma = Soma + CDbl(Range("B" & j).Value)
                If Range("A" & j + 1).Value <> Range("A" & i).Value Then
                    Range("C" & j).Value = CDbl(Soma) 'Format(Soma, "#,##0.00")
                Soma = 0
                End If
            End If
        Next
        Soma = 0
    Next
End Sub

Cara, O resultado foi o mesmo. O Somatório foi inserido apenas no ultimo produto da sequencia, ficando os demais vazios. Vou pensar em uma segunda macro para preencher os valores vazios com o resultado que voce conseguiu.

Ola Osvaldo!

Cara a soma ta correta, mas os valores obtidos da soma precisam se repetir em cada linha do produto.

Substitua esta linha

Cells(x + k - 1, 3) = Application.Sum(Range(Cells(x, 2), Cells(x + k - 1, 2)))

por esta

Cells(x, 3).Resize(k).Value = Application.Sum(Range(Cells(x, 2), Cells(x + k - 1, 2)))

Agora foi! Tava tentando fugir de um COUNT mas parece que nao tem jeito. Acho que vai funcionar na minha aplicacao. Obrigado pela ajuda.

Agora foi! Tava tentando fugir de um COUNT mas parece que nao tem jeito. Acho que vai funcionar na minha aplicacao. Obrigado pela ajuda.

Em tempoÇ Quando a planilha for muito grande vai travar, em face do coUNTIF. Vou providenciar uma alternativa e posto aqui.

O que é uma "planilha muito grande" ? Quantas linhas com dados na coluna 'A' ? Como você sabe que "vai travar" ? Já testou ?

OI Osvaldo. Ja testei. Travou. Muito Grande refiro a quantidade de linhas, mais ou menos 800.000