troubleshooting Question

VBA Delete based on date

Avatar of Euro5
Euro5Flag for United States of America asked on
VBAMicrosoft ExcelMicrosoft Office
1 Comment1 Solution9 ViewsLast Modified:

This code is not doing anything, but I do have a date 1/1/1900 in column E.

Am I missing something obvious?? THANK YOU!


Sub DeleteDateur()
    Application.Calculation = xlManual
    Dim ws As Worksheet     Set ws = ThisWorkbook.Worksheets("ur data") 'define which worksheet     Dim LastRow As Long     LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).row     Dim iRow As Long     For iRow = LastRow To 1 Step -1         If ws.Cells(iRow, "E").Value = vbNullString Or ws.Cells(iRow, "E").Value = "1/1/1900" Then             ws.Rows(iRow).Delete         End If     Next iRow     Application.Calculation = xlAutomatic

Open in new window


ASKER CERTIFIED SOLUTION
NorieSenior Associate
Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 1 Comment.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 1 Comment.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004