why this code doesn't work at all?

[KalilMe]

hi guys
I have this code but doesn't work at all , I try updating values in some columns based on filled values in multiple textboxes

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim sr As Range
Dim cl
Set sh = Sheets("sheet1")
c1 = Me.ComboBox1.Value
If c1 <> "" Then
 Set sr = ws.Columns(4).Find(c1, LookAt:=xlWhole)
 If Not c1 Is Nothing Then
 sh.Cells(sr.Row, "A") = Me.TextBox1.Value
 sh.Cells(sr.Row, "B") = Me.TextBox2.Value
 sh.Cells(sr.Row, "C") = Me.TextBox3.Value

 End If
End If
End Sub

can any body guide me where is the mistake ?

 

[RoryA]

If it passes through all the lines, then it must be putting the values from the textboxes onto the sheet.

 

[KalilMe]

as you see in this picture when I try updating nothing happens .
about the match column I change to 2 not 4

 

[RoryA]

There’s nothing wrong with the code. If that is the result after pressing Update, then it cannot be executing all of the code.

 

[KalilMe]

actually I design again the file ,but the problem is in column C doesn't change . may you check it ,please ?
upd.xlsm

 

[KalilMe]

cross posted
updating data in column price based on textbox doesn't work

 

[KalilMe]

it's solved
thanks RoryA for your time