Run Time error 91 while updating texts in textbox in userform

@ Cijo

Welcome to the forum.

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.

You don't check if there is a valid match, I suspect that is the case:

Private sub button_save_Click()

      Dim ws As excel.Worksheet
      Dim Employee As excel.range

      Dim Name As String

      Set ws = Worksheets("hotel")

       With ws.Range("c1:c900")
      
            Name = b.Value     ->     "// 'b' is the name of textbox
            
            Set Employee = .Find(what:=Name, LookIn:=xlValues)

            if not employee is nothing then
                Employee.Rows.Offset(0, 0).Value = Name               "//While clicking save button after editing data in textbox I'm getting Run 
                                                                                                time error 91 here
           else
                msgbox "'"Name & "' not found in worksheet", vbokonly
           endif
      
      End With

      Set Employee = Nothing
 
End Sub

I suspect the employee.rows.offset(0,0).value = b.value isn't right either, where are you trying to place the name relative to the found name, and what do you really want to put in the cell?

[QUOTE=cijo] Imagine I have to add one value say "Ascot" to a sheet cell from textbox using 'ADD" button. Later I want to change the value from Ascot to Ascot Royal to that same cell from same textbox using 'Save' button. This is my goal using 'save' button.

Regarding string variable "Name"; when i click one value of listbox, 'b' textbox gets updated with the corresponding value from the cell. That value is stored in the variable 'Name'. That 'b' text value when i want to edit, I get this problem.

The problem is Name and b have the same value. What you need to do is store the value of b in a separate control, say c, that is populated at the same time as b. Then, in the Click event, just replace Name with c.value:

Private sub button_save_Click()

      Dim ws As excel.Worksheet
      Dim Employee As excel.range

       Set ws = Worksheets("hotel")

       With ws.Range("c1:c900")
      
            Set Employee = .Find(what:=c.value, LookIn:=xlValues)

            if not employee is nothing then
                Employee.Rows.Offset(0, 0).Value = b.value               "//While clicking save button after editing data in textbox I'm getting Run 
                c.value = b.value
           else
                msgbox "'"Name & "' not found in worksheet", vbokonly
           endif
      
      End With

      Set Employee = Nothing
 
End Sub

[QUOTE=cijo] Thanks Pal, its working, though not in the code you have given me, but your idea of storing the value of b in a separate control helped me in my problem.

Thanks.

@ Cijo

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.