Using Index Match to get the Desired Result from the Date - excel

Question

I have been striving hard to make a formula which match the dates and populate the index.
I have created this formula but if there are more then similar two dates or three or more in the data then how the data for all the similar dates will be populated in the cell.
I have attached a sheet where 1st Table has Data, 2nd is my table where i have applied below formula and third table is the accurate example the result i have been looking for.
Your help will be appreciated.
=IFERROR(INDEX(C2:C92,MATCH(F3,A2:A92,0)))
Link:
https://docs.google.com/spreadsheets/d/1WT7MJuNqspJGU6wLtKQRp2BxpuiRknkEKfZR4MZd-0A/edit?usp=sharing

Answer 1

If you have Office 365 then in cell F3 put:
=TEXTJOIN(CHAR(10),TRUE,IF($A$2:$A$92=E3,$C$2:$C$92,""))
and in cell G3 put:
=TEXTJOIN(CHAR(10),TRUE,IF($A$2:$A$92=E3,($B$2:$B$92*100)&"%",""))
Please note that percentage is not actual percentage but a concatenated string in the output formula.
EDIT
You can try below UDF if you don't have TEXTJOIN
Public Function ConcatStringConditional(rngCritCol As Range, rngCrit As Range, rngConcat As Range) As String
Dim i As Long
For i = 1 To rngCritCol.Cells.Count
If rngCritCol.Cells(i, 1).Value2 = rngCrit.Value2 Then
If Len(ConcatStringConditional) > 0 Then
ConcatStringConditional = ConcatStringConditional & vbCrLf & Format(rngConcat.Cells(i, 1).Value, rngConcat.Cells(i, 1).NumberFormat)
Else
ConcatStringConditional = Format(rngConcat.Cells(i, 1).Value, rngConcat.Cells(i, 1).NumberFormat)
End If
End If
Next i
End Function
This shall be copied to a module in Visual Basic Editor by choosing Insert|Module. You can google to see the procedure if you are unsure. Once put in a module then it can be used like a normal formula e.g.
=ConcatStringConditional($A$2:$A$92,E4,$C$2:$C$92)
This is basic functionality, please feel free to edit to your requirements further.
Note: Macros must be enabled for the UDF to run properly!

Answer 2

Please, try the next UDF function. It uses array and will be very fast, for big ranges:
Function bringData(D As Range, Optional X As String) As String
Dim sh As Worksheet, arr, lastR As Long, i As Long, strD As String
Set sh = ActiveSheet
lastR = sh.Range("A" & sh.rows.Count).End(xlUp).row
arr = sh.Range("A2:C" & lastR).value
For i = 1 To UBound(arr)
If CDate(arr(i, 1)) = CDate(D.value) Then
strD = strD & IIf(X = "D", arr(i, 3), arr(i, 2) * 100 & "%") & vbLf
End If
Next i
If strD <> "" Then
strD = left(strD, Len(strD) - 1)
bringData = strD
Else
bringData = "No Match"
End If
End Function
It can be called in the next way:
To obtain the Data (per date) the formula will be:
=bringData(E2,"D")
In order to bring the percentage, the formula should be:
=bringData(E2)
The above code assumes that the first Table is in the range "A:C" and the the second one in the range "E:G", starting from the second row...
If in different ranges, the code should be easy to adapt, I think. If not clear enough, do not hesitate to ask.
Please, test it and send some feedback.
Edited:
Try the next code for the three options. Use "D", "D2" or nothing like the second function parameter:
Function bringData(D As Range, Optional X As String) As String
Dim Sh As Worksheet, arr, lastR As Long, i As Long, strD As String
Set Sh = ActiveSheet
lastR = Sh.Range("A" & Sh.rows.Count).End(xlUp).row
arr = Sh.Range("A2:D" & lastR).value
For i = 1 To UBound(arr)
If CDate(arr(i, 1)) = CDate(D.value) Then
strD = strD & IIf(X = "D", arr(i, 3), IIf(X = "D2", arr(i, 4), arr(i, 2) * 100 & "%")) & vbLf
End If
Next i
If strD <> "" Then
strD = left(strD, Len(strD) - 1)
bringData = strD
Else
bringData = "No Match"
End If
End Function
I will be available only after 3 - 4 hours...