Compile Error - Variable Not defined

Good Morning Everyone,

I still have not been able to resolve a compile error that states the "Variable has not been Defined". Basically, I am searching for the Part Number on My form on sheet 7 in columns B2:B50000. I've tried rewriting this every way imaginable, with no success in resolving this error. I am new to the world of code and could use some help to solve this problem.

Below is the code I am using to Find the Record by Part Number on my form, allowing some edits and then updating the editable columns back to the Worksheet. I have also attached a copy of the project as well. The form and Code exist on a form called Find Part (frmFindPart)


Private Sub cmdAddtoTicket_Click()

'Find Part Number on Sheet7 (Part Table) in Cell Range ("B2:B50000")
Set findvalue = Sheet7.Range("B2:B50000").Find(What:=Me.txtpartnumber, LookIn:=xlValues)

'findvalue.Value = Me.txtPartNumber "Allow Edits to be Updated to the Record"
findvalue.Offset(0, -1).Value = Me.txtquantityneeded.Value
findvalue.Offset(0, 5).Value = Me.txtPkgQty.Value
findvalue.Offset(0, 6).Value = Me.txtPkgCost.Value
findvalue.Offset(0, 7).Value = Me.TxtCostEach.Value
findvalue.Offset(0, 8).Value = Me.txtMultiplier.Value
findvalue.Offset(0, 9).Value = Me.txtSellEach.Value

Call MsgBox("The Part has been Updated", vbInformation, "Edit Part")

'reset error
On Error GoTo 0
Exit Sub

Unload Me
frmfindpart.Show

End Sub


Here is my File that I am working on: Perfect Degree Service Ticket TestV5.xlsm

I appreciate any help I can get.

Thanks Much and Have a Great day!
Larrry

Thank you so much for replying. We are getting close now. It did find the record and updated the quantity I entered for that record. Yeah!

Unfortunately it did not update the changes in the other text Boxes. I don't understand why since these values update themselves on the form when ever the Pkg Qty is changed or the Pkg Cost are changed. When either of these two values change it performs a Vlookup to determine the correct Multiplier then Multiplies the Cost Each by the Multiplier to get the Sell price.

I changed the Pkg Cost on the user form (Find Part Form) and it updated all these values on the form as it was supposed to. Unfortunately when it saved the record (Update Part and Add Quantities to Ticket)it didn't save the new values to the record.

In an earlier piece of code it does the following on an update of either the PKG Cost or PKG Qty:


Private Sub txtPkgCost_AfterUpdate()

TxtCostEach.Value = txtPkgCost / txtPkgQty
txtMultiplier.Value = Application.Lookup(CDbl(TxtCostEach), Sheets("Tables").Range("D5:F30"))
txtSellEach.Value = TxtCostEach * txtMultiplier

End Sub

Is it possible that this piece of code may need to be added to the code in my previous Thread in order to recalculate the values and move them over? Again, it did pick up the Qty Needed Entry on the form, but not the changes in the calculation values. I would have thought that the values had already changed on the form and updated during the Save process.

This is much closer then I have been and I appreciate the advice. I have reattached the modified project with the piece I added as you requested.

Perfect Degree Service Ticket TestV6.xlsm

Thanks so Much!
Larry