Editing data from another sheet using Combobox?

[jmpatrick]

Happy Friday!

Today I'm trying to give users the ability to edit data on a sheet using a userform.

Here's a screen shot...

Here's my code:

Private Sub cmdUpdateGarageHandling_Click()
Dim EditGarageHandling_id As String
EditGarageHandling = Trim(EditGarageHandling.Text)
LastRow = Worksheets("GarageHandling").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
If Worksheets("GarageHandling").Cells(i, 1).Value = EditGarageHandling Then
   Worksheets("GarageHandling").Cells(i, 1).Value = EditGarageHandling.Text
End If
Next
        
        Call cmdResetDeleteGarageHandling_Click
        
        MsgBox ("Garage Handling Successfully Updated!")

End Sub

The user would select data from the combobox, make changes and hit update to edit the data in sheet (GarageHandling).

The current code doesn't error out, but it doesn't edit anything either.

 

[Fluff]

You are searching for the value of EditGarageHandling & if it's found you are then putting the same value back into the cell.

 

[jmpatrick]

You are searching for the value of EditGarageHandling & if it's found you are then putting the same value back into the cell.

I'm not sure the best way to do this with one combobox. I just want to be able to select data, edit the data in the same combobox and hit update.

Not sure if it's possible because it's early and I'm dumb.

 

[Fluff]

I would suggest putting a textbox in there, select the value from the combo & then edit that in the textbox.

 

[jmpatrick]

I would suggest putting a textbox in there, select the value from the combo & then edit that in the textbox.

That's what I was thinking.

 

[Fluff]

If you need help with that, just shout.

 

[jmpatrick]

If you need help with that, just shout.

I got it cooking pretty easy. Userform changed...

Update code changed...

Private Sub cmdUpdateGarageHandling_Click()
Dim EditGarageHandling_id As String
EditGarageHandling = Trim(EditGarageHandling.Text)
LastRow = Worksheets("GarageHandling").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
If Worksheets("GarageHandling").Cells(i, 1).Value = EditGarageHandling Then
   Worksheets("GarageHandling").Cells(i, 1).Value = EditGarageHandlingReturn.Text
End If
Next
        
        Call cmdResetDeleteGarageHandling_Click
        
        MsgBox ("Garage Handling Successfully Updated!")

End Sub

Added this to mirror the combobox data to the new edit textbox...

Private Sub EditGarageHandling_Change()
     EditGarageHandlingReturn.Value = EditGarageHandling.Value
End Sub

The issue I'm having is with the reset: cmdResetDeleteGarageHandling_Click.

Private Sub cmdResetDeleteGarageHandling_Click()
        With Me
            .EditGarageHandling.Clear
            .EditGarageHandlingReturn.Value = ""
        End With
        UserForm_Initialize
        EditGarageHandling.SetFocus
        Me.cmdDeleteModel.Enabled = False
End Sub

It clears the textbox but the combobox won't clear.

Thoughts?

 

[Fluff]

Try using

        Private Sub EditGarageHandling_Click()
EditGarageHandlingReturn.Value = EditGarageHandling.Value
End Sub

 

[jmpatrick]

Try using

        Private Sub EditGarageHandling_Click()
EditGarageHandlingReturn.Value = EditGarageHandling.Value
End Sub

Hmm. Still doesn't reset the combobox.

 

[Fluff]

Do you have any code in the initialise event that puts a value into the combo?