ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   how to update a record from combo-box in user form? (https://www.excelbanter.com/excel-programming/448683-how-update-record-combo-box-user-form.html)

asafswis2

how to update a record from combo-box in user form?
 
2 Attachment(s)
hello guys.
i really need some help with that thing.
im newbie in vba but rally like all that stuff.

i have this table:

and i have a form for a user

that i want he can update the table like this:
the user choose a name from the "worker name" combo-box
and when he click on "update" so the "yes/no" column in the table will show "yes" for the name that was chosen by the user.

second thing is that
when the user choose a name and click on the empty button, so it will delete all the record of the name was chosen (all the row).
this is the code of the form so far

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("workers")

'בדיקה אם הוכנסו פרטים
If Trim(Me.cmbWN.Value) = "" Then
Me.cmbWN.SetFocus
MsgBox "הכנס שם עובד"
Exit Sub
End If

If Trim(Me.tbDate.Value) = "" Then
Me.tbDate.SetFocus
MsgBox "הכנס תאריך בחינה"
Exit Sub
End If

ActiveWorkbook.Save
End Sub

Private Sub tbDate_Change()

End Sub

Private Sub UserForm_Initialize()
Dim cFullName As Range

Dim ws As Worksheet
Set ws = Worksheets("workers")

For Each cFullName In ws.Range("שםפרטי")
With Me.cmbWN
.AddItem cFullName.Value
.List(.ListCount - 1, 1) = cFullName.Offset(0, 1).Value
End With
Next cFullName

tbDate.Text = Sheets("not done").Range("J3").Text
End Sub
thank for all helpers


All times are GMT +1. The time now is 02:56 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com