Logo 
Search:

MS Office Answers

 Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Sebastion Anderson   on Mar 01 In MS Office Category.

select cells based on 3 criteria and delete rows


  
Question Answered By: Doyle Gonzalez   on Mar 01

You may use following code:

Dim TotalRows As Integer
Dim Counter as Integer
TotalRows=Range("D65536").End(xlUp).Row
Range("D1").Activate
For Counter=1 to TotalRows
If Range("D"&Counter).Value=25 OR Range("D"&Counter).Value=15 OR
Range("D"&Counter).Value=16 Then
Rows(Counter).Delete
End If
ActiveCell.Offset(1,0).Select
Next

Share: 

 

This Question has 4 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on select cells based on 3 criteria and delete rows Or get search suggestion and latest updates.


Tagged: