Re: $$Excel-Macros$$ Pull date value from cell

2015-01-02 Thread Vaibhav Joshi
Cheers!! + *I did not do this for you. God is here working through me for you.* On Fri, Jan 2, 2015 at 4:26 PM, MLT wrote: > > Thank you! > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >

Re: $$Excel-Macros$$ Pull date value from cell

2015-01-02 Thread MLT
Thank you! -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, N

Re: $$Excel-Macros$$ Pull date value from cell

2014-12-30 Thread Vaibhav Joshi
Hey try this: Sub date_check() Dim Date_Range As Range Dim DateVal As Range Dim DateAge As Long Set Date_Range = Sheets("Sheet1").Range("A1:A500") YearStartDate = DateSerial(2014, 1, 1) For Each DateVal In Date_Range DateAge = DateVal - YearStartDate If DateAge > 100 Then M

Re: $$Excel-Macros$$ Pull date value from cell

2014-12-30 Thread Ricardo®
Try reversing the variables, not to result in a negative number: Set Date_Range = Sheets("Sheet1").Range("A1:A500") YearStartDate = DateSerial(2014, 1, 1) For Each DateVal In Date_Range DateAge = YearStartDate - DateVal If DateAge > 100 Then MsgBox DateVal.Ad

$$Excel-Macros$$ Pull date value from cell

2014-12-30 Thread MLT
I'm trying to use a For loop to look through a list of dates in a worksheet and flag cells whose dates are greater than 100 days. Set Date_Range = Sheets("Sheet1").Range("A1:A500") YearStartDate = DateSerial(2014, 1, 1) For Each DateVal In Date_Range DateAge = DateVal - YearStartDat