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)

Saberexcel - site das Macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém uma lista suspensa na célula (B4), por Validação de Dados (Lista) das folhas de planilhas existentes no Livro. Ao selecionar a planilha, selecionará a folha de planilha desejadada.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$4" Then
Worksheets(CStr(Target)).Select
End If

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

Saberexcel - o site de quem precisa aprender Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona planilhas com nomes determinadas na coluna(A), e também insere links para navegação entre as folhas de planilhas. Observe que o Macro copiará a tabela para todas as folhas de planilhas criadas, os nomes das folhas de planilhas são determinadas pela lista que existe na Coluna(A). Há também um exemplo de userform (Textboxes) que preenche a tabela.

Sub Criar_planilhas_navegar()
Range("Inicio").Select
vLinha = ActiveCell.Row
vColuna = ActiveCell.Column

Columns(vColuna).Find("*", , , , , xlPrevious).Select
On Error GoTo sbError
sbLinha = ActiveCell.Row
For i = vLinha To sbLinha
a = Cells(i, vColuna)
Sheets.Add.Name = a

Hiperlinks_Navegar

Sheets("Lista").Select
'[vArea].Copy Destination:=[u2]
Range("vArea").Select
Selection.Copy

Sheets(a).Select
Range("a1").Select
ActiveSheet.Paste

Sheets("Lista").Select
Next i

Sheets("Lista").Move , Worksheets(1)
[D1].Select
Exit Sub
sbError: MsgBox ("PLANILHAS JÁ FORAM CRIADAS, DELETE-AS PARA O TESTE")

End Sub

'Essa macro auxiliar deleta todas as planilhas e preserva duas "Lista" e " Principal", isso para faciliatar o teste.
Sub Deleta_Planilhas_Exceto_Desejada()
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "Lista" And Nm.Name <> "Principal" Then
Nm.Delete
End If
Next
[lis].ClearContents
End Sub

Sub Hiperlinks_Navegar()
Range("H6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Lista!A1", ScreenTip:="Lista", TextToDisplay:="Lista!A1"
Range("H6").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

'um pequeno exemplo de como inserir dados nas células em determinada tabela, (intenção didática)
Sub abrir_formulario()
UserForm1.Show
End Sub

Aprenda tudo sobre o 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

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