Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows between two dates
I am using this code to delete rows which contain "perm" and "Client
EndDate" . I also wish to delete rows before now and after now + 30 days. I've tried all sorts of combinations without success. Can somwone help a relative newcomer to VBA Dim Lrow As Long Dim CalcMode As Long Dim StartRow As Long Dim EndRow As Long With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With With ActiveSheet .DisplayPageBreaks = False StartRow = 1 EndRow = .Cells(.Rows.Count, "A").End(xlUp).Row For Lrow = EndRow To StartRow Step -1 If IsError(.Cells(Lrow, "A").Value) Then ' Do nothing '++++++++++++++++++++++ ' This will delete each row with the Values in Columns A and C, case insensitive. ElseIf Trim(LCase(.Cells(Lrow, "C").Value)) = "perm" And _ .Cells(Lrow, "A").Value = "Client EndDate" Then .Rows(Lrow).Delete '+++++++++++++++++++++++++++++++++++++++++ End If Next End With With Application .ScreenUpdating = True .Calculation = CalcMode End With |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Delete Rows whose value is not between 2 dates | Excel Programming | |||
Delete rows with particular dates present | Excel Programming | |||
Delete Rows with particular dates | Excel Programming | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |