How to associate and mass edit all fields between 2 columns?

[illuminate]

Hello,
I have been trying for a while to achieve this without any success:

1. https://www.dropbox.com/s/95crj0t58swk610/Screenshot 2015-05-28 22.27.17.png?dl=0 in this scenario take data in B column and add them all into the field B138 with ";" separation. (example: Loop;Open Loop;Padded Open Loop;Padded T-Bar)


A) if there is something like this https://www.dropbox.com/s/sigqa4oi5gqb8dc/Screenshot 2015-05-28 22.29.41.png?dl=0 then make sure it does the #1 function only to the options that belong to the associated A column value. (notice the separate colors https://www.dropbox.com/s/v24a3ezk0xwyjv9/Screenshot 2015-05-28 22.32.31.png?dl=0)

I am not sure if this will be a single VBA or multiple VBA scripts.
Thank you

 

[pbornemeier]

I generally don't like to download files. can you post a portion of you code/workbook that shows the problem. See link to Excel Jeanie in my sig.

For #1, assuming column B data starts in B1 and ends before B137, with no blank cells try:

Option Explicit

Sub CopyBDataToB138()

    Dim rngCopy As Range
    Dim rngCell As Range
    Dim rngDest As Range
    
    Set rngCopy = Intersect(Columns(2), Range("B1").CurrentRegion)
    Set rngDest = Range("B138")
    
    For Each rngCell In rngCopy
        rngDest.Value = rngDest.Value & ";" & rngCell.Value
    Next
    
    Set rngCopy = Nothing
    
End Sub

If you explain this "only to the options that belong to the associated A column value" I can make a guess at #2