Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
extract with criteria
Dim rw as Long, rng as Range
Dim cell as Range rw = 2 With activeSheet set rng = intersect(.columns(4),.usedrange).cells End with for each cell in rng if application.Sum(rng.Resize(1,5)) 0 then cell.EntireRow.Copy Destination:=worksheets(2).Cells(rw,1) rw = rw + 1 end if Next -- Regards, Tom Ogilvy "Samambaia" wrote in message ... I need to copy several lines from 'sheet 1' to sheet 2' that from column D to H that the sum(D:H) is greater than zero. I know this can be done thru filters but the users of this spreadsheet have very limited Excel knowledge (less than I have :), so I am trying to do it thru VBA. Thanks in advance. Samambaia |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
extract with criteria
Thank you so much !!!
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Extract specified fields with criteria from Excel.cvs workbook | Excel Worksheet Functions | |||
Extract data on one spreadsheet to another based on criteria | New Users to Excel | |||
extract data from table that meets set criteria | Excel Discussion (Misc queries) | |||
Extract row based on a criteria | Excel Programming | |||
How to extract data through ODBC with date criteria? | Excel Programming |