VBA for projects with mulitple dates again

[bernice620]

Hi All-

I recently submitted a topic about grabbing multiple dates for part numbers. But that required me to copy and paste each WIW sheet one by one and run the code.

Attached is the file that I'm looking at. Under "Sheet1", this is what I'm currently doing. However, the worksheet called "Want" is what I would like it to do. And I'm uncertain about how to go about this.

The Dummy Part numbers are numbers that I enter and then I would like it to look at 7R WIW, 8W WIW and 9W WIW to see if they have the dates associated with it. How do I make it look like the "Want" Sheet? I'm currently stuck. Any help is appreciated!

"Sheet1" runs off this code:

Sub Dummy_File()
 Dim a, i As Long, ptr As Long
 Dim sPartNum As String, sOutput As String
 
 
 ptr = 3
 With Worksheets("sheet1")
    Do While .Cells(ptr, "a") <> vbNullString
        sPartNum = .Cells(ptr, "a")
        For i = 1 To 300
           If InStr(1, .Cells(i, "e").Value, sPartNum, vbTextCompare) > 0 Then
               sOutput = sOutput & .Cells(i, "d") & ","
           End If
        Next
        With .Cells(ptr, "b")
            .ClearContents
            If sOutput <> "" Then
                .Value = Left$(sOutput, Len(sOutput) - 1)
                sOutput = ""
            End If
        End With
        ptr = ptr + 1
    Loop
 End With
End Sub 

[bernice620]

Can anybody help?