how to monitor dates

[driller]

Hello again to all,
Ive been half a year without much use of computer so I NEED some refreshing
help from the good group.

there are about five diff. dates in a row AND i need to make sure that they
are typed in a way that the first column and the last column contains the
earliest and the latest date, respectively and in good order.

 

[muddan madhu]

Select the row | go to Data | sort | options | tick sort left to right
| ok | ok

 

[Jim May]

I recorded a Macro which does the same thing that muddan madhu suggested;

The Macro code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/5/2008 by Jim May
'
CurrRow = ActiveCell.Row
Range("A" & CurrRow & ":" & "E" & CurrRow).Sort Key1:=ActiveCell,
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlLeftToRight, DataOption1:=xlSortNormal
End Sub

I'd put a Forms Command Button on the Sheet and Click it each time you have
completed a row of date entries (Assumed to be only A:E) CAUTION-->>
Before Running Macro your cursor and/or activecell MUST BE ON THE Row
just entered (to be tested).

WRite back if you have Problems

Select the row | go to Data | sort | options | tick sort left to right
| ok | ok

 

[driller]

thanks for the reply. I need 2 expand my query a little more specific.
--
regards,

I recorded a Macro which does the same thing that muddan madhu suggested;

The Macro code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/5/2008 by Jim May
'
CurrRow = ActiveCell.Row
Range("A" & CurrRow & ":" & "E" & CurrRow).Sort Key1:=ActiveCell,
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlLeftToRight, DataOption1:=xlSortNormal
End Sub

I'd put a Forms Command Button on the Sheet and Click it each time you have
completed a row of date entries (Assumed to be only A:E) CAUTION-->>
Before Running Macro your cursor and/or activecell MUST BE ON THE Row
just entered (to be tested).

WRite back if you have Problems