Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why doesn't this work
Hi All,
Below is the code l am using in a ComboBox. The form populates fine, the 1st column being the combobox from which the user selects the data. Text boxes are used to display the associated data in columns 2, 3 & 4. My requirement is then that the data in columns 2,3, 7 4 can be edited and written back to the worksheet. With the code below only the edited data in column 2 is written back! Any help gratefully appreciated. This is driving me nuts. Private Sub cbStaff_Change() tbCat.Value = cbStaff.Column(1) tbSkill.Value = cbStaff.Column(2) tbNum.Value = cbStaff.Column(3) End Sub Private Sub cmdCancel_Click() Unload frmStaffEdit End Sub Private Sub cmdOK_Click() Dim r As Integer r = cbStaff.ListIndex + 3 With Sheets("Staff List") Cells(r, 3).Value = tbCat.Value Cells(r, 4).Value = tbSkill.Value Cells(r, 5).Value = tbNum.Value End With Unload frmStaffEdit End Sub Private Sub UserForm_Initialize() cbStaff.Value = "" End Sub TIA Regards MB |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why doesn't this work
I suspect you have those cells linked to to your combobox and you are getting
some interaction with that link. Suggest you break the link (rowsource) and see how it works (load your combobox list with code). -- Regards, Tom Ogilvy "michael.beckinsale" wrote: Hi All, Below is the code l am using in a ComboBox. The form populates fine, the 1st column being the combobox from which the user selects the data. Text boxes are used to display the associated data in columns 2, 3 & 4. My requirement is then that the data in columns 2,3, 7 4 can be edited and written back to the worksheet. With the code below only the edited data in column 2 is written back! Any help gratefully appreciated. This is driving me nuts. Private Sub cbStaff_Change() tbCat.Value = cbStaff.Column(1) tbSkill.Value = cbStaff.Column(2) tbNum.Value = cbStaff.Column(3) End Sub Private Sub cmdCancel_Click() Unload frmStaffEdit End Sub Private Sub cmdOK_Click() Dim r As Integer r = cbStaff.ListIndex + 3 With Sheets("Staff List") Cells(r, 3).Value = tbCat.Value Cells(r, 4).Value = tbSkill.Value Cells(r, 5).Value = tbNum.Value End With Unload frmStaffEdit End Sub Private Sub UserForm_Initialize() cbStaff.Value = "" End Sub TIA Regards MB |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to update a column in a work based on another work sheet | New Users to Excel | |||
how can i automatically generate work order numbers from work orde | Excel Discussion (Misc queries) | |||
If I have a work sheet protected and try to run a macro to hide rows or columns it won't work. Correct? | Excel Programming | |||
Counting dates in multiple work sheets and work books | Excel Discussion (Misc queries) | |||
Is there away to keep "auto save" from jumping to the first work sheet in the work book? | New Users to Excel |