VBA Multiple match without duplicates

[kapib]

Hi,

I am fairly new to Excel VBA.

I have a set of matching values as shown in the picture attached. I would like to extract all the matching dates from the 7th column and extract all the 'unique dates' and list it in the columns against each matching values. I use excel 2016 . The Inputs are in sheet 2.

I managed to get the dates with array index formula but it gets slow with large data. Any help would be great.

 

[Ezguy4u]

kapib let's get the ball rollin. Now this usually generates more questions than answers, but we have to start some place. Also this program isn't dynamic. It only works with the data you are showing. If you need other requirements let us know.

Sub Prog1()

Dim a As Integer

h = 3
For i = 3 To 6
    Cells(h, 10) = Cells(i, 7)
    h = h + 1
Next i

a = 7

For i = 3 To 6
    For h = 11 To 13
        If Cells(i, h - 1) <> Cells(a, 7) Then
            Cells(i, h) = Cells(a, 7)
        Else
            h = h - 1
        End If
    a = a + 4
Next h
a = i + 5
Next i
End Sub