Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with filtering dates
I have a workbook that does a cost analysis for for several dates that
I am filtering out. I am going from jan 04: dec 08. My problem is that the way I have my code written I am getting an error that says my project is too large. Here is just one of the if statements in the program. Please help!!! Sheets("Cost Categories").Select Cells.Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="Larry Ross" Selection.AutoFilter Field:=3, Criteria1:="Feb-04" Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom If wscost.Range(" & lrow & ").Value < "" Then lrow = wscost.Range("a" & _ wscost.Rows.Count).End(xlUp).Row wscost.Range("a1:ai" & lrow).Copy x = xjan04 + 2 wscostsort.Range("a" & x).PasteSpecial lrow = wscostsort.Range("a" & _ wscostsort.Rows.Count).End(xlUp).Row xfeb04 = lrow + 1 wscostsort.Range("h" & xfeb04).Formula = "=sum(h" & x & ":h" & lrow & ")" wscostsort.Range("h" & xfeb04, "ah" & xfeb04).FillRight wscostsort.Range("ai" & xfeb04).Formula = "=SUM(AF" & xfeb04 & "/((AH" & xfeb04 & "*6)+AG" & xfeb04 & "))" End If I substitute Feb 04 with the next month in the order all the way to dec 08. Thanks in advance!!! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filtering Dates | Excel Discussion (Misc queries) | |||
filtering dates | Excel Worksheet Functions | |||
Filtering The Dates | New Users to Excel | |||
filtering dates | Excel Discussion (Misc queries) | |||
filtering dates | Excel Discussion (Misc queries) |