Thread: User Form Search and Update

Not sure if I am linking this correctly but here it goes...http://www.excelforum.com/excel-prog...ification.html

This is a previous post link that is now solved but I have a new question based on the code in the post. I would like to know how to add a search and update ability to the user form I have created. I am newb with user forms so I apologize in advance for my lack of knowledge.

And yes I know the way it is set up now it is depositing data in two different locations; this is for a specific purpose.

Roy, thanks for the link. trying to implement the ideas into my userform. will repost the completed product when if I get it to work.

I have no idea what i did wrong, but when i tried to use the cmbFindAll piece of code i was suprised to see it wipe my entire workbook out. I dont just mean wiped out i mean gone. I can hit Alt+F11 and see the pages within the workbook but I can not access them. When i try and run a macro I get a global fail error message. I removed the code from my user form and saved but found no joy in this correcting the issue.

I had to start from a backup copy of my workbook. lucky for me there is only one minor change between the two copies so I didnt lose a lot of work. I will try to re-insert the code and see what happens.

ok so I have the workbook working 100%, but not the piece of code. this is how i modified it but i must be missing something as i get an error when i search.

Code:

Sub cmbFindAll_Click()
    Dim strFind As String    'what to find
    Dim rFilter As Range     'range to search
    Set rFilter = Part_Center.Range("a3", Range("f65536").End(xlUp))  '<------ Error occurs here'
    Set rng = Part_Center.Range("a4", Range("a65536").End(xlUp))
    strFind = Me.txtModel.Value
    With Bid_ToC
        If Not .AutoFilterMode Then .Range("A4").AutoFilter
        rFilter.AutoFilter Field:=1, Criteria1:=strFind
        Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)
        Me.ListBox1.Clear
        For Each c In rng
            With Me.ListBox1
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 1).Value
                .List(.ListCount - 1, 2) = c.Offset(0, 2).Value
                .List(.ListCount - 1, 7) = c.Offset(0, 7).Value
            End With
        Next c
    End With
End Sub

the sheet the parts are stored on is "Part_Center" the sheet the user form is on is "Bid_ToC" the first cell any part is listed on in the "Part_Center" sheet is A4 (A4:F4 makes up the current full line information for the first part)

any idea on how to make this work?

attached a workbook that i have been using to test with.

royUK..I have attached the requested example..hopefully you can help with this issue.

Still looking for a little help on this please.

The code I posted is from the actual workbook I am working on, the attachment I posted has the code set for the attached workbook and is my test book. The two are not the same in that respect but the code is relatively the same. But I am getting the same stop point in the posted example and the actual workbook.

Run-time error ‘1004’-
Method ‘Range’ of object’_Worksheet’ failed

Code:

Set rSearch = Sheet3.Range("a1", Range("a65536").End(xlUp))

I have tried changing ‘Sheet3’ to “Customer_Information” in the attached example posted but the error is the same, so I am not sure what mistake I am making.