Refined...

buntykins · May 2nd, 2002, 08:48 AM

Thanks for the help with the previous query, but can anyone help me with this one? I need it to search through a sheet and every time it finds "Operator:" in a cell I need it to delete the 6 rows ABOVE it. There will be multiple occurences so I need it to loop until the sheet is clean

If it helps, it will only appear in Column A but it could be any number of times

Janie

AJ · May 2nd, 2002, 08:53 AM

Change two lines of my last post from...

Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp
LastRow = LastRow - 1

To...

Rows(ActiveCell.Row - 7 & ":" & ActiveCell.Row - 1).Delete Shift:=xlUp
LastRow = LastRow - 6

Should do the job.

Rgds]
AJ

buntykins · May 2nd, 2002, 08:54 AM

Thanks AJ

xx

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 2nd, 2002, 08:48 AM	#1
buntykins Board Regular Join Date: Apr 2002 Posts: 76	Thanks for the help with the previous query, but can anyone help me with this one? I need it to search through a sheet and every time it finds "Operator:" in a cell I need it to delete the 6 rows ABOVE it. There will be multiple occurences so I need it to loop until the sheet is clean If it helps, it will only appear in Column A but it could be any number of times Janie

May 2nd, 2002, 08:53 AM	#2
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	Change two lines of my last post from... Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp LastRow = LastRow - 1 To... Rows(ActiveCell.Row - 7 & ":" & ActiveCell.Row - 1).Delete Shift:=xlUp LastRow = LastRow - 6 Should do the job. Rgds] AJ

May 2nd, 2002, 08:54 AM	#3
buntykins Board Regular Join Date: Apr 2002 Posts: 76	Thanks AJ xx