Macro required

D

Damo10

Active Member
Joined
Dec 13, 2010
Messages
460
Hi,

I have a workbook that I have created that imports data from 4 other workbooks and lists the data on the "Data" sheet, what I would like to have is a macro that will look through all the rows on this sheet and if it finds matches of data in 4 columns then have a message box pop up asking if the match would like to be comnined, if yes then the values for the matching rows in columns G & K be added together and entered into the first matching row and then the other matching rows deleted, the macro would then need to check if there are any other matches as there may be more than 1

See example of before and after

Excel Workbook
BCDEFGHIJK
1MachineIndexStartCustomerFillerAmmountCode%No Bags
214100:00Fredfudge100fu11010
314200:50Billcream200cr11020
414502:10Ellencream250cr11025
534800:00Bobfruit50fr12010
6341506:00Davemix300mx12060
7341807:00Edchocolate200ch1510
8342008:00Willchocolate500ch1525
Sheet1
Excel Workbook
BCDEFGHIJK
1MachineIndexStartCustomerFillerAmmountCode%No Bags
214100:00Fredfudge100fu11010
314200:50Billcream450cr11045
434800:00Bobfruit50fr12010
5341506:00Davemix300mx12060
6341807:00Edchocolate700ch1535
Excel 2010 Sheet2
Excel 2010
 
Sort by date Sort by votes
Hi Mick,

That code ammendment worked.

With the message boxes we can do away with them as the user will be entering a "N" in column B so there should be no need to ask again after.
So the first run of the code will be to highlight matches then the second run will combine based on the data in col B

With the CombineClusterSets can you ammend so that it combines if the Mc number, base type, fruit code and fruit % are the same?

Regards
 
Upvote 0

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop
That error occurs because the Flavours are the same and they are all group of 3 or more, if you used the "M/C" number as well as the "WON" number, specifying that the M/C Numbers should be the same to carry out a combination, I imagine that would work.
Also Your data for "Combine all sets" Code has Duplicate "WON" numbers.
"31052" & "31049"
In theory they should combine, but because they are duplicates you get the Combined "Flavour" Names being added together and ultimately they don't match.
What do you want to do about that ????
 
Last edited:
Upvote 0
So in code "CombineClusterSets" , we still use the "WON" number for the Forming of "Sets" ,and the below for the Combining of the "Sets" , is that OK.
With the CombineClusterSets can you ammend so that it combines if the Mc number, base type, fruit code and fruit % are the same?
Click to expand...
 
Upvote 0
Try this:-
When code first run for colouring sets, the cells "A1","A2" & "A3" are coloured Yellow.
When you have selected the set for combining , using "N" in col "B", run the code again and the same cells will revert to "xlNone" (No colour), and the appropriate sets will be combined.
Code: 
[COLOR="Navy"]Sub[/COLOR] MG07Nov34
Call CombineCluster '[COLOR="Green"][B]Complete sets Not Combined when "N" Present[/B][/COLOR]
Call CombineRest '[COLOR="Green"][B] Part sets Combined when "N" present[/B][/COLOR]
Call CombineClusterSets '[COLOR="Green"][B]Complete sets Not Combined when "N" Present[/B][/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Code: 
[COLOR="Navy"]Sub[/COLOR] CombineCluster()
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Tri     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Q       [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] k
[COLOR="Navy"]Dim[/COLOR] Rw      [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Txt     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Ray(1 To 4)
[COLOR="Navy"]Dim[/COLOR] fd [COLOR="Navy"]As[/COLOR] Boolean
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Del [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Title [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] colRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] ColRng2 [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]With[/COLOR] Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("C7"), Range("C" & Rows.Count).End(xlUp))
Rng.Interior.ColorIndex = xlNone
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
        Tri = Dn & Dn.Offset(, 1)
        [COLOR="Navy"]If[/COLOR] Dn.Offset(, 12) = 4 And Not UCase(Dn.Offset(, -1)) = "N" [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]If[/COLOR] Not .Exists(Tri) [COLOR="Navy"]Then[/COLOR]
            
             [COLOR="Navy"]Set[/COLOR] Ray(Dn.Offset(, 11)) = Dn
                .Add Tri, Ray
        [COLOR="Navy"]Else[/COLOR]
            Q = .Item(Tri)
            [COLOR="Navy"]Set[/COLOR] Q(Dn.Offset(, 11)) = Dn
           .Item(Tri) = Q
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] k [COLOR="Navy"]In[/COLOR] .Keys
    [COLOR="Navy"]For[/COLOR] n = 1 To UBound(Ray)
        [COLOR="Navy"]If[/COLOR] IsEmpty(.Item(k)(n)) [COLOR="Navy"]Then[/COLOR]
            fd = True
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]If[/COLOR] fd = False [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]If[/COLOR] .Item(k)(1).Offset(, 7) = .Item(k)(2).Offset(, 7) And _
        .Item(k)(1).Offset(, 8) = .Item(k)(2).Offset(, 8) And _
            .Item(k)(3).Offset(, 7) = .Item(k)(4).Offset(, 7) And _
                .Item(k)(3).Offset(, 8) = .Item(k)(4).Offset(, 8) [COLOR="Navy"]Then[/COLOR]
      [COLOR="Navy"]If[/COLOR] Range("A1").Interior.ColorIndex = xlNone [COLOR="Navy"]Then[/COLOR]
            [COLOR="Navy"]If[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                  [COLOR="Navy"]Set[/COLOR] colRng = Union(.Item(k)(2), .Item(k)(4))
              [COLOR="Navy"]Else[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] colRng = Union(colRng, .Item(k)(2), .Item(k)(4))
             [COLOR="Navy"]End[/COLOR] If
            [COLOR="Navy"]If[/COLOR] ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                  [COLOR="Navy"]Set[/COLOR] ColRng2 = Union(.Item(k)(1), .Item(k)(3))
              [COLOR="Navy"]Else[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] ColRng2 = Union(ColRng2, .Item(k)(1), .Item(k)(3))
             [COLOR="Navy"]End[/COLOR] If
   
    [COLOR="Navy"]ElseIf[/COLOR] Range("A1").Interior.ColorIndex = 6 [COLOR="Navy"]Then[/COLOR]
      .Item(k)(1).Offset(, 5) = .Item(k)(1).Offset(, 5) + .Item(k)(2).Offset(, 5)
         .Item(k)(3).Offset(, 5) = .Item(k)(3).Offset(, 5) + .Item(k)(4).Offset(, 5)
            .Item(k)(1).Offset(, 9) = .Item(k)(1).Offset(, 9) + .Item(k)(2).Offset(, 9)
                .Item(k)(3).Offset(, 9) = .Item(k)(3).Offset(, 9) + .Item(k)(4).Offset(, 9)
 
              [COLOR="Navy"]If[/COLOR] nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                  [COLOR="Navy"]Set[/COLOR] nRng = Union(.Item(k)(2), .Item(k)(4))
              [COLOR="Navy"]Else[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] nRng = Union(nRng, .Item(k)(2), .Item(k)(4))
             [COLOR="Navy"]End[/COLOR] If
      [COLOR="Navy"]End[/COLOR] If
   [COLOR="Navy"]End[/COLOR] If
 [COLOR="Navy"]End[/COLOR] If
 fd = False
 [COLOR="Navy"]Next[/COLOR] k
[COLOR="Navy"]If[/COLOR] Not colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    colRng.Interior.ColorIndex = 36
    Range("A1").Interior.ColorIndex = 6
[COLOR="Navy"]ElseIf[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    Range("A1").Interior.ColorIndex = xlNone
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]If[/COLOR] Not ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] ColRng2.Interior.ColorIndex = 6
[COLOR="Navy"]If[/COLOR] Not nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
   Range("A1").Interior.ColorIndex = xlNone
   nRng.EntireRow.Delete
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]With[/COLOR] Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Set[/COLOR] Rng = Nothing
[COLOR="Navy"]Set[/COLOR] nRng = Nothing
[COLOR="Navy"]Set[/COLOR] colRng = Nothing
[COLOR="Navy"]Set[/COLOR] ColRng2 = Nothing
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]



