Using DateAdd function with cell values.

[loren.pottinger]

Both F7 and H7 contain a date yet this sub does not execute the
statements after Then.................Please help.

Sub GetAmOrDep()

Dim TestDate As Date
TestDate = DateAdd("m", Range("F7").Value, Range("H7").Value)

If TestDate < Range("I7").Value Then
Range("K7").Select
Selection.Copy
Range("M7").Select
ActiveSheet.Paste
End If
End Sub

 

[Guest]

Try this...

Sub GetAmOrDep()

Dim TestDate As Date
TestDate = DateAdd("m", Range("F7").Value, Range("H7").Value)

If TestDate < Range("I7").Value Then
Range("K7").Copy Destination:= Range("M7")
End If
End Sub

 

[Bob Phillips]

see public.excel

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[loren.pottinger]

Thanks Jim, but to no avail. I'm think the proplem is with my use of
the DateAdd function. I have never used it with cell values before. Do
you know if it is allowed, can't really find anything on the internet.