See if this helps. I don't know whqt the reference to Row 28 means.
Modify code as required.
Sub filterData()
NewRow = 1
With Sheets("Sheet1")
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For RowCount = 1 To LastRow
ColE = .Range("E" & RowCount)
If ColE = "A" Or ColE = "B" Then
MyDate = .Range("B" & RowCount)
If Weekday(Date) = vbSaturday Then
If MyDate = Date And MyDate <= (Date + 3) Then
CopyData = True
Else
CopyData = False
End If
Else
If MyDate = Date And MyDate <= (Date + 1) Then
CopyData = True
Else
CopyData = False
End If
End If
If CopyData = True Then
.Range("D" & RowCount).Copy _
Destination:=Sheets("Sheet2").Range("A" & NewRow)
NewRow = NewRow + 1
End If
End If
Next RowCount
End With
End Sub
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=149840