Delete rows by criteria in Excel

Let’s take the frustration out of user forms

Become an Affiliate and earn 25% on Course Sales

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

I am able to provide online help on your computer at a reasonable rate.

I use a Blue condenser Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*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.

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

Watch more new videos about Excel Office | Synthesized by Mindovermetal English