VBA to concatenate data

[gheyman]

I have a table on sheet1 named Table1 (it starts in A10)

My first column my users go through each row and where they want to use the data they put an "X"

Is there a way to use VBA to due a Next type of statement where when there is an X in column A it takes the values in column B and concatenates them all and puts them into cell B2 (my table starts in A10)
I need enclose each item in { } so if I need to parse the data later I can.

Thanks for the help.

 

[kweaver]

An example of your data and what result you want would be helpful. Trying to guess what you want, but not VBA (used a formula in B2) I tried this:

Book32
	A	B
2		{Two}{Three}{Six}
3
4
5
6
7
8
9
10	Mark	Data
11		One
12	x	Two
13	x	Three
14		Four
15		Five
16	x	Six
17		Seven
Sheet3

Cell Formulas
Range	Formula
B2	B2	=MarkRow()

Function MarkRow()
Dim str As String, lr As Long, i As Long
str = "{"
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 11 To lr
 If "x" = Cells(i, "A") Then
   str = str & Cells(i, "B") & "}{"
 Else
 End If
Next i
MarkRow = Left(str, Len(str) - 1)
End Function

 

[gheyman]

THNAK YOU!