hi i have the following fantastic code supplied by Norie..... it does very nearly exactly what i want except for a couple of things... firstly how do adjust the code to create the team list in the combobox from a list on a worksheet? from what I can gather from the code this is the part that creates the current list that i have
{ For I = 1 To 24
cmdbarcombo.AddItem "Team" & I
Next I
}
is that correct???
Sub CreateCustomToolbar()
Dim cmdbar As CommandBar
Dim cmdbarcombo As CommandBarComboBox
Dim cmdbarbtn As CommandBarButton
Dim I As Integer
Set cmdbar = CommandBars.Add(Name:="Colour Teams")
Set cmdbarcombo = cmdbar.Controls.Add(msoControlComboBox)
cmdbarcombo.Tag = "TeamCombo"
cmdbarcombnAction = "ChangeColour"
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Team Colour"
cmdbarbtn.Tag = "TeamColour"
cmdbarbtn.Style = msoButtonCaption
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Colour Cells"
cmdbarbtn.Style = msoButtonCaption
cmdbarbtn.OnAction = "ColourCells"
For I = 1 To 24
cmdbarcombo.AddItem "Team" & I
Next I
cmdbarcombo.ListIndex = 1
cmdbar.Visible = True
End Sub
{ For I = 1 To 24
cmdbarcombo.AddItem "Team" & I
Next I
}
is that correct???
Sub CreateCustomToolbar()
Dim cmdbar As CommandBar
Dim cmdbarcombo As CommandBarComboBox
Dim cmdbarbtn As CommandBarButton
Dim I As Integer
Set cmdbar = CommandBars.Add(Name:="Colour Teams")
Set cmdbarcombo = cmdbar.Controls.Add(msoControlComboBox)
cmdbarcombo.Tag = "TeamCombo"
cmdbarcombnAction = "ChangeColour"
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Team Colour"
cmdbarbtn.Tag = "TeamColour"
cmdbarbtn.Style = msoButtonCaption
Set cmdbarbtn = cmdbar.Controls.Add(msoControlButton)
cmdbarbtn.Caption = "Colour Cells"
cmdbarbtn.Style = msoButtonCaption
cmdbarbtn.OnAction = "ColourCells"
For I = 1 To 24
cmdbarcombo.AddItem "Team" & I
Next I
cmdbarcombo.ListIndex = 1
cmdbar.Visible = True
End Sub