I need to populate the Combobox on the "frmGunParts" from the worksheet "Colt_Gov_Model_MK_IV_80" worksheet columns "A3:C". Column A is "checkboxes" so don't know if this can be done but check the box in column "A" and it's added to the listbox "lstGunOrder". Once added to the listbox, that info is transfered to the "Customer_Order_History" worksheet to appropriate cells which is to include the Customer Number in label box "txtCustupdate".
This is what I have so far that works perfectly that once you click "Select Product Order" on the Customer Info "frmForm". When testing be sure to select a customer or enter new customer info then select the "Select Product Order" button.
Private Sub cmdOpGnPrd_Click()
'Click to open with the "Select Product Order" button
'Set screens to Full Screen
Dim xlws As XlWindowState
xlws = Application.WindowState
Application.WindowState = xlMaximized
With frmGunParts
.Top = Application.Top
.Left = Application.Left
.Width = Application.Width
.Height = Application.Height
End With
'Add Combobox value from Customer_info userfrom to label box on frmGunParts userform
MyVal = frmForm.cboCustNo.Value
frmGunParts.txtCustupdate.Value = MyVal
'Show frmGunParts userform before closing userFrom1 (Customer_Info frmForm)
frmGunParts.Show
Unload Me ' UserForm1 "frmForm"
Application.WindowState = xlws
End Sub
I have attached the workbook. Thanks for any help I can get to begin this process.
Trying to attach an updated workbook. Please update for attached.