Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete non-selected rows
Maybe I'm just being thick-headed here. Seems this should be so easy. Excel
2002. I want to delete all the rows that are not selected by the user. I tried this code to no avail: ShtBtm=cells(65536,"a").end(xlup).row for a=shtbtm to 2 step-1 if not rows(a).selected then rows(a).delete next a That's what I want. Excel doesn't like rows(a).selected. Help! Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete non-selected rows
Sub Tester1()
shtbtm = Cells(65536, "a").End(xlUp).Row For a = shtbtm To 2 Step -1 If Intersect(Rows(a), Selection) Is Nothing Then Rows(a).Delete End If Next a End Sub -- Regards, Tom Ogilvy "SparePersn" wrote in message ... Maybe I'm just being thick-headed here. Seems this should be so easy. Excel 2002. I want to delete all the rows that are not selected by the user. I tried this code to no avail: ShtBtm=cells(65536,"a").end(xlup).row for a=shtbtm to 2 step-1 if not rows(a).selected then rows(a).delete next a That's what I want. Excel doesn't like rows(a).selected. Help! Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete non-selected rows
I have not got the code- just a suggestion.
1. selection.address returns a comma separated list of all the rows selected. 2. you should know the used range in the worksheet 3. write a loop for eah row of the used range if there is no INTERSECT of each element of 1 within the loop row, record the loop row in a variable 4. at the end of the loop, delete the rows recorded. You can't delete within the loop. "SparePersn" wrote: Maybe I'm just being thick-headed here. Seems this should be so easy. Excel 2002. I want to delete all the rows that are not selected by the user. I tried this code to no avail: ShtBtm=cells(65536,"a").end(xlup).row for a=shtbtm to 2 step-1 if not rows(a).selected then rows(a).delete next a That's what I want. Excel doesn't like rows(a).selected. Help! Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
delete columns and rows-cells equalling zero or any selected value | Excel Worksheet Functions | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Delete Selected Rows | Excel Programming | |||
Need a macro to delete selected rows | Excel Programming | |||
Delete/Collapse Rows Not Selected | Excel Programming |