Draw lines to concatenate the value in two cells

Trebormac · August 7th, 2009, 06:08 PM

Is the a way in VBA to draw a line between 2 cells and that will concatenate the values into one of the cells?

Thanks for any insight.

Shasur · August 7th, 2009, 10:20 PM

Couldn't guess your complete requirement. Here is hint for you:

Code:

ActiveSheet.Shapes.AddLine ActiveSheet.Range("A1").Left, ActiveSheet.Range("A1").Top + 5, ActiveSheet.Range("B1").Offset(0, 1).Left, ActiveSheet.Range("B1").Top + 5

ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value & ActiveSheet.Range("B1").Value

Cheers
Shasur

Trebormac · August 8th, 2009, 11:58 AM

Thanks for your hint. I appreciate your comments.
Here is a little bit more of the requirement:

I have two columns(column A and column C) of data - about 100 or so rows in each column. Both columns are product names. There are the same products with different names. The user is a product manager that wants to draw a line between a product name in column A that matches up with a product name in column C. The result would be a concatenation that would be place in a cell in Column D adjacent to the matched cel in Cl..

Col A Col C Col D
Widget1 Gizmo4 Widget1 Gizmo14
Widget6 Gizmo4 Widget6 Gizmo4

I am also curious about what event handler I might put the code into...Selection_Changed, Mouse_Down.

Thanks for any additional help you might suggest.
Trebormac

Shasur · August 10th, 2009, 04:55 AM

If you want to check for all products, then you can better have a new sheet that maps each item in Col A and Col C

if there are any matching items in Col A then Col C will contain the value otherwise it can be empty

Cheers
Shasur