Find Date form list
 

Hi - please help ME :)

There is a Date list on worksheet
User must input a date and macro must find it from the list and stop
there

Peter


--
peteriks
------------------------------------------------------------------------
peteriks's Profile: http://www.excelforum.com/member.php...o&userid=37011
View this thread: http://www.excelforum.com/showthread...hreadid=568971

Find Date form list
 

Hi, not entirely sure waht you want but if you add a module, paste this
in to it (change the way they have to type in the date to match that of
your date list) add a button to the toolbar and assign this macro to it.
You will need to select all of your date list and give it a range name
"Datelist" or where you see "datelist" in my code change it for the
range your cells cover i.e Range(""A1:A365").

Hope this helps!

Regards,
Simon

Sub FindDate()
Dim rng As Range
Dim t1
Dim mycell
Set rng = Range("datelist")
t1 = InputBox("Enter date you wish to find in this format 01/01/2006",
"Date Finder")
For Each mycell In rng
If mycell.Text = t1 Then
mycell.Select
End If
Next
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=568971

Find Date form list
 

Now there will be another trick
In one worksheet user pick-up a date (moves curson on it)
and from another worksheet macro must find that date
Well :)


--
peteriks
------------------------------------------------------------------------
peteriks's Profile: http://www.excelforum.com/member.php...o&userid=37011
View this thread: http://www.excelforum.com/showthread...hreadid=568971