simple deletion won't work for me

[jgriffs]

Hi!
I wish to have an Excel sheet which simply looks at the date and if
that date or past, delete a range. This should be so simple but I can't
get it to work.
Here's what I have:

Sub deleterange()
'
'dim datadate
datadate = Range("b3").Value
' If datadate > 38747 Then
Range("C511").Select
selection.Clear
MsgBox "datadate is " & datadate

End Sub

With the above, the variable "datadate" comes into the message box as
38747 so the logic or syntax of my If is off. And after a bunch of
time, the various "Help" files have not.
Thanks for your time and fix
John

 

[Dave Peterson]

How about:

Sub deleterange()
'
dim datadate as date
datadate = Range("b3").Value
If datadate > dateserial(2006,1,30) Then
Range("C511").Clear '.clearcontents????
end if
MsgBox "datadate is " & datadate

End Sub

But your code worked ok (after I uncommented a couple of lines and added an End
if):

Option Explicit
Sub deleterange()
'
Dim datadate
datadate = Range("b3").Value
If datadate > 38747 Then
Range("C511").Select
Selection.Clear
End If
MsgBox "datadate is " & datadate

End Sub

(I just find reading 38747 much more difficult than dateserial(2006,1,30).)

 

[jgriffs]

I was hoping it was something simple (the single quotes being "rem"e
out). I also eliminated the idea of looking up the date from a cell an
just used "Date".
Thanks for getting me on track. Obviously I'm just getting starte
learning this VB stuff. Lotus macros - I'm a wiz and the conversion t
VB ain't so simple. In fact, the only conversion is really the "logic
of programing.
Thanks agai