Menu

Excel - A macro for deleting row on condition

Ask a question
Macros can be used for various operations on Excel Worksheets such as deleting rows that satisfy a particular given condition. Although not necessary, some knowledge of programming concepts and for loops may prove to be useful to write a macro in Excel. Macros in Excel to delete rows that satisfy certain conditions can be written from scratch or developed from a freely available macro code. Macros are a very useful feature and can be used to accomplish data manipulations on Excel Worksheets with a large number of records. Macros in Excel automate the process making the task fast and error-free.


Issue


I need a Macro for deleting rows when none of the cells in the row contain one of two numbers "103526" or "103527"

The number of rows is variable (max 150) and number of columns variable too (max 100).

Any help is appreciated.

Solution


Your condition is confusing to me. I am rephrasing it.
If a row contains either 103526 or 102527 or both then DO NOT delete.
If neither of the two numbers is in a row, delete.
Now, as you are deleting the rows, keep a copy of the data in sheet1 to sheet2 so that you can copy the data if there is a mess up.

The data is in sheets 1, try this macro: 

Sub test()    
Dim j As Integer, k As Integer    
Dim r As Range, cfind6 As Range, cfind7 As Range    
Worksheets("sheet1").Activate    
On Error Resume Next    
j = Cells(Rows.Count, "A").End(xlUp).Row    
For k = j To 1 Step -1    
Set cfind6 = Rows(k).Cells.Find(what:=103526, lookat:=xlWhole)    

Set cfind7 = Rows(k).Cells.Find(what:=103527, lookat:=xlWhole)    
If cfind6 Is Nothing And cfind7 Is Nothing Then Rows(k).Delete    

Next

Note


Thanks to venkat1926 for this tip on the forum.
Jean-François Pillou

CCM is a leading international tech website. Our content is written in collaboration with IT experts, under the direction of Jeff Pillou, founder of CCM.net. CCM reaches more than 50 million unique visitors per month and is available in 11 languages.

Learn more about the CCM team

Related