Plz help.. When a prodhiernr changes i want to sum the costs for this product.

J

JackSchilder

Hi there,

so i have for example :

prodhiernr artnr cost
1110050 123456 50
1110050 123544 60
1110050 234343 70
1110051 534222 90
1110051 353533 100
1110051 124643 80

When de prodhiernr changes to 1110051 i want to sum the total cost for
prodhiernr 1110050 and later on for the other products also (the list
is very long).. Does anyone have a clue how to do this?

Thanks in advance
 
T

Tom Ogilvy

Sub abc()
Dim i As Long
Dim startrw As Long
i = 3
startrw = 2
Do While Cells(i - 1, 1) <> ""
If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Cells(i, 1).Resize(2, 1).EntireRow.Insert
Cells(i, 3).Formula = "=Sum(C" & startrw & _
":C" & i - 1 & ")"
i = i + 2
startrw = i
End If
i = i + 1
Loop
End Sub

--
Regards,
Tom Ogilvy



"JackSchilder" <[email protected]>
wrote in message
news:[email protected]...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top