date range

[SangelNet]

hi guys

is used a code from the following post:

http://groups.google.com/group/micr...?lnk=gst&q=date+range+lookup#ee0f78d621af00bb

modified it, and i got this

Sub daterange(Optional eta As Date)


today = DateSerial(2007, 1, 1)
For Each cell In Range("H8:H10")
If cell.Value <> "" Then
If cell.Value = today Then
sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
End If
End If
Next
If sStr <> "" Then
MsgBox sStr
End If
End Sub

not en expert and dont know how to establish and make today = "todays
date"

how do i establish that ?

 

[Guest]

In place of:
today = DateSerial(2007, 1, 1)
use:
today=Date

 

[SangelNet]

In place of:
today = DateSerial(2007, 1, 1)
use:
today=Date

I always say, the simplest things get you.

Thnx Gary

 

[SangelNet]

I always say, the simplest things get you.

Thnx Gary

Is there a way to make this work with a calender object, so that when
you click a date the macro searches based on the clicked date?