Hi,

I need to do something complicated & would appreciate your help.

I'm going to type in a value ("Alias") in a cell on worksheet 1 ("Assessment"). I want this value to look for the matching value in Column B of worksheet 2 ("main") in the same workbook. This Column B contains a huge list of possible values that may match.

Once it finds the row of this matching value in Column B (say, it's in row 55), I want to take all existing values to the right, but only from Column L through X, then paste/transpose this string of values into vertical order under the original "Alias" cell on worksheet 1 ("Assessment").

On worksheet 2 ("main"), for each row there is a different number of values between Column L thru X, so I want it to count how many values there actually are & just paste/transpose those.

I can further explain if needed. Below is a function that does something similar, but I need to find out how to fit it to this:

****** http-equiv="Content-Type" content="text/html; charset=utf-8">****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 11">****** name="Originator" content="Microsoft Word 11"> Sub TransposeColumnEqual()

With Worksheets("Guidelines")

Set c = .Cells.Find(What:="Field Description", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)


Set c = Range(c.Offset(1, 0), c.End(xlDown))
numparams = c.Count
End With
With Worksheets("TW")
.Activate
For i = 1 To numparams
.Cells(1, i).FormulaR1C1 = "=Guidelines!R" & c.Row - 1 + i & "C" & c.Column
Next i
End With
End Sub
Sub TransposeParamsEqual()

With Worksheets("Guidelines")

Set c = .Cells.Find(What:="Specified Parameter", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)


Set c = Range(c.Offset(1, 0), c.End(xlDown))
numparams = c.Count
End With
With Worksheets("TW")
.Activate
For i = 1 To numparams
.Cells(2, i).FormulaR1C1 = "=Guidelines!R" & c.Row - 1 + i & "C" & c.Column
Next i
End With
End Sub