Thread: User Form Search and Update

can someone take a second to look at the attachement and help with a solution. I am trying to get the "search" button to work.

been awhile since i had a chance to look at this post. Is there anyone who can take a few moments to help out with this issue. the attached book1 is causing me some issue as i can not seem to get the search function to work.

Can I get a forum mod to close this post as unsolved? I need help with getting a search function to work, but postulating does not get me closer to an answer or solution. There for with the lack of guidance I could use I will take my question to another forum, with higher hopes and less frustration.

Roy,

Not sure what you mean by 5 months as I started this post roughly a month ago. And as for the other post, it is closed by Daveexcel..thanks for the suggestion though of fixing it or not posting here any more.

SHG,

thanks that solved the issue up to that point, then it snagged a couple of lines down.

Code:

Private Sub cmdFind_Click()
    Dim strFind, FirstAddress As String   'what to find
    Dim rSearch As Range  'range to search
    Set rSearch = Sheet3.Range("A1", Sheet3.Range("A65536").End(xlUp))
    strFind = Me.txt1stName.Value    'what to look for
    Dim f      As Integer
    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then    'found it
            c.Select         '<--------- RunTime Error 1004, Select Meathod of Range class failed'
            With Me    'load entry to form
                .txtInitial.Value = c.Offset(0, 1).Value
                .txt2ndName.Value = c.Offset(0, 2).Value
                .txtAddress1.Value = c.Offset(0, 3).Value
                '.cmbAmend.Enabled = True     'allow amendment or
                '.cmbDelete.Enabled = True    'allow record deletion
                .cmdAdd.Enabled = False      'don't want to duplicate record
                f = 0
            End With
            FirstAddress = c.Address
            Do
                f = f + 1    'count number of matching records
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> FirstAddress
            If f > 1 Then
                MsgBox "There are " & f & " instances of " & strFind
                Me.Height = frmMax
            End If
        Else: MsgBox strFind & " not listed"    'search failed
        End If
    End With
End Sub

i reconfigured some stuff in my workbook, to try to get the search function to work a little better or at all (i was hoping) but this code continues to fail me. I have seen the code work, but I have had nothing but issue after issue with it.

Need help with adding a search function to my user form.

Attached is my workbook, current coding for the search function is not working properly. Any help is Welcome and Appreciated.

royUK,

I am sorry that you feel that way. I have gone back through this thread and noticed that I have responded to every thing in a timely manner for a forum site, (within an hour or two) more over to point out again this thread was started roughly a month ago. Where you came up with 5 months is beyond me because the tag for the start of this thread is 2/17/2010.

The reason for the negative feedback is due to the wild assumption of 5 months and using this thread to point out a mistake that I made in another thread. As well as pointing out that if I could not fix my error on that thread that I should stop posting here. As I pointed out that thread was closed and does not allow me to make any changes to it. I also emailed Daveexcel and asked him why he didn’t move it instead of closing it.

If for some reason you feel that posturing and threatening me with being banned from this forum is warranted then please do not hesitate from fulfilling your desire. From where I sit, it seems like retaliation to a valid negative feedback.

For the most part this forum has been a blessing for people looking to broaden their Excel and VBA knowledge but if this is the attitude and response I am not sure why anyone would come here. If I remain un-banned I will return to seek help and offer any help I can with what knowledge I have. If not I will seek help in a different venue.

Set rSearch = Sheets("Customer_Information").Range("i4", Range("i65536").End(xlUp))