Select Cell of Found Value

dodger7 · Sep 19th 2007

Hi Guys

im currently creating an excel database type spreadsheet and have a form with a textbox and a button. The code behind the button is as follows:

Code

Sub find_Click()




    Dim strFind
    Dim rSearch As Range
    Set rSearch = Sheet1.Range("A2:A1000")
    strFind = Me.txtpolicy.Value
    If strFind = NullString Then GoTo error1


    With rSearch
        Set c = .find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then
            
            c.Select
            
        Else
            MsgBox "No match was found. Please try again"


        End If


    End With
error1:


End Sub

Display More

The error message I get is select method of Range class failed

Debugging highlights the c.select line

Anyone know why this is?

Thanks in advance
Jamie

**Andy Pope** · Sep 19th 2007

Re: .find Error Message

Is sheet1 the active sheet?

dodger7 · Sep 19th 2007

Re: .find Error Message

no, it wasnt! thats the problem.

As The Killers would say, "Andy you're a Star!"

Cheers

Dave Hawley · Sep 20th 2007

Please be considerate of others who use the forum for searching. Your current Thread Title (which I will change) is non-reflective of your immediate problem.

In future, please take 1 minute of your time to read the text on the New Thread page.

Also, Please Read http://www.ozgrid.com/forum/showthread.php?t=74932

REMEMBER: Your thread title should NEVER be what you THINK is your answer. 9 times out 10 it will wrong and prevent someone from finding a solution to a simliar issue.

BTW, use GoTo if you MUST select, then it doesn't matter which sheet is active

Select Cell of Found Value

Participate now!

Share