GO GaryFingers
New Member
- Joined
- Jan 19, 2005
- Messages
- 19
I have a worksheet, with About 5 to 6 Combo boxes, made with the active x control tool box
They're set up on change, but a couple of them launch themselves without me using them. And can't even close the program properly. The first three worked great!?#%
What makes them operate Automatically like that?
OF course,they are named differently, but all are on Sheet 4 code
The following is the code for one of the combo's, It runs other macros
I also don't have a handle on proper Initializing procedure either
Thanx to all that Can Help
They're set up on change, but a couple of them launch themselves without me using them. And can't even close the program properly. The first three worked great!?#%
What makes them operate Automatically like that?
OF course,they are named differently, but all are on Sheet 4 code
The following is the code for one of the combo's, It runs other macros
Code:
Private Sub ComboBoxWkshtDateUm_Change()
'To post Job Date, Um, qty, misc formulas
ComboBoxWkshtDateUm.DropDown
If ComboBoxWkshtDateUm.Value = "Priceformula" Then
Application.Run "'GO Estimater-2.xlt'!Priceformula"
End If
If ComboBoxWkshtDateUm.Value = "Date" Then
Application.Run "'GO Estimater-2.xlt'!PostJobDate"
End If
If ComboBoxWkshtDateUm.Value = "UM" Then
Application.Run "'GO Estimater-2.xlt'!WKSHT_Umpaste"
End If
If ComboBoxWkshtDateUm.Value = "Qty" Then
Application.Run "'GO Estimater-2.xlt'!PasteFormulaQty"
End If
If ComboBoxWkshtDateUm.Value = "Cancel" Then
ComboBoxWkshtDateUm.Value = "F/D"
Exit Sub
End If
'make value F/D, so that you can pick the same thing again, and have a 'change'
ComboBoxWkshtDateUm.Value = "F/D"
ActiveSheet.Select
ActiveCell.Activate
End Sub
Thanx to all that Can Help