This code is used in conjunction with an excel spreadsheet, i need to be able to remove each item from the comboBox list as the item is selected this can be in any order and if and when the last item is selected runs an additional macro called FileSaveNewer()
The code is;
Sub SelectTest()
UserForm3.Combo Box3.Clear
UserForm3.Combo Box3.AddItem "A C"
UserForm3.Combo Box3.AddItem "X C"
UserForm3.Combo Box3.AddItem "E C"
UserForm3.Combo Box3.AddItem "A C C"
UserForm3.Combo Box3.AddItem "X C C"
UserForm3.Combo Box3.AddItem "E C C"
UserForm3.Combo Box3.AddItem "A E T"
UserForm3.Combo Box3.AddItem "X E T"
UserForm3.Combo Box3.AddItem "E E T"
UserForm3.Show
Range("B110").V alue = UserForm3.Combo Box3
Select Case Range("B110")
Case "Azimuth Clockwise"
'UserForm3.Comb oBox3.RemoveIte m "A C"
Call GetInputACW
Case "X C"
Call GetInputXCR
Case "E C"
Call GetInputECR
Case "A C C"
Call GetInputACCW
Case "X C C"
Call GetInputXCCR
Case "E C C"
Call GetInputECCR
Case "A E T"
Call ATestAmps
Case "X E T"
Call XTestAmps
Case "E E T"
Call ETestAmps
End Select
End Sub
Can anyone help this is driving me crazy!
The code is;
Sub SelectTest()
UserForm3.Combo Box3.Clear
UserForm3.Combo Box3.AddItem "A C"
UserForm3.Combo Box3.AddItem "X C"
UserForm3.Combo Box3.AddItem "E C"
UserForm3.Combo Box3.AddItem "A C C"
UserForm3.Combo Box3.AddItem "X C C"
UserForm3.Combo Box3.AddItem "E C C"
UserForm3.Combo Box3.AddItem "A E T"
UserForm3.Combo Box3.AddItem "X E T"
UserForm3.Combo Box3.AddItem "E E T"
UserForm3.Show
Range("B110").V alue = UserForm3.Combo Box3
Select Case Range("B110")
Case "Azimuth Clockwise"
'UserForm3.Comb oBox3.RemoveIte m "A C"
Call GetInputACW
Case "X C"
Call GetInputXCR
Case "E C"
Call GetInputECR
Case "A C C"
Call GetInputACCW
Case "X C C"
Call GetInputXCCR
Case "E C C"
Call GetInputECCR
Case "A E T"
Call ATestAmps
Case "X E T"
Call XTestAmps
Case "E E T"
Call ETestAmps
End Select
End Sub
Can anyone help this is driving me crazy!