Determine what row is currently selected
 

Joel,

Appreciate your help and sticking with me on this.

Here is my code. I'm getting an "Object required (424) error generated on
the row that starts Set C =

Private Sub cmd_GotoTask_Click()

Dim C As Range

With Sheets("sheet1")

'Execute the find
Columns("A:A").Select

'Turn off error trapping for in-line analysis
On Error Resume Next

'Search the Task# column for the entered value
Set C = Selection.Find(What:=Me.txt_GoToTask, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'If the task number was found, move the pointer to it. If not, display
an error message
If Err.Number = 0 Then
intRowPointer = C.Row
Call FillControls
Else
Debug.Print Err.Number, Err.Description
MsgBox "Task not found"
End If
Err.Clear
On Error GoTo 0

End With

End Sub

--
Email address is not valid.
Please reply to newsgroup only.


"Joel" wrote:

Dim c As Range

"Dale Fye" wrote:

Joel,

When I tried that, I get a variable not defined error.

When I try to Dim the variable C, what should I declare it as?

--
Email address is not valid.
Please reply to newsgroup only.


"Joel" wrote:

You didn't add a set.

set c = Selection.Find(What:=Me.txt_GoToTask, After:=ActiveCell, _
lookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Now you can find the row by using c.row

"Dale Fye" wrote:

I have implemented the Selection.Find method to find a value in a column, and
have the code working to display an error message if the value was not found,
but cannot figure out how to determine the row of the cell that is selected
if a match is found. The line of code that reads intRowPointer =
Selection.Row always returns a 1. Any help would be greatly appreciated.

'Turn off error trapping for in-line analysis
On Error Resume Next

'Search the Task# column for the entered value
Selection.Find(What:=Me.txt_GoToTask, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'If the task number was found, move the pointer to it.
'If not, display an error message
If Err.Number = 0 Then
intRowPointer = Selection.Row
Call FillControls
Else
MsgBox "Task not found"
End If
Err.Clear
On Error GoTo 0

Dale
--
Email address is not valid.
Please reply to newsgroup only.