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

Excel VBA - Navegacao pelas planilhas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba navegar planilhas barra ferramenta combobox navegar vba navegar planilhas barra ferramenta combobox navegar

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 638

    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)

    vba navegar planilhas criterios valores inseridos nas celulas vba navegar planilhas criterios valores inseridos nas celulas

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 567

    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



    vba navegar planilhas menu personalizado vba navegar planilhas menu personalizado

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 1035

    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



    Página 2 de 2

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    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