Using DateAdd function with cell values.

  • Thread starter Thread starter loren.pottinger
  • Start date Start date
L

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
 
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
 
see public.excel

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
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.
 
Back
Top