ComboBox List Remover on Select

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • SteveArmstrong
    New Member
    • Dec 2007
    • 1

    ComboBox List Remover on Select

    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!
Working...