About Us

pgiessler

Thanks! This is perfect.

"JLGWhiz" wrote:

This uses your date format.

Sub ject()
Dim lr As Long, srcRng As Range, c As Range
Dim newRng As Range
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set srcRng = Range("A2:A" & lr)
Set c = srcRng.Find(Format(Date, "dd-mmm-yyyy"), LookIn:=xlValues)
If Not c Is Nothing Then
Set newRng = c.Resize(5, 2)
MsgBox newRng.Address
End If
End Sub

"PGiessler" wrote:

Hi,

I am looking for a good way (something that works in 2007 & 2003) for find
the current date in a list of data and return that data plus the next 4
subsequent data points on a separate worksheet.

28-Apr-2009 Columbus
29-Apr-2009 Denver
5-May-2009 Canton
10-May-2009 Detroit
11-May-2009 Houston
11-May-2009 Dallas
20-May-2009 Boston

So, in the data set shown above ... I would just want the date and city data
in rows 2 through 6.

Any ideas would be greatly appreciated.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find the date of the coming up Saturday given the current date.	Michael Ermino	Excel Worksheet Functions	4	April 11th 07 02:48 AM
Lookup to find the last value based on name and date field	Adam Thwaites	Excel Discussion (Misc queries)	4	April 4th 07 05:15 PM
xls vba find method to find row that contains the current date	RCranston	Excel Programming	3	March 28th 07 03:59 PM
how do I find duplicate text enteries in Excel	Cambronze	Excel Discussion (Misc queries)	1	August 4th 05 08:49 AM
Function to find row with most current date	malik641	Excel Worksheet Functions	3	June 23rd 05 07:05 PM

Menu

About Us