Hi Riz,
I was able to key on the last deposit entry:
Sub RizReOrgLDE(): Dim C As String, D As Date, F As Range, n As Long, r As Long, s As Long
s = Range("J:J").Find("*", , , , xlByRows, xlPrevious).Row
D = Cells(s + 1, 9): Set F = Range("A:A").Find(D, LookIn:=xlValues): r = F.Row
ProcessDay:
If Cells(r, 1) = "" Then GoTo ExitSub
Do Until Cells(r, 1) <> D: C = Cells(r, 3)
If Trim(C) = "Deposit" Then _
Cells(F.Row, 10 + n).Value = Cells(r, 5).Value: n = n + 1
If InStr(1, C, "Deposit Rent") Then Cells(F.Row, 20).Value = Cells(r, 5).Value
If InStr(1, C, "Gift Cards") Then Cells(F.Row, 21).Value = Cells(r, 5).Value
If InStr(1, C, "GPC GPC EFT") Then Cells(F.Row, 26).Value = Cells(r, 4).Value
r = r + 1: Loop: n = 0
D = Cells(r, 1): Set F = Range("I:I").Find(D, LookIn:=xlValues)
GoTo ProcessDay
ExitSub: End Sub
For the H2 - could you post another sample?
Bookmarks