How to pull multiple dates under one customer name

i have a report ran everyday for shipment dates and is placed on another sheet. i want to know if it is possible to pull in multiple dates when i pull the report on Friday.
ex. On Friday for KIMS there is a shipment for 6/25 but on Monday, the shipment was canceled and the next recent is not till 7/20. i want to be able to pull both the 6/25 date and the 7/15 date in on friday so i know what the next shipment is in case a delivery is cancelled and the next date is soon after.
if possible i would like it so that the next date shows in the row beneath the row with the customers name with out having to put a different formula in each cell

I have multiple parts that i run a report for that shows me the shipping date. i would like to be able to pull in more than the first date in. so i paste each day's report into a different sheet using v lookup and it all pulls onto sheet 1 and shows as the chart on top.
i would like it to pull so that it skips the the date it already pulled and put a line similar under it if possible. i have almost 400 parts to keep track of daily so it would suck to have to add the lines myself but i will if there is no other way. so if it will be efficientand work with alot of numbers would be awesome.

Thank you in advanced!

Hi webber,

Can you explain how you knew it was KIMS and is the input on sheet2 with the output shown on sheet1 below the first table???

OK so the second sheet has the input data??

Hi Webber,

See if I'm on the right track here - let me know

Sub Webber(): Dim Cust As String, w2 As Worksheet, w1 As Worksheet
Dim r As Long, n As Long, I, J, Z
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
With CreateObject("Scripting.Dictionary")
For r = 3 To w2.Range("A" & Rows.Count).End(xlUp).row: Cust = w2.Range("A" & r)
                        If Cust <> "" Then
                If .Item(Cust) = "" Then
                .Item(Cust) = w2.Range("E" & r) & "~" & w2.Range("G" & r)
    Else:
    .Item(Cust) = .Item(Cust) & "|" & w2.Range("E" & r) & "~" & w2.Range("G" & r)
: End If: End If
I = .Item(Cust): Next r
r = 16: Do Until Cust = "": Cust = Range("A" & r)
                    If .Exists(Cust) Then
                    J = w1.Range("D" & r) & "~" & w1.Range("E" & r)
                    I = .Item(Cust): Z = Split(I, "|")
                    For n = 0 To UBound(Z)
                    If Z(n) <> J Then
                    w1.Range("A" & r + 1).EntireRow.Insert
                    w1.Range("D" & r + 1).Resize(1, 2) = Split(Z(n), "~"): r = r + 1
                    End If: Next n: End If: r = r + 1: Loop
End With
End Sub

Hi Webber,

Thanks for the rep!

But, have we got it right? The quantity 50 for instance - where is that? And what about the prior date inserted? Please critique so that we can wrap this up

The sheets must be named "Sheet1" and "Sheet2" or the code needs to be changed to what they are.

Sub Webber(): Dim Cust As String, w2 As Worksheet, w1 As Worksheet
Dim r As Long, N As Long, i, J, Z
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
With CreateObject("Scripting.Dictionary")
For r = 3 To w2.Range("A" & Rows.Count).End(xlUp).row: Cust = w2.Range("A" & r)
                        If Cust <> "" Then
                If .Item(Cust) = "" Then
                .Item(Cust) = w2.Range("E" & r) & "~" & w2.Range("G" & r)
    Else:
    .Item(Cust) = .Item(Cust) & "|" & w2.Range("E" & r) & "~" & w2.Range("G" & r)
: End If: End If
i = .Item(Cust): Next r
r = 16: Do Until Cust = "": Cust = Range("A" & r)
                    If .Exists(Cust) Then
                    J = w1.Range("D" & r) & "~" & w1.Range("E" & r)
                    i = .Item(Cust): Z = Split(i, "|")
                    For N = 0 To UBound(Z)
                    If Z(N) <> J Then
                    w1.Range("A" & r + 1).EntireRow.Insert
                    w1.Range("D" & r + 1).Resize(1, 2) = Split(Z(N), "~"): r = r + 1
                    End If: Next N: End If: r = r + 1: Loop
End With
End Sub

Directions for running the routine(s) just supplied

If you haven't used macros before you'll need to go to:
File- options - trust center -trust center settings - macro settings ,
the second option down (disable all macros with notification)

Then - Copy the code to the clipboard

Open your Workbook

Press ALT + F11 to open the Visual Basic Editor.

Select "Module" from the Insert menu

Type "Option Explicit" then paste the code under it

With the cursor between Sub and End Sub press F5 (F8 to Single Step)

OR

Press ALT + Q to close the code window.

Press ALT + F8 then double click on the macro name

