Detalhes de vba navegar planilhas barra ferramenta combobox navegar

Esta macro do Aplicativo Microsoft Excel VBA insere uma combo como um navegador de planilhas,
na barra de ferramentas na forma de combobox (combobox navegador entre as Planilhas)

Sub Criar_botao_combobox_navegacao()
Dim bcb As Office.CommandBarControl

Set bcb = Application.CommandBars(4).Controls. _
Add(msoControlComboBox, , , 1)

With bcb
.Caption = "Combobox_Planilhas"
For i = 1 To Sheets.Count
.AddItem Sheets(i).Name
Next
.Text = .List(1)
.OnAction = "Activa_a_Plan"
End With
End Sub

Sub Deletando_botao_combo()
Application.CommandBars(4). _
Controls("Combobox_Planilhas").Delete
End Sub

Sub Activa_a_Plan()
Sheets(Application.CommandBars(4). _
Controls("Combobox_Planilhas").Text).Select
End Sub


Aprenda Aplicativo Microsoft Excel VBA ((SaberExcel VBA ))



Baixe o exemplo de planilha contendo as macros acima
vba navegar planilha barra ferramentas combobox navegar (72.74 KB 2010-08-24 12:27:55)