It is not clear at all to me what you actually want. If I go simply by your title "Find Unique Values Based On Multiple Columns" this will accomplish that.
Sub aimone111()
'Get the uniques of column BA or Daybook sheet and report via a joined string in a msgbox
Dim d As Object: Set d = CreateObject("Scripting.Dictionary")
Dim ws As Worksheet: Set ws = Sheets("Daybook")
Dim arr As Variant
Dim i As Long
Dim strDic As String
arr = ws.Range("BA2:BA" & ws.Range("BA" & Rows.Count).End(xlUp).Row)
For i = LBound(arr, 1) To UBound(arr, 1)
d(arr(i, 1)) = 1
Next i
strDic = Join(d.Keys, ", ")
MsgBox strDic
End Sub
Note: I doubt this will solve your real problem and I doubt you will be able to manipulate it to work for you. Try submitting a clear and concise description on what you want to accomplish. Anytime we have to guess or assume on a detail it means it probably will not work for your sheet.
Bookmarks