Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Down Cells after Unique Filter
Hi, I'm trying to build a spreadsheet, in VBA, based on timesheet data. I'd
like a total of time spent on each task. The task list can change so the first job is to define all unique tasks. I've used the following: Sheets("Detail").Columns("E:E").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("A1"), Unique:=True Works fine. The problem comes when I try and automatically copy down the formulas I want to use on each row against each task description. I started with this: Dim lLastRow As Long lLastRow = Sheets("Monthly Summary").Cells.SpecialCells(xlCellTypeLastCell).R ow Debug.Print "lLastRow = " & lLastRow Worksheets("Monthly Summary").Activate Range("B2:N2").Select Selection.AutoFill Destination:=Sheets("Monthly Summary").Range("B2:N" & lLastRow - 1), Type:=xlFillDefault The problem I face is that on my destination sheet I can only 'see' thirty or so tasks but lLastRow reports 440 with nothing 'visible' in cells 31 to 440! Hence, my copy down goes on way beyond where I need it to finish. Any suggestions please? Thanks, Jon C p.s. I know pivots would be an ideal approach but there are downstream limitations to using them here. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying Filter Data & Using for each in cells | Excel Discussion (Misc queries) | |||
copying only cells in a filter with data | Excel Discussion (Misc queries) | |||
unique filter results in some non-unique records. | Excel Discussion (Misc queries) | |||
Unique Value without using FILTER | Excel Worksheet Functions | |||
Formulas for...1. Counting unique cells 2. Display unique contents | Excel Programming |