| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Date Calculation
Thank you so much!!!
-- Patsy "Eduardo" wrote: Hi, Let's say you have the date in column A in column B you add 365 days with =A2+365 In column C you enter the formula as follow =+IF(B2=TODAY(),"Y","N") If today's day is the same as in column B it will enter "Y" Then have a buttom to run a macro that will delete all the rows where column C = "Y" as follow Sub delete_Me() Dim copyrange As Range Lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row Set MyRange = Range("C1:C" & Lastrow) For Each c In MyRange If InStr(c, "Y") Then If copyrange Is Nothing Then Set copyrange = c.EntireRow Else Set copyrange = Union(copyrange, c.EntireRow) End If End If Next If Not copyrange Is Nothing Then copyrange.Delete End If End Sub Hope this help "patsyshaw" wrote: Is there a way that I can put a date in a cell, add 1 year and have the row deleted automatically? We do background checks on people, add them to a list but these checks are only good for one year. This would eliminate having to go into the sheet and deleting the ones that are 1 year old. Thanks. -- Patsy |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Date Calculation (from entered date / 1yr later in next field) | Excel Worksheet Functions | |||
| End Date Calculation (adding a start date duration) | Excel Discussion (Misc queries) | |||
| date calculation | Excel Discussion (Misc queries) | |||
| Tricky Date calculation: How to calculate a future date | Excel Discussion (Misc queries) | |||
| Date Calculation | Excel Worksheet Functions | |||
Hybrid Mode
