Need to edit code to work with this spreadsheet please.

[SOLTEC]

Sub ConcatImageGroups()
Dim LastRow As Long, Ar As Range
LastRow = Cells(Rows.Count, "M").End(xlUp).Row
Range("O2:O" & LastRow) = Evaluate("IF(M2:M" & LastRow & "=1,1,"""")")
For Each Ar In Range("O2:O" & LastRow).SpecialCells(xlBlanks).Areas
Ar(1).Offset(-1).Resize(Ar.Count + 1) = Join(Application.Transpose(Ar(1). _
Offset(-1, 1).Resize(Ar.Count + 1)), ";")
Next
End Sub

Excel 2010
	A	B	C
1	ID	Images	Combination Images
2	4658	1000.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
3	4658	1001.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
4	4658	1002.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
5	4658	1004.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
6	4658	1005.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
7	4703	1024.jpg	1024.jpg;1025.jpg;1026.jpg;
8	4703	1025.jpg	1024.jpg;1025.jpg;1026.jpg;
9	4703	1026.jpg	1024.jpg;1025.jpg;1026.jpg;
10	4913	1031.jpg
11	4913	1032.jpg
12	4939	1035.jpg
13	4939	1036.jpg
14	4939	1037.jpg
15	4939	1038.jpg
16	5047	1045.jpg
17	5047	1046.jpg
18	5047	1047.jpg
19	5047	1048.jpg
20	5079	1051.jpg
21	5079	1057.jpg
22	5079	1058.jpg
23	5079	1059.jpg
24	5135	1060.jpg
25	5135	1061.jpg
26	5135	1062.jpg
27	5135	1063.jpg
28	5135	1064.jpg
29	5135	1065.jpg
30	5135	1066.jpg
31	5135	1067.jpg
32	5135	1070.jpg
33	5135	1071.jpg
34	5135	1072.jpg
35	5135	1073.jpg
36	5135	1074.jpg
37	5135	1079.jpg
Sheet5

Thank you in advance for all assistance. It is greatly appreciated.

 

[oldbrewer]

it helps if you tell us what you are trying to do. It looks like for each id list all the .jpg files

4658	1000.jpg	1000.jpg	=b21
4658	1001.jpg	1000.jpg;1001.jpg	=IF(A22=A21,C21&";"&B22,B22)	drag this down
4658	1002.jpg	1000.jpg;1001.jpg;1002.jpg
4658	1004.jpg	1000.jpg;1001.jpg;1002.jpg;1004.jpg
4658	1005.jpg	1000.jpg;1001.jpg;1002.jpg;1004.jpg;1005.jpg
4703	1024.jpg	1024.jpg
4703	1025.jpg	1024.jpg;1025.jpg
4703	1026.jpg	1024.jpg;1025.jpg;1026.jpg
4913	1031.jpg	1031.jpg
4913	1032.jpg	1031.jpg;1032.jpg
4939	1035.jpg	1035.jpg
4939	1036.jpg	1035.jpg;1036.jpg
4939	1037.jpg	1035.jpg;1036.jpg;1037.jpg
4939	1038.jpg	1035.jpg;1036.jpg;1037.jpg;1038.jpg

<colgroup><col span="2"><col><col span="7"></colgroup><tbody>
</tbody>

 

[shg]

UDF?

Row\Col	A​	B​	C​	D​
1​	ID​	Images​	Combination Images​
2​	4658​	1000.jpg	1000.jpg; 1001.jpg; 1002.jpg; 1004.jpg; 1005.jpg	C2: =CatIf(INDEX($A$2:$A$37=A2, 0), $B$2:$B$37, "; ")
3​	4658​	1001.jpg	1000.jpg; 1001.jpg; 1002.jpg; 1004.jpg; 1005.jpg
4​	4658​	1002.jpg	1000.jpg; 1001.jpg; 1002.jpg; 1004.jpg; 1005.jpg
5​	4658​	1004.jpg	1000.jpg; 1001.jpg; 1002.jpg; 1004.jpg; 1005.jpg
6​	4658​	1005.jpg	1000.jpg; 1001.jpg; 1002.jpg; 1004.jpg; 1005.jpg
7​	4703​	1024.jpg	1024.jpg; 1025.jpg; 1026.jpg
8​	4703​	1025.jpg	1024.jpg; 1025.jpg; 1026.jpg
9​	4703​	1026.jpg	1024.jpg; 1025.jpg; 1026.jpg
10​	4913​	1031.jpg	1031.jpg; 1032.jpg
11​	4913​	1032.jpg	1031.jpg; 1032.jpg
12​	4939​	1035.jpg	1035.jpg; 1036.jpg; 1037.jpg; 1038.jpg
13​	4939​	1036.jpg	1035.jpg; 1036.jpg; 1037.jpg; 1038.jpg
14​	4939​	1037.jpg	1035.jpg; 1036.jpg; 1037.jpg; 1038.jpg
15​	4939​	1038.jpg	1035.jpg; 1036.jpg; 1037.jpg; 1038.jpg
16​	5047​	1045.jpg	1045.jpg; 1046.jpg; 1047.jpg; 1048.jpg
17​	5047​	1046.jpg	1045.jpg; 1046.jpg; 1047.jpg; 1048.jpg
18​	5047​	1047.jpg	1045.jpg; 1046.jpg; 1047.jpg; 1048.jpg
19​	5047​	1048.jpg	1045.jpg; 1046.jpg; 1047.jpg; 1048.jpg
20​	5079​	1051.jpg	1051.jpg; 1057.jpg; 1058.jpg; 1059.jpg
21​	5079​	1057.jpg	1051.jpg; 1057.jpg; 1058.jpg; 1059.jpg
22​	5079​	1058.jpg	1051.jpg; 1057.jpg; 1058.jpg; 1059.jpg
23​	5079​	1059.jpg	1051.jpg; 1057.jpg; 1058.jpg; 1059.jpg

Function CatIf(avbIf As Variant, _
               rInp As Range, _
               Optional sSep As String = ",", _
               Optional bCatEmpty As Boolean = False) As String
  ' shg 2007
  ' UDF only

  ' Catenates the elements of rInp separated by sSep where the corresponding
  ' element of avbIf is True. Empty cells ignored unless bCatEmpty is True.

  Dim iRow          As Long
  Dim iCol          As Long
  Dim i             As Long

  On Error Resume Next
  i = UBound(avbIf, 2)

  If Err.Number Then
    ' avbIf is 1D
    For iRow = 1 To rInp.Rows.Count
      For iCol = 1 To rInp.Columns.Count
        i = i + 1
        If avbIf(i) Then
          If bCatEmpty Or Not IsEmpty(rInp(iRow, iCol).Value2) Then
            CatIf = CatIf & rInp(iRow, iCol).Value2 & sSep
          End If
        End If
      Next iCol
    Next iRow
  Else
    ' it's 2D
    For iRow = 1 To rInp.Rows.Count
      For iCol = 1 To rInp.Columns.Count
        If avbIf(iRow, iCol) Then
          If bCatEmpty Or Not IsEmpty(rInp(iRow, iCol).Value2) Then
            CatIf = CatIf & rInp(iRow, iCol).Value2 & sSep
          End If
        End If
      Next iCol
    Next iRow
  End If

  If Len(CatIf) Then CatIf = Left(CatIf, Len(CatIf) - Len(sSep))
End Function

 

[SOLTEC]

Each product has multiple images (.jpg) files that need to associated with that product. What this does is gives me all the product combination images. Red shirt, blue shirt, grey shirt, etc..

 

[SOLTEC]

I need all the .jpg files in all matching numbers, not concatenated each time OldBrewer please

 

[SOLTEC]

Please pardon me. I had three strokes in 2013 and I'm not the sharpest tool in the shed. How do I use your UDF Function please?

 

[shg]

1. Copy the code from the post.

2. In Excel, do Alt + F11 to open the Visual Basic Editor.

3. From there, Insert > Module, and paste the code in the window that opens.

4. Do Alt+Q to return to Excel, and enter the formula as shown.

Then, VERY IMPORTANT, save the workbook with an xlsm extension.

 

[oldbrewer]

with my approach easy to find last id number (with max number of jpegs) and copy to new location and repeat for all ids

 

[shg]

I like oldbrewer's approach.

 

[oldbrewer]

shg - in fact if say cell D3 has the max number of jpegs, a formula in say D100 should be able to find the ID (in C100) that is last in its block and bring back the jpeg string, probably using offset match.............