So run Friday against Monday, Monday against Tuesday etc??

Sorry to be so slow The information comes from what sheet? AND goes to what sheet(s)??

Hi Webber,

I haven't yet figured out what needs to be done - is the sheet1 to be used as a repository for the QMC # PN to be included.

Can you take me through an entry to sheet1?? I'm confused

Tell me about sheet1 - I'm assuming that inserting rows is no longer required or desired - are we to add to those entries? f.r. where do the on hand figures come from? I'm having so much trouble grasping your requirements that I'm considering starting a thread for other contributors to render aid (we have a "Call in the Cavalry" thread for these situations)??

I've run the newest version and gotten no result - tell me, should there be entries generated from this dataset and, if so, what should they be - just one entry can get me rolling again

Sub Webber(): Dim Cust As String, w2 As Worksheet, w1 As Worksheet
Dim r As Long, n As Long, c As Long, ec As Long, I, J, Z
                    Set w1 = Sheets("Sheet1")
ec = w1.Columns.Find("*", , , , xlByColumns, xlPrevious).column
With CreateObject("Scripting.Dictionary")
For Each w2 In Worksheets
If w2.name <> w1.name Then
For r = 3 To w2.Range("A" & Rows.Count).End(xlUp).row: Cust = w2.Range("A" & r)
                        If Cust <> "" Then
                If .Item(Cust) = "" Then
    .Item(Cust) = w2.Range("E" & r) & "~" & w2.Range("G" & r)
                Else:
    .Item(Cust) = .Item(Cust) & "|" & w2.Range("E" & r) & "~" & w2.Range("G" & r)
                End If: End If
I = .Item(Cust): Next r: End If: Next w2
r = 3: Do Until Cust = "": Cust = Range("A" & r)
                    If .Exists(Cust) Then
                    I = .Item(Cust): Z = Split(I, "|")
                    For c = 4 To ec
                    If IsDate(w1.Cells(r, c + 1)) Then
                    J = w1.Cells(r, c) & "~" & w1.Cells(r, c + 1)
                    For n = 0 To UBound(Z)
                    If Split(Z(n), "~")(1) <= Split(J, "~")(1) Then GoTo GetNext
                    w1.Range("A" & r + 1).EntireRow.Insert
                    w1.Cells(r, c).Resize(1, 2) = Split(Z(n), "~"): r = r + 1
                    Next n: End If
GetNext:                        Next c
                                End If: r = r + 1: Loop
                    
End With
End Sub

Data Range

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

1

QMC # PN

PN

ON HAND

FRIDAY 6/19/2015

MONDAY 6/22/2015

QTY

DAYS

TUESDAY 6/23/2015

QTY

DAYS

WEDNESDAY 6/24/2015

QTY

DAYS

THURSDAY 6/25/2015

QTY

DAYS

FRIDAY 6/26/2015

QTY

DAYS

2

3

140882-00FP

FC44 4831 NFGA

77

24

6/23/2015

24

6/23/2015

24

6/23/2015

24

6/23/2015

16

6/25/2015

20

6/25/2015

Change

-36

18

4

76

7/13/2015

56

7/13/2015

44

7/20/2015

48

7/20/2015

68

7/27/2015

5

80

7/27/2015

????????????????????

Data Range

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

1

QMC # PN

PN

ON HAND

FRIDAY 6/19/2015

MONDAY 6/22/2015

QTY

DAYS

TUESDAY 6/23/2015

QTY

DAYS

WEDNESDAY 6/24/2015

QTY

DAYS

THURSDAY 6/25/2015

QTY

DAYS

FRIDAY 6/26/2015

QTY

DAYS

2

3

140882-00FP

FC44 4831 NFGA

77

24

6/23/2015

24

6/23/2015

24

6/23/2015

20

6/25/2015

Change

20

6/25/2015

56

7/13/2015

Change

-36

18

4

44

7/20/2015

68

7/27/2015

Data Range

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

1

QMC # PN

PN

ON HAND

FRIDAY 6/19/2015

MONDAY 6/22/2015

QTY

DAYS

TUESDAY 6/23/2015

QTY

DAYS

WEDNESDAY 6/24/2015

QTY

DAYS

THURSDAY 6/25/2015

QTY

DAYS

FRIDAY 6/26/2015

QTY

DAYS

2

3

140882-00FP

FC44 4831 NFGA

77

24

6/23/2015

24

6/23/2015

24

6/23/2015

20

6/25/2015

Change

20

6/25/2015

56

7/13/2015

Change

-36

18

4

44

7/20/2015

68

7/27/2015

????????????