Delete rows by criteria in Excel

Delete rows by criteria in Excel. Only have the data that you need on your sheet. Free templates and templates with code are available for purchase for $50 USD https://www.easyexcelanswers.com/temp... Check out my online training www.easyexcelanswers.com/courses.html For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com. Contact me regarding customizing this template for your needs. Click for online Excel Consulting http://www.calendly.com/easyexcelanswers I am able to provide online help on your computer at a reasonable rate. https://www.amazon.com/shop/barbhende... I use a Blue condenser Microphone to record my videos, here is the link https://amzn.to/37gyyGa Check out Crowdcast for creating your webinars https://app.linkmink.com/a/crowdcast/83 If you need to buy Office 2019 follow https://amzn.to/2VX5dv8 I use Tube Buddy to help promote my videos Check them out https://www.Tubebuddy.com/easyexcelan... Follow me on Facebook   / easyexcel.answers   TWEET THIS VIDEO    • Delete rows by criteria in Excel   Follow me on twitter easyexcelanswers IG @barbhendersonconsulting You can help and generate a translation to you own language http://www.youtube.com/timedtext_cs_p... *this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with. How to insert VBA code in Excel    • How to insert VBA code in Excel   code Sub criteriadelete() Dim ws As Worksheet Dim r As Long r = 2 Set ws = ThisWorkbook.Worksheets("DATA") Do While ws.Cells(r, 1) (not equal to) "" ws.Cells(r, 7).Select again: If (ActiveCell.Value = "RENTAL" Or ActiveCell.Value = "DEL_RENTAL" Or ActiveCell.Value = "RE-RENTAL") Then ActiveCell.EntireRow.Delete shift:=xlUp GoTo again Else GoTo ende: End If ende: r = r + 1 Loop Call deletedate End Sub Sub deletedate() Dim ws As Worksheet Dim r As Long Set ws = ThisWorkbook.Worksheets("DATA") r = 2 Do While ws.Cells(r, 1) (not equal to ) "" ws.Cells(r, 4).Select again: If Cells(r, 4).Value (is less than) Date Then ActiveCell.EntireRow.Delete GoTo again Else GoTo ende End If ende: r = r + 1 Loop End Sub