THANKS EVERYONE - IT WORKS AND SAVES ME LOADS OF TIME
Bob Phillips Wrote:
Sub Reformat()
Dim i As Long
Dim rng As Range
Dim prev
Dim amt
For i = Cells(Rows.Count, "D").End(xlUp).Row To 2 Step -1
If Cells(i, "D").Value = Cells(i - 1, "D").Value Then
amt = amt + Cells(i, "E").Value
If rng Is Nothing Then
Set rng = Rows(i - 1)
Else
Set rng = Union(rng, Rows(i))
End If
Else
Cells(i, "E").Value = amt + Cells(i, "E").Value
amt = 0
End If
Next i
If Not rng Is Nothing Then rng.Delete
End Sub
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"milleroy"
wrote in
message ...
Hi I really need some help with this one - Please !
I have a table with 5 columns.
I want to use VB to look for a duplicate in column D, when one (or
more) is found, add up the duplicates in column E and delete the
unwanted rows. As in example
column D column E
Prod 1 2
Prod 2 3
Prod 3 56
Prod 3 44
Prod 3 10
Prod 1 33
Prod 1 67
What I would like it to show is
column D column E
Prod 1 2
Prod 2 3
Prod 3 110
Prod 1 100
Any suggestions ?
--
milleroy
------------------------------------------------------------------------
milleroy's Profile:
http://www.excelforum.com/member.php...o&userid=29870
View this thread
http://www.excelforum.com/showthread...hreadid=511781
--
millero
-----------------------------------------------------------------------
milleroy's Profile:
http://www.excelforum.com/member.php...fo&userid=2987
View this thread:
http://www.excelforum.com/showthread.php?threadid=51178