How to test range date.

[gio123bg]

Hi to all!
I need to test, in a macro, this condition:

if sheet1.cell(1,1) > DATE1 and sheet1.cell(1,1) < DATE2 then ....

Where DATE1 is 12-02-2004 and DATE2 is 20-02-2004 for example.

In other words I need to test a cell "date".

Thanks.

Giovanni

 

[SIXTH SENSE]

hi!
try this
if worksheets(1).range("A1").value > DATE1 and worksheets(1).range("A1").value < DATE2 then
'do conditions here if true
end if

 

[acw]

Hi

Try this.

Tony

Sub bbb()
DATE1 = DateValue("12/2/2004")
DATE2 = DateValue("20/2/2004")
If DateValue(Range("a1")) > DATE1 And DateValue(Range("a1")) < DATE2 Then
MsgBox "YES"
Else
MsgBox "NO"
End If

End Sub

 

[gio123bg]

Thanks, but I have the necesity to have two indexes (row and column) and the format in my cell is "date" selected how "dd-mm-yyyy".
My you send me un example for my situation?
Thanks.

Giovanni

 

[SIXTH SENSE]

OK!
let me try again.
if worksheets(1).range(cells(rowx,colx)).value > DATE1 and worksheets(1).range(cells(rowx,colx)).value < DATE2 then
end if

Does this work for you?