Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help please for deleting rows that does not meet several criteria
Hi All, Can someone please help me if a macro function in excel can help delet rows that does not meet several conditions. Example: For a range the macro will delete the row if it does not contain th following characters *ADT7461* *REF19* *AD623* *AD8200* *ADXL330* *OP291* *AD1555* *AD5561* *COLD* the number of rows is up to 20,000 and if possible i can just assig the conditions in a range in another worksheet so that if an additiona condition is placed it will automatically be included. I need the help of your excel guru gods please.... this is already beyond my excel know-ho -- Ali ----------------------------------------------------------------------- Alib's Profile: http://www.officehelp.in/member.php?userid=661 View this thread: http://www.officehelp.in/showthread.php?t=136770 Posted from - http://www.officehelp.i |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help please for deleting rows that does not meet several crit
You don't provide too much information so with the assumption the values you
are looking for are in column A try:- Sub Deleterows() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim cell As Range, rng As Range, i As Long Set rng = Columns("A").SpecialCells(xlConstants, xlTextValues) For i = rng.Count To 1 Step -1 If rng(i).Value = "ADT7461" _ Or rng(i).Value = "REF19" _ Or rng(i).Value = "AD623" _ Or rng(i).Value = "AD8200" _ Or rng(i).Value = "ADXL330" _ Or rng(i).Value = "OP291" _ Or rng(i).Value = "AD1555" _ Or rng(i).Value = "AD5561" _ Or rng(i).Value = "COLD" Then rng(i).EntireRow.Delete End If Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Mike "Alib" wrote: Hi All, Can someone please help me if a macro function in excel can help delete rows that does not meet several conditions. Example: For a range the macro will delete the row if it does not contain the following characters *ADT7461* *REF19* *AD623* *AD8200* *ADXL330* *OP291* *AD1555* *AD5561* *COLD* the number of rows is up to 20,000 and if possible i can just assign the conditions in a range in another worksheet so that if an additional condition is placed it will automatically be included. I need the help of your excel guru gods please.... this is already beyond my excel know-how -- Alib ------------------------------------------------------------------------ Alib's Profile: http://www.officehelp.in/member.php?userid=6619 View this thread: http://www.officehelp.in/showthread.php?t=1367706 Posted from - http://www.officehelp.in |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help please for deleting rows that does not meet several criteria
Hi Mike, This is definitely another way of doing the program in deleting th rows and I have learned another way of doing it instead of my usual D Loop Until process. However, if I put the conditions in another tab in excel. Lets say fo example, all the conditions is placed in column A of Sheet2. The macr will look up to these conditions until the last condition, (in thi case anything COLD is the last condition). *ADT7461* *REF19* *AD623* *AD8200* *ADXL330* *OP291* *AD1555* *AD5561* *COLD* The conditions change on a regular basis that's why I wanted to put i in another tab for the macro to lookup. The number of conditions ma vary as well. Moreover, kindly take note that the conditions are only part of a whol partname. Example, the whole text in a cell is AD_COLD_XDRT123. Thu this should not be deleted since the part name contains the strin COLD. I hope I gave a better explanation of my problem. Thank you in advanc for your help. rgds, Ali -- Ali ----------------------------------------------------------------------- Alib's Profile: http://www.officehelp.in/member.php?userid=661 View this thread: http://www.officehelp.in/showthread.php?t=136770 Posted from - http://www.officehelp.i |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting characters in multiple rows when rows meet specific criteria | Excel Worksheet Functions | |||
Selecting Rows that meet criteria | Excel Worksheet Functions | |||
count rows that meet certain criteria | Excel Discussion (Misc queries) | |||
Deleting/IDing Rows that Don't Meet Criteria | Excel Worksheet Functions | |||
Deleting/IDing Rows that Don't Meet Criteria | Excel Worksheet Functions |