i'm trying to compare 2 lists for duplicates items then split between the "-" and add the number together if its the same item in both lists, each item is listed like this:
comparing these 2 lists and adding to a new list like this:
snake was a duplicate, so the numbers after the "-" was added together, and the rest were added too.
this is my code, its not working very well..
Dim i As Long, e As Long
On Error Resume Next
For i = 0 To List2.ListCount - 1
For e = 0 To List3.ListCount - 1
st = Split(List2.List(i), "-")
ts1 = st(0): ts2 = st(1)
rst = Split(List3.List(e), "-")
rts1 = st(0): rts2 = st(1)
If LCase(ts1) = LCase(rts1) And i <> e Then
s1 = ts2: s2 = rts2: s3 = s1 + s2
List1.AddItem ts1 & "-" & s3
List1.AddItem List1, List3.List(e)