Code: 
[COLOR="Navy"]Sub[/COLOR] CombineRest()
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Tri     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Q       [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] k
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nnRng   [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] colRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] ColRng2 [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]With[/COLOR] Application
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("C7"), Range("C" & Rows.Count).End(xlUp))
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
      [COLOR="Navy"]If[/COLOR] Not UCase(Dn.Offset(, -1)) = "N" [COLOR="Navy"]Then[/COLOR]
        Tri = Dn & Dn(, 5) & Dn(, 8) & Dn(, 9)
        [COLOR="Navy"]If[/COLOR] Not .Exists(Tri) [COLOR="Navy"]Then[/COLOR]
            .Add Tri, Array(Dn, nRng)
        [COLOR="Navy"]Else[/COLOR]
            Q = .Item(Tri)
            [COLOR="Navy"]If[/COLOR] Q(1) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                [COLOR="Navy"]Set[/COLOR] Q(1) = Dn
            [COLOR="Navy"]Else[/COLOR]
                [COLOR="Navy"]Set[/COLOR] Q(1) = Union(Q(1), Dn)
            [COLOR="Navy"]End[/COLOR] If
            .Item(Tri) = Q
       [COLOR="Navy"]End[/COLOR] If
  [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] k [COLOR="Navy"]In[/COLOR] .Keys
    [COLOR="Navy"]If[/COLOR] Not .Item(k)(1) [COLOR="Navy"]Is[/COLOR] Nothing And .Item(k)(0).Offset(, 12) <= 1 [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]If[/COLOR] Range("A2").Interior.ColorIndex = xlNone [COLOR="Navy"]Then[/COLOR]
            [COLOR="Navy"]If[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                [COLOR="Navy"]Set[/COLOR] colRng = .Item(k)(1)
            [COLOR="Navy"]Else[/COLOR]
                [COLOR="Navy"]Set[/COLOR] colRng = Union(colRng, .Item(k)(1))
            [COLOR="Navy"]End[/COLOR] If
            [COLOR="Navy"]If[/COLOR] ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                [COLOR="Navy"]Set[/COLOR] ColRng2 = .Item(k)(0)
            [COLOR="Navy"]Else[/COLOR]
                [COLOR="Navy"]Set[/COLOR] ColRng2 = Union(ColRng2, .Item(k)(0))
            [COLOR="Navy"]End[/COLOR] If
   [COLOR="Navy"]ElseIf[/COLOR] Range("A2").Interior.ColorIndex = 6 [COLOR="Navy"]Then[/COLOR]
     .Item(k)(0).Offset(, 5) = .Item(k)(0).Offset(, 5) + Application.Sum(.Item(k)(1).Offset(, 5))
        .Item(k)(0).Offset(, 9) = .Item(k)(0).Offset(, 9) + Application.Sum(.Item(k)(1).Offset(, 9))
        .Item(k)(0).Offset(, 14) = .Item(k)(0).Offset(, 14) + Application.Sum(.Item(k)(1).Offset(, 14))
              [COLOR="Navy"]If[/COLOR] nnRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                  [COLOR="Navy"]Set[/COLOR] nnRng = .Item(k)(1)
              [COLOR="Navy"]Else[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] nnRng = Union(nnRng, .Item(k)(1))
             [COLOR="Navy"]End[/COLOR] If
      [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
 [COLOR="Navy"]Next[/COLOR] k
[COLOR="Navy"]If[/COLOR] Not colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    colRng.Interior.ColorIndex = 35
    Range("A2").Interior.ColorIndex = 6
[COLOR="Navy"]ElseIf[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    Range("A2").Interior.ColorIndex = xlNone
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]If[/COLOR] Not ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] ColRng2.Interior.ColorIndex = 4
[COLOR="Navy"]If[/COLOR] Not nnRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
   Range("A2").Interior.ColorIndex = xlNone
   nnRng.EntireRow.Delete
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]With[/COLOR] Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Set[/COLOR] Rng = Nothing
[COLOR="Navy"]Set[/COLOR] nRng = Nothing
[COLOR="Navy"]Set[/COLOR] nnRng = Nothing
[COLOR="Navy"]Set[/COLOR] colRng = Nothing
[COLOR="Navy"]Set[/COLOR] ColRng2 = Nothing
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Code: 
[COLOR="Navy"]Sub[/COLOR] CombineClusterSets()
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] n       [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Cols    [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] nRng    [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Q       [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] Dic     [COLOR="Navy"]As[/COLOR] Object
[COLOR="Navy"]Dim[/COLOR] Doc     [COLOR="Navy"]As[/COLOR] Object
[COLOR="Navy"]Dim[/COLOR] k
[COLOR="Navy"]Dim[/COLOR] Dup
[COLOR="Navy"]Dim[/COLOR] Tri     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Frt     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] DelRng  [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] colRng  [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] ColRng2 [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] oCrits  [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("C7"), Range("C" & Rows.Count).End(xlUp))
    [COLOR="Navy"]Set[/COLOR] Dic = CreateObject("scripting.dictionary")
        Dic.CompareMode = vbTextCompare
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
        Cols = Dn.Offset(, 1)
            [COLOR="Navy"]If[/COLOR] Not UCase(Dn.Offset(, -1)) = "N" [COLOR="Navy"]Then[/COLOR]
           
            [COLOR="Navy"]If[/COLOR] Not Dic.Exists(Cols) [COLOR="Navy"]Then[/COLOR]
                Dic.Add Cols, Array(Dn, Dn, Dn.Offset(, 4), Dn.Offset(, 7), Dn.Offset(, 8))
            [COLOR="Navy"]Else[/COLOR]
                Q = Dic.Item(Cols)
                    [COLOR="Navy"]Set[/COLOR] Q(0) = Union(Q(0), Dn)
                    Q(1) = Q(1) & Dn
                    Q(2) = Q(2) & ", " & Dn.Offset(, 4)
                    Q(3) = Q(3) & ", " & Dn.Offset(, 7)
                    Q(4) = Q(4) & ", " & Dn.Offset(, 8)
                Dic.Item(Cols) = Q
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]Set[/COLOR] Doc = CreateObject("scripting.dictionary")
    Dic.CompareMode = vbTextCompare
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] k [COLOR="Navy"]In[/COLOR] Dic.Keys
            [COLOR="Navy"]If[/COLOR] Dic.Item(k)(0).Count >= 3 [COLOR="Navy"]Then[/COLOR]
               oCrits = Dic.Item(k)(1) & Dic.Item(k)(2) & Dic.Item(k)(3) & Dic.Item(k)(4)
                [COLOR="Navy"]If[/COLOR] Not Doc.Exists(oCrits) [COLOR="Navy"]Then[/COLOR]
                    Doc.Add oCrits, Dic.Item(k)
                [COLOR="Navy"]Else[/COLOR]
                    [COLOR="Navy"]If[/COLOR] Range("A3").Interior.ColorIndex = xlNone [COLOR="Navy"]Then[/COLOR]
                        [COLOR="Navy"]If[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] colRng = Doc.Item(oCrits)(0)
                        [COLOR="Navy"]Else[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] colRng = Union(colRng, Doc.Item(oCrits)(0))
                        [COLOR="Navy"]End[/COLOR] If
                        [COLOR="Navy"]If[/COLOR] ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] ColRng2 = Dic.Item(k)(0)
                        [COLOR="Navy"]Else[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] ColRng2 = Union(ColRng2, Dic.Item(k)(0))
                        [COLOR="Navy"]End[/COLOR] If
                    [COLOR="Navy"]ElseIf[/COLOR] Range("A3").Interior.ColorIndex = 6 [COLOR="Navy"]Then[/COLOR]
                    Q = Doc.Item(oCrits)
                            [COLOR="Navy"]For[/COLOR] n = 1 To Q(0).Count
                                Q(0)(n, 6) = Q(0)(n, 6) + Dic.Item(k)(0)(n, 6)
                                Q(0)(n, 10) = Q(0)(n, 10) + Dic.Item(k)(0)(n, 10)
                            [COLOR="Navy"]Next[/COLOR] n
                        [COLOR="Navy"]If[/COLOR] DelRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] DelRng = Dic.Item(k)(0)
                        [COLOR="Navy"]Else[/COLOR]
                            [COLOR="Navy"]Set[/COLOR] DelRng = Union(DelRng, Dic.Item(k)(0))
                        [COLOR="Navy"]End[/COLOR] If
              
              [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] k
[COLOR="Navy"]If[/COLOR] Not colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    colRng.Interior.ColorIndex = 34
    Range("A3").Interior.ColorIndex = 6
[COLOR="Navy"]ElseIf[/COLOR] colRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    Range("A3").Interior.ColorIndex = xlNone
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]If[/COLOR] Not ColRng2 [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] ColRng2.Interior.ColorIndex = 8
[COLOR="Navy"]If[/COLOR] Not DelRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
   Range("A3").Interior.ColorIndex = xlNone
   DelRng.EntireRow.Delete
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Hi Mick,

Tested the code and all seems good apart from the combine cluster sets does not ask to combine the set with 3 matching rows, it works fine for the sets of 4.

One other thing that would be usefull is if you could enter "Combined" in column B and highlight it so that the user will know that the run is combined with others

Regards

Damian

<TABLE style="WIDTH: 717pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=956><COLGROUP><COL style="WIDTH: 61pt; mso-width-source: userset; mso-width-alt: 2872" width=81><COL style="WIDTH: 48pt" span=5 width=64><COL style="WIDTH: 86pt; mso-width-source: userset; mso-width-alt: 4096" width=115><COL style="WIDTH: 48pt" span=4 width=64><COL style="WIDTH: 79pt; mso-width-source: userset; mso-width-alt: 3726" width=105><COL style="WIDTH: 59pt; mso-width-source: userset; mso-width-alt: 2816" width=79><TBODY><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; WIDTH: 61pt; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19 width=81>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=64>29939</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>13:59</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=64>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66 width=64>640</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 86pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=115>APRICOT</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=64>FRT058</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=64>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66 width=64>16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=64>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 79pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=105>1</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; WIDTH: 59pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64 width=79>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>29939</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65>13:59</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66>640</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>PEACH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>FRT056</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66>16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>2</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>29939</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65>13:59</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66>640</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>PINEAPPLE</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>FRT036</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl66>16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>3</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: yellow; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl64>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>30000</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>17:20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>320</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>APRICOT</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>FRT058</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>8</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>1</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>30000</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>17:20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>320</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>PEACH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>FRT056</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>8</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>2</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl77 height=19>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>30000</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>15:16</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl68>17:20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>DFR</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>320</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>PINEAPPLE</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>FRT036</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl69>8</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>3</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffc000; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl67>3</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ccffff; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl76 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>11101</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>06:15</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>1988</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>STRAWBERRY</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>AAA001</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>28</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>1</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ccffff; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl76 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>11101</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>06:15</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>1988</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>APRICOT</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>AAA002</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>56</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>2</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ccffff; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl76 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>11101</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>06:15</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>1988</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>PEACH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>AAA003</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>28</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>3</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ccffff; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl76 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>11101</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>06:15</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl71>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>1988</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>CHERRY</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>AAA004</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl72>28</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #92d050; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl70>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: aqua; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl78 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>11254</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>08:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>497</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>STRAWBERRY</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>AAA001</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>7</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>1</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: aqua; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl78 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>11254</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>08:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>497</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>APRICOT</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>AAA002</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>14</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>10</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>2</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: aqua; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl78 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>11254</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>08:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>497</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>PEACH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>AAA003</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>7</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>3</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>4</TD></TR><TR style="HEIGHT: 14.4pt" height=19><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: aqua; HEIGHT: 14.4pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl78 height=19>18</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>11254</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>08:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl74>07:27</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>TYH</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>497</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>CHERRY</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>AAA004</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>22</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl75>7</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>20</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>4</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #b7dee8; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl73>4</TD></TR></TBODY></TABLE>
 
Upvote 0
I think the problem is that ,that "WON" number is a duplicate in the overall list. Ref:- My question yesterday !!
If the code find a duplicate "WON" number it adds it to the Set to form the set list, therefore , you may have 2 sets of three rows in a SET, that you would think will be Combined with an adjacent set of three, but if the first of those "WON" numbers is duplicated further down the list, then that information in the extra rows will be added to the first set "Set" and then the data from the first two sets will not match.
I thought perhaps you could make the initial criteria the "M/C" No and the "WON" number that way they should be Set Ref Numbers should be unique.
 
Upvote 0
Hi Mick,

Yes that was it, I didnt realise that there was a duplicate WON, my bad. That situation should not happen but there could always be the potential for someone to mistakingly add a duplicate. I see what you mean changing the initial criteria to m/c no & WON.

Is it possible to add the "Combined" to column B?

Regards
 
Upvote 0
At the bottom of each of the three code you will see a similar bits of code as below.
If you use the same line (Shown in red) for each code, then when you run the code to colour the cells the word "Combined" will appear in column "B" to the cells for combining
I think it will always relate to "colRng"
Rich (BB code): 
If Not colRng Is Nothing Then
colRng.Interior.ColorIndex = 8
colRng.Offset(, -1) = "Combined"
Range("A3").Interior.ColorIndex = 6
ElseIf colRng Is Nothing Then
Range("A3").Interior.ColorIndex = xlNone
End If
If Not ColRng2 Is Nothing Then ColRng2.Interior.ColorIndex = 34
If Not DelRng Is Nothing Then
Range("A3").Interior.ColorIndex = xlNone
DelRng.EntireRow.Delete
End If
 
Upvote 0
Hi Mick,

I added the line of code as you said but this adds "Combined" to the rows to be combined, what I would like is to have the "Combined" on the rows that have had the data combined.

One other thing I have noticed on larger test data is that with some machines (mainly on the combine rest code) that the data to be combined is mixed with other data sets to be combined so it is not so easy to tell what gets combined with what, would it be possible to have different colour sets for each?

Regards Damian
 
Upvote 0
You must log in or register to reply here.

Similar threads

F
  • Question Question
Looking for help or guidance on a potential Macro project
Replies
1
Views
90
Rijnsent
Rijnsent
F
  • Solved
Search & Find String of Words
2
Replies
10
Views
157
Peter_SSs
Peter_SSs
S
  • Question Question
Excel VBA - Sort & Get Totals - Logic
Replies
4
Views
419
STARL0RD
S
A
  • Solved
VBA code to extract a table
Replies
5
Views
289
Anthony47
A
D
  • Question Question
Modify a worksheet without registering it as a change
Replies
1
Views
110
Kaper
Kaper

Forum statistics

Threads
1,224,621
Messages
6,179,946
Members
452,949
Latest member
beartooth91

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top