Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Limiting selection in a cell AND linking that selection to a list | Excel Discussion (Misc queries) | |||
Copy Selection - Transpose Selection - Delete Selection | Excel Discussion (Misc queries) | |||
Identifying a selection of a selection of a range | Excel Worksheet Functions | |||
Changing Selection for the "Center Across Selection" alignment | Excel Discussion (Misc queries) | |||
Excel VBA - Range(Selection, Selection.End(xlDown)).Name issue. | Excel Programming |