title: How to loop through cells and concatenate with comma-delimited separators?
body: <p>I created the script below to loop through all yellow cells on a sheet and, when done, copy/paste the final concatenated result of everything, to a report showing all values of cells colored yellow.</p>
  
  <p>Essentially, the script produces something like this.</p>
  
  <pre><code>Task#6 Map Central Email Change to: Owner Group 
  Task#6 Map Central Email Change to: Owner Role
  Task#6 Map Central Email Change to: Task Description
  Task#7 Map Tri Email Change to: Owner Group 
  Task#7 Map Tri Email Change to: Owner Role
  Task#7 Map Tri Email Change to: Task Description 
  If the whole row is yellow, I simply get this:
  Task#14ADDED!!
  Task#15ADDED!! 
  </code></pre>
  
  <p>Just today my colleagues said they want to see the results like this:</p>
  
  <pre><code>Task#6 Map Central Email Change to: Owner Group; Owner Role; Task Description
  Task#7 Map Tri Email Change to: Owner Group; Owner Role; Task Description
  Task#14ADDED!!
  </code></pre>
  
  <p>How can I modify the code to print results like I described in the example directly above, where, for, each Task#, the results are separated by a semi-colon?  I designed this code a while back, and I’ve been looking at it in this format for a while, now I can’t seem to get my mind around the new format.</p>
  
  <pre><code>Sub UpdateFormat()
  Dim i As Long
  Dim j As Long
  
  Set sht = ThisWorkbook.Worksheets("Version Control")
  LRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1
  
  Worksheets("PaperlessTemplate").Select
      Set R = ActiveSheet.UsedRange
      For i = 1 To R.Rows.Count
      Worksheets("PaperlessTemplate").Select
          For j = 1 To R.Columns.Count
              If Cells(i, j).Interior.ColorIndex = 6 Then
                  Set Value = Cells(i, j)
                  TaskNo = Cells(i, 2)
                  TaskTitle = Cells(i, 3)
  
                  Title = Cells(1, j)
                      If Cells(i, 19).Interior.ColorIndex = 6 Then
                          finalset = finalset &amp; vbCrLf &amp; "Task#" &amp; TaskNo &amp; "ADDED!!"
                          GoTo here:
  
                          Else
                          finalset = finalset &amp; vbCrLf &amp; "Task#" &amp; TaskNo &amp; " " &amp; TaskTitle &amp; " " &amp; "Change to: " &amp; Title
                      End If
              End If
          Next
  here:
      Next
  
      Worksheets("Version Control").Cells(LRow, 4).Value = Worksheets("Version Control").Cells(LRow, 4).Value &amp; finalset &amp; vbCrLf
  
  End Sub
  </code></pre>