Home Excel - Downloads / Areas Restritas Excel VBA - Navegacao pelas planilhas

Excel VBA - Navegacao pelas planilhas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planiha vba menu barra combo navegar planilhas Excel planiha vba menu barra combo navegar planilhas

    popular!
    Adicionado em: 08/04/2011
    Modificado em: 08/04/2011
    Tamanho: 87.52 KB
    Downloads: 917

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

    Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), são duas macros para navegação entre as folhas de planilhas, uma com hiperlinks para navegação entre as planilhas e outra uma barra de ferramentas com todas as planilhas criadas em uma comobox na abertura do Livro,
    Espero que que o exemplo possa ajudá-lo. Fique com Deus, Expedito Marcondes.

    Sub auto_open()
    On Error Resume Next
    CommandBars("BarraPlanilhas").Delete
    Set vBarra = CommandBars.Add
    vBarra.Name = "BarraPlanilhas"
    vBarra.Visible = True
    Set vMenu = vBarra.Controls.Add(msoControlComboBox)
    For i = 1 To Sheets.Count
    vMenu.AddItem Sheets(i).Name
    Next
    vMenu.OnAction = "Seleciona_Planilha"
    vMenu.Text = "Selecione Plan"

    End Sub

    Sub auto_close()
    On Error Resume Next
    CommandBars("BarraPlanilhas").Delete
    End Sub

    Sub Seleciona_Planilha()
    Sheets(CommandBars("BarraPlanilhas").Controls(1).Text).Select
    End Sub


    Estas macros abaixo são do Hiperlinks que podem ser aplicadas separadas, fiz tudo em uma só para aproveitar o exemplo.

    Sub Hiperlinks()
    For i = 2 To Sheets.Count
    Hp = Sheets(i).Name
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="" & Hp & "" & "!a1", ScreenTip:="Plan -" & Hp, TextToDisplay:=Hp
    Next i
    End Sub

    Sub Limpar_hiperlink_teste()
    [c1:c17].ClearContents
    End Sub

    Sub ir_principal()
    sbPrincipal.Select
    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
    Eletrônicos - Submarino.com.br

    Excel planihas vba criar links navegar plans add plans Excel planihas vba criar links navegar plans add plans

    popular!
    Adicionado em: 12/04/2011
    Modificado em: 12/04/2011
    Tamanho: 84 KB
    Downloads: 691

    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
    Eletrônicos - Submarino.com.br

    Excel planilha vba navegar planilhas celula Excel planilha vba navegar planilhas celula

    popular!
    Adicionado em: 14/04/2011
    Modificado em: 14/04/2011
    Tamanho: 66.59 KB
    Downloads: 619

    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
    Eletrônicos - Submarino.com.br

    Excel vba navegar criar  planilhas combobox Excel vba navegar criar planilhas combobox

    popular!
    Adicionado em: 20/04/2011
    Modificado em: 20/04/2011
    Tamanho: 71.81 KB
    Downloads: 1001

    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
    Eletrônicos - Submarino.com.br

    Excel vba planilha navegar validação dados Excel vba planilha navegar validação dados

    popular!
    Adicionado em: 08/12/2011
    Modificado em: 08/12/2011
    Tamanho: 105.01 KB
    Downloads: 869

    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.




    Página 1 de 2

    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA