Extract Values From Cells Based On Corresponding Cell Value

[fiberboysa]

Hi Dear Allz,
I am trying to extract values from preceding rows based on a value which is given in next columns.

Like in following example, in cell A2 Cell value is 10 (Highlighted in Green) the corresponding value in cell D2 is 3 (Highlighted in Red) so the value required in Cell E2 is combination of following three rows of Cell A2 i.e. values of cells A3, A4 and A5 which are A-1111 B-2222 C-3333 respectively. And in case of Cell A6 the corresponding value in cell D6 is 2 so the required value in cell E6 will be D-4444 E-5555.

The data continuous like this and formula or VBA code will fill my requirement in column E. Kindly let me know if you need further clarification. Thanks in advance...

	A	B	C	D	E
1	CLMN 1	CLMN 2	CLMN 3	CLMN 4	CLMN 5 (Required Formula/VBA)
2	10			3	A-1111 B-2222 C-3333
3	A-1111
4	B-2222
5	C-3333
6	20			2	4444 5555
7	4444
8	5555
9	30			4
10	F-6666				F-6666 7777 H-8888 9999
11	7777
12	H-8888
13	9999

<tbody>
</tbody>

 

[Fluff]

How about this UDF

Function fiberboysa(Cl As Range, Rws As Long) As String
   fiberboysa = Join(Application.Transpose(Cl.Offset(1).Resize(Rws).Value), " ")
End Function

Used like =fiberboysa(A2,D2)

 

[fiberboysa]

Thanks for reply. I have tried the UDF but its giving me VALUE error where value in column D is 1.

 

[Fluff]

Ok, how about

Function fiberboysa(Cl As Range, Rws As Long) As String
   If Rws = 1 Then
      fiberboysa = Cl.Offset(1).Value
   Else
      fiberboysa = Join(Application.Transpose(Cl.Offset(1).Resize(Rws).Value), " ")
   End If
End Function

 

[Fluff]

This will cater for 0 or empty in col D

Function fiberboysa(Cl As Range, Rws As Long) As String
   Select Case Rws
      Case 1
         fiberboysa = Cl.Offset(1).Value
      Case Is > 1
         fiberboysa = Join(Application.Transpose(Cl.Offset(1).Resize(Rws).Value), " ")
      Case Else
         fiberboysa = ""
   End Select
End Function

 

[fiberboysa]

This will cater for 0 or empty in col D

Function fiberboysa(Cl As Range, Rws As Long) As String
   Select Case Rws
      Case 1
         fiberboysa = Cl.Offset(1).Value
      Case Is > 1
         fiberboysa = Join(Application.Transpose(Cl.Offset(1).Resize(Rws).Value), " ")
      Case Else
         fiberboysa = ""
   End Select
End Function

Thanks dear!!! you saved my day. Have a good life ahead

 

[Fluff]

You're welcome & thanks for the feedback

 

[fiberboysa]

Hi Fluff,
When I was checking my data I found an error. There is one more addition in scenario that it should only take cell value if it starts with a specific character like if cell value starts with "SRL#" then this UDF should take this cell value else it should move to next cell. I hope following table will clarify this further.

	A	B	C	D	E
1	CLMN 1	CLMN 2	CLMN 3	CLMN 4	CLMN 5 (Required Formula/VBA)
2	10			3	A-1111 B-2222 C-3333
3	SLR# A-1111
4	SLR# B-2222
5	SLR# C-3333
6	20			2	4444 5555
7	SLR# 4444
8	SLR# 5555
9	30			4
10	SLR# F-6666				F-6666 7777 H-8888 9999
11	SLR# 7777
12
13	SLR# H-8888
14	ABCXYZ 12
15	SLR# 9999

<tbody>
</tbody>

You can see that after row 11 the next row i.e. row 12 is empty so UDF should ignore this empty row and in row 14 there is text that do not start with SLR# so it should be ignored as well.

 

[Fluff]

How about

Function fiberboysa(Rng As Range, Rws As Long) As String
   Dim i As Long
   Dim Cl As Range
   
   For Each Cl In Rng
      If Left(Cl, 4) = "SLR#" Then
         fiberboysa = fiberboysa & Cl.Value
         i = i + 1
         If i = Rws Then Exit For
      End If
   Next Cl
   fiberboysa = Trim(Replace(fiberboysa, "SLR#", ""))
End Function

used like
=fiberboysa(A9:A15,D9)

 

[fiberboysa]

Yes!!! that worked!
My data is usually in10,000+ rows. It took time but it worked. I've also changed the range of Cl to a variable so it just search within range rather 10000 rows . Thanks again and have a good day!