Help with row selection.
 

This is just the Shell. I need it to take the value of the variabl
FTime and be able to goto that row and select. Then Select all rows t
the value of STime. I haven't included the loop to find the last row.

Thanks,
Craig Schellenbach





Public Sub InputRoute()
Dim Route As Long
Dim RouteCnt As Integer

Columns("A:A").Select
ActiveCell.Offset(1, 0).Select

Route = InputBox("Please Enter route", "Route Selection")

If ActiveCell = Route Then
Call RouteCount

Else
ActiveCell.Offset(1, 0).Select

Do Until ActiveCell = Route
ActiveCell.Offset(1, 0).Select
Loop

Call RouteCount

End If



End Sub
Public Sub RouteCount()
Dim FTime As Integer
Dim STime As Integer

FTime = ActiveCell.Row

MsgBox (FTime)

End Su

--
Drrott
-----------------------------------------------------------------------
Drrott1's Profile: http://www.excelforum.com/member.php...fo&userid=1546
View this thread: http://www.excelforum.com/showthread.php?threadid=27048

Help with row selection.
 

Youre flashing the needed rows on a msgbox? Why dont You just add the
copying functionality to the Public Sub RouteCount? You would get all
the rows containing the user chosen route to other sheet.

Theres an other approach as well but this is best for your needs.


Drrott1 wrote in message ...
This is just the Shell. I need it to take the value of the variable
FTime and be able to goto that row and select. Then Select all rows to
the value of STime. I haven't included the loop to find the last row.

Thanks,
Craig Schellenbach





Public Sub InputRoute()
Dim Route As Long
Dim RouteCnt As Integer

Columns("A:A").Select
ActiveCell.Offset(1, 0).Select

Route = InputBox("Please Enter route", "Route Selection")

If ActiveCell = Route Then
Call RouteCount

Else
ActiveCell.Offset(1, 0).Select

Do Until ActiveCell = Route
ActiveCell.Offset(1, 0).Select
Loop

Call RouteCount

End If



End Sub
Public Sub RouteCount()
Dim FTime As Integer
Dim STime As Integer

FTime = ActiveCell.Row

MsgBox (FTime)

End Sub