View Single Post
  #1   Report Post  
AthleteTO
 
Posts: n/a
Default Stumped! Collecting values into one cell.


Kind thanks Bernie, and three cheers for your easy to implement
solution!

Drew

Bernie Deitrick Wrote:

Drew,

You could use a User-Defined-Function, definition below. Copy the code
and
paste into a standard codemodule of your workbook. Used like:

=Nodes(A2,Sheet1!$B$2:$B$7,Sheet1!$A$2:$A$7)

Where A2 has the reuse code you are interested in, B2:B7 of Sheet1 has
the
reuse code table, and A2:A7 of Sheet1 has the Node values.

HTH,
Bernie
MS Excel MVP

Function Nodes(inVal As Range, _
InCode As Range, _
InNode As Range) As Variant

Dim i As Integer

Nodes = "None"

If InCode.Cells.Count < InNode.Cells.Count Then
Nodes = "Unbalanced entry ranges"
Exit Function
End If

If inVal.Cells.Count < 1 Then
Nodes = "Too many key values"
Exit Function
End If

For i = 1 To InCode.Cells.Count
If InCode.Cells(i).Value = inVal.Value Then
If Nodes = "None" Then
Nodes = InNode.Cells(i).Value
Else
Nodes = Nodes & ", " & InNode.Cells(i).Value
End If
End If
Next i

End Function



--
AthleteTO
------------------------------------------------------------------------
AthleteTO's Profile: http://www.excelforum.com/member.php...o&userid=15943
View this thread: http://www.excelforum.com/showthread...hreadid=274218