Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, tem por objetivo inserir um ítem de menu para navegação pelas folhas de planilhas, o objeto inserido pelo procedimento é uma combobox relacionando todas as folhas de planilhas contidas no livro. Podem observar que usei o Evento auto_open para execução da macro na abertura do livro e auto_close() para deleção do menu personalizado no fechamento do livro


Essa macro insere uma barra de menu na forma de uma combobox para navegação pelas folhas de planilhas, usando o evento auto_open,
para montar o menu na abertura do livro.
Sub auto_open()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete

Set vBarra = CommandBars.Add
vBarra.Name = "Barra_Planilhas"
vBarra.Visible = True

Set Menu = vBarra.Controls.Add(msoControlComboBox)

For i = 1 To Sheets.Count
Menu.AddItem Sheets(i).Name
Next

Menu.OnAction = "Navega_Plan"
Menu.Text = "Seleciona Planilha"
End Sub

'macro usando o evento auto_close para deleção do menu personalizado (Barra_Planilhas) ao fechar o livro.
Sub auto_close()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
End Sub

'macro que selecionará a folha de planilha desejada na lista da combobox no menuzinho personalizado. (veja imagem acima.)
Sub Navega_Plan()
Sheets(CommandBars("Barra_Planilhas").Controls(1).Text).Select
End Sub

'Essa macro é um (volta Principal) inserido em todas as folhas de planilha, quero que observe para um detalhe importante,
'aqui referenciamos a folha de planilha Principal, não pelo nome da folha de Planilha mas pela "FOLHA DE CÓDIGO DA FOLHA DE PLANILHA PRINCIPAL", o porque?,
R: se o usuário mudar o nome da folha de planilha lá na aba de planilha a macro vai funcionar, por estar referenciando à folha de código, ao contrário, isto é, se fosse pelo nome da folha de planilha Sheets("Principal").Select - (resultaria em erro, se o usuário mudassee o nome da folha de planilha) . entendeu?

Sub voltar()
sbPrincipal.Select ' planilha referenciada pelo nome da folha de código.
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, seleciona planilhas atraves de dados em uma determinada tabela que delimita um intervalo de células e que contém o nome das folhas de planilhas, então ao selecionar determinada célula, seleciona a planilha desejada, também inserí uma macro que adiciona 32 planilhas de uma so vez, e outra macro que as deleta preservando apenas duas, pré-escolhidas.
Baixe o exemplo de planilha no final da página.




NO MÓDULO DE CÓDIGOS DA FOLHA PLANILHA (WORKSHEET " PRINCIPAL")
INSIRA O CÓDIGO ABAIXO


Observe que o procedimento afetará a Folha de Planilha ao selecionar, causado pelo Evento Selection_Change

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Nome As String
Dim resposta As String
If Range("C12") = "" Then
MsgBox ("Insira os nomes primeiro"), vbInformation, "Saberexcel.com"
End
Else
On Error GoTo Aviso

Nome = ActiveCell

If ActiveCell.Row > 12 And ActiveCell.Row < 26 And ActiveCell.Column > 2 And ActiveCell.Column < 18 Then
Sheets(Nome).Select
End If

Exit Sub
Aviso:

If Err = 9 Then
MsgBox ("Planilhas inexistente!!, crie as planilhas no botão acima!"), vbYesNo, "saberexcel - site das macros"
Else
MsgBox Err.Number & "-" & Err.Description, vbCritical, "www.saberexcel.com"
End If
End If

End Sub

EM UM MÓDULO COMUM INSIRA AS DECLARAÇÕES E MACROS ABAIXO

Const strPlanPagamento As String = "PRINCIPAL"
Const strPlanAuxiliar As String = "Produtos SaberExcel"

Sub Deletar_planilhas_preservar_duas()
Dim shtWs As Worksheet
Dim intRetVal As Integer

If ThisWorkbook.Worksheets.Count > 2 Then
intRetVal = MsgBox("Deseja excluir as planilhas e preservar apenas duas?", _
vbYesNo + vbInformation, "Saberexcel.com")

If intRetVal = vbYes Then
Else
Exit Sub
End If

End If

Application.DisplayAlerts = False

For Each shtWs In ThisWorkbook.Worksheets
If shtWs.Name <> strPlanPagamento And shtWs.Name <> strPlanAuxiliar Then
shtWs.Delete
End If
Next

Saber2.Select
Application.DisplayAlerts = True

End Sub

Sub Adiciona_Renomeia_Planilhas()
On Error Resume Next
'Excel VBA Estudos®
'e-mail: [email protected]
Dim saber As Integer
saber = 1
Do While saber < 32
' Adiciona 32 planilhas
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Renomeia as planilhas
Application.ActiveSheet.Name = "Plan" & CStr(saber)
saber = saber + 1
Loop
Sheets("PRINCIPAL").Select
End Sub


Sub nomes_tabela()
Range("C12").FormulaR1C1 = "Grupo1"
Range("C13").FormulaR1C1 = "Plan1"
Range("C14").FormulaR1C1 = "Plan2"
Range("C15").FormulaR1C1 = "Plan3"
Range("C16").FormulaR1C1 = "Plan4"
Range("E12").FormulaR1C1 = "Grupo2"
Range("E13").FormulaR1C1 = "Plan5"
Range("E14").FormulaR1C1 = "Plan6"
Range("E15").FormulaR1C1 = "Plan7"
Range("E16").FormulaR1C1 = "Plan8"
Range("G12").FormulaR1C1 = "Grupo3"
Range("G13").FormulaR1C1 = "Plan9"
Range("G14").FormulaR1C1 = "Plan10"
Range("G15").FormulaR1C1 = "Plan11"
Range("G16").FormulaR1C1 = "Plan12"
Range("I12").FormulaR1C1 = "Grupo4"
Range("I13").FormulaR1C1 = "Plan13"
Range("I14").FormulaR1C1 = "Plan14"
Range("I15").FormulaR1C1 = "Plan15"
Range("I16").FormulaR1C1 = "Plan16"
Range("K12").FormulaR1C1 = "Grupo5"
Range("K13").FormulaR1C1 = "Plan17"
Range("K14").FormulaR1C1 = "Plan18"
Range("K15").FormulaR1C1 = "Plan19"
Range("K16").FormulaR1C1 = "Plan20"
Range("M12").FormulaR1C1 = "Grupo6"
Range("M13").FormulaR1C1 = "Plan21"
Range("M14").FormulaR1C1 = "Plan22"
Range("M15").FormulaR1C1 = "Plan23"
Range("M16").FormulaR1C1 = "Plan24"
Range("O12").FormulaR1C1 = "Grupo7"
Range("O13").FormulaR1C1 = "Plan25"
Range("O14").FormulaR1C1 = "Plan26"
Range("O15").FormulaR1C1 = "Plan27"
Range("O16").FormulaR1C1 = "Plan28"
Range("Q12").FormulaR1C1 = "Grupo8"
Range("Q13").FormulaR1C1 = "Plan29"
Range("Q14").FormulaR1C1 = "Plan30"
Range("Q15").FormulaR1C1 = "Plan31"
Range("Q16").FormulaR1C1 = "Plan32"
Range("E5").Select
End Sub

Sub limpar()
Range("C12:Q25").ClearContents
End Sub
'
Sub selecionar_principal()
Saber1.Select
[A1].Select
End Sub


Aprenda tudos sobre o Aplicativo Microsoft Excel VBA - com Saberexcel - o site das macros

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)

Escola Saberexcel o Site de quem precisa aprender tudo sobre Macros microsoft Excel VBA.

Esses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), navegam pelas folhas de planilhas de um livro,
através de uma lista suspensa (VD) Validação de Dados. Espero que gostem dos exemplos são (3).
'Fiquem com Deus. Expedito Marcondes tudo sobre excel tudosobrexcel tudo sobre excel vba
' - - - - - - - - - - - - - - - - - - - - - -
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then
Sheets((Range("b6").Value)).Select

'está procurando o terceiro exemplo, está aqui nesta estrutura Select Case
' Select Case Target.Value
' Case 1
' Sheets("Planilha_I").Select
' Case 2
' Sheets("Planilha_II").Select
' Case 3
' Sheets("Planilha_III").Select
' Case 4
' Sheets("Planilha_IV").Select
' Case 5
' Sheets("Planilha_V").Select
' Case Else
' MsgBox ("voce escolheu planiha 1 ou 6 ")
' Sheets("Planilha_VI").Select
' End Select
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -
'outra maneira de navegar pelas folhas de planilhas
'seria declarando variável e selecionando por nome
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim vNome As Variant
'If Target.Address = "$b$11" And Target.Count = 1 Then
'vNome = [b11].value
' Sheets(vNome).Select
'End If
'End Sub
' - - - - - - - - - - - - - - - - - - - - - -
'teste navegação
Sub sbx_navegar_planilhas_1()
Sheets((Range("b11").Value)).Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_navegar_planilhas_2()
Dim vNome As Variant
vNome = [b11].Value
Sheets(vNome).Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_navegar_planilhas_3()
Select Case Target.Value
Case 1
Sheets("Planilha_I").Select
Case 2
Sheets("Planilha_II").Select
Case 3
Sheets("Planilha_III").Select
Case 4
Sheets("Planilha_IV").Select
Case 5
Sheets("Planilha_V").Select
Case Else
MsgBox ("voce escolheu planiha 1 ou 6 ")
Sheets("Planilha_VI").Select
End Select
End sub

' - - - - - - - - - - - - - - - - - - - - - -
Sub voltar_principal()
sbx_PRINCIPAL.Select
End Sub

' - - - - - - - - - - - - - - - - - - - - - -
Exemplo de movemouse
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
Tags: Tudo sobre excel, vba ricardo horta excelbr,


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Saberexcel - o site de quem precisa aprender Aplicativo Microsoft Excel VBA(Visual Basic Application),

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), contendo objetos userform, combobox, voce poderá criar planilhas digitando o nome desejado na própria combobox e ou navegar pelas planilhas, como a propriedade ShowModal do Objeto Userform foi definida como False, você poderá navegar também pelas células de planilhas editar, copiar, colar, etc...
Observe que inserí a prorpriedade Sendkeys, que abrirá a relação das planihas na combobx na inicialização do objeto Userform.
Espero que exemplo de planiha possa ajudá-los. Fiquem com Deus, E_Marcondes


Private Sub UserForm_Initialize()
For Each sb In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem sb.Name
Next
Me.ComboBox1.SetFocus
SendKeys "%{down}"
End Sub

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
vDados = Me.ComboBox1.Value
On Error Resume Next
Sheets(Me.ComboBox1.Value).Select
If Err > 0 Then
If MsgBox("Deseja adicionar a planilha? [" & ComboBox1.Value & " ]", vbYesNo + vbInformation, "Saberexcel") = vbYes Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = vDados
Me.ComboBox1.AddItem vDados
End If
End If
End Sub

Private Sub ComboBox1_Click()
Sheets(Me.ComboBox1.Value).Select
Frame1.Caption = "Planilha selecionada [ " & ActiveSheet.Name & " ]"
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços