| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to find data and select from active cell to the last row
I need help creating a macro to find "ZZZZZCount" in column J, then select
the Rows from the cell just found to the end of the sheet (R65000) and delete. The cell location of "ZZZZZCount" will not be constant. Thanks, F G H J Task Code Task ID Sub No. STSLN JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 330 CIAA 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to find data and select from active cell to the last row
Dim rng as Range, rng1 as Range
set rng = columns(10).find("ZZZZZCount", After:=Range("J1"), _ Lookat:=xlPart) if not rng is nothing then set rng1 = Range(rng,cells(rows.count,"J")).EntireRow rng1.Delete end if -- Regards, Tom Ogilvy "Lost in Alabama" wrote in message ... I need help creating a macro to find "ZZZZZCount" in column J, then select the Rows from the cell just found to the end of the sheet (R65000) and delete. The cell location of "ZZZZZCount" will not be constant. Thanks, F G H J Task Code Task ID Sub No. STSLN JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 330 CIAA 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to find data and select from active cell to the last row
Thank you so much for your speedy response...I'll give it a try.
"Tom Ogilvy" wrote: Dim rng as Range, rng1 as Range set rng = columns(10).find("ZZZZZCount", After:=Range("J1"), _ Lookat:=xlPart) if not rng is nothing then set rng1 = Range(rng,cells(rows.count,"J")).EntireRow rng1.Delete end if -- Regards, Tom Ogilvy "Lost in Alabama" wrote in message ... I need help creating a macro to find "ZZZZZCount" in column J, then select the Rows from the cell just found to the end of the sheet (R65000) and delete. The cell location of "ZZZZZCount" will not be constant. Thanks, F G H J Task Code Task ID Sub No. STSLN JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA JGDAAAA REPAIR AVENGER COMPOSITE PANEL 330 CIAA 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount 100 ZZZZZCount |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| macro to find cell content in sheets and make sheet active | Excel Discussion (Misc queries) | |||
| Row select mode to highlight active row of active cell | Excel Discussion (Misc queries) | |||
| how to select row according active cell? | Excel Programming | |||
| Select Row of Active Cell | Excel Programming | |||
| how do find out the column of the active cell in a macro? | Excel Programming | |||
Linear Mode
