" HABILITANDO A GUIA DESENVOLVEDOR E COPIANDO PROCEDIMENTOS VBA ntos VBA (SUB) DA INTERNET - Guia do Excel

HABILITANDO A GUIA DESENVOLVEDOR E COPIANDO PROCEDIMENTOS VBA ntos VBA (SUB) DA INTERNET

Jogo da Forca
Jogo da forca Excel – Jogo Excel
29 de agosto de 2010
Gráfico em movimento
CRIAR GRÁFICO EM MOVIMENTO NO EXCEL 2007 OU EXCEL 2010
4 de setembro de 2010

Gravar Macro

Conforme pedido por um leitor, neste artigo demonstrarei como habilitar a guia desenvolvedor no Excel 2007 e também como colar procedimentos VBA da internet para que fique disponível em todas as planilhas.

Habilitar a guia Desenvolvedor e projeto PERSONAL

  • No Excel 2007 clique no botão com o símbolo do Microsoft Office;
  • Clique no botão Opções na janela que segue clique no botão Geral na esquerda;
  • Marque a opção Habilitar Guia Desenvolvedor;
  • Desta forma surgirá a nova aba chamada “Desenvolvedor”;
  • Clique nesta guia e no botão Gravar Macro;
  • Selecione no botão Armazenar macro em: “Pasta de trabalho pessoal de macros”, conforme a figura;
  • Digite na tecla de atalho uma letra no caso eu escolhi “A” maiúscula.
Gravar Macro

Gravar Macro

 

  • Clique em OK;
  • Clique em Parar Gravação;
  • Este último procedimento serviu para criar um projeto pessoal que poderá ser acessado a qualquer momento no Excel.

Copiando e colando procedimentos VBA no Excel 2007

  • Copie o código abaixo que é do post sobre como abrir arquivos texto com mais de um milhão de linhas.
Public Sub LerArquivoTexto()
    On Error GoTo TratarErro
 
    Dim lsCaminho As String
    Dim llArquivo As Long
    Dim llLinha As String
    Dim lQtde As Long
    Dim llPlanilhas As Long
 
    'Local do Arquivo
    lsCaminho = InputBox("Digite o caminho do arquivo: ", actName)
    
    'Qtde de Linhas a separar no arquivo
    lQtde = InputBox("A cada quantas linhas separar o arquivo: ", actName)
 
    'Identificar se o arquivo existe
    If Dir(lsCaminho)  "" Then
        llArquivo = FreeFile
 
        Open lsCaminho For Input As #llArquivo
 
        lContador = 1
        llPlanilhas = 1
 
        'Ler o arquivo texto
        While Not EOF(llArquivo)
            Line Input #llArquivo, llLinha
 
            If lContador <= lQtde Then
                Range("A" & lContador).Value = llLinha
            Else
                llPlanilhas = llPlanilhas + 1
                Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = CStr(llPlanilhas)
                lContador = 1
                Range("A" & lContador).Value = llLinha
            End If
            lContador = lContador + 1
        Wend
 
        Close #llArquivo
    Else
        MsgBox "Arquivo não encontrado"
    End If
 
 
Sair:
    Exit Sub
TratarErro:
    MsgBox "Houve um erro na leitura do arquivo!"
    GoTo Sair
    Resume
End Sub
      • Clique na guia Desenvolvedor e no botão Visual Basic;

 

      • Na guia da esquerda com os projetos, selecione o projeto VBAProject(PERSONAL.XLSB).

 

      • Clique na pasta Módulos;

 

      • Selecione o Módulo1 clicando duas vezes sobre ele;

 

    • Você verá a sua macro gravada sem informações, ele pode ser apagado e você pode colar o procedimento VBA que você copiou antes;
Macro

Macro

  • Agora o seu procedimento VBA já está pronto para ser utilizado;
  • Para aplicar um atalho para ele, retorne á tela do Excel, fechando a janela de programação;
  • Clique no botão Macros;
  • Na janela que segue você verá a macro criada, clique sobre ela e no botão Opções;
  • Nesta tela digite uma letra que servirá como atalho em qualquer lugar do sistema;

Para testar a macro gravada digite CTRL e a letra que você especificou como atalho, desta forma o Excel executará a macro.

30 Comentários

  1. […] do tutorial e se tiverem algum problema podem entrar em contato com o site ou ver o artigo sobre a habilitação da guia desenvolvedor ou gravar macro no Excel que tratam de assuntos relacionados a […]

  2. Sebastião Mariano Obici Filho disse:

    No Excel 2010 a habilitação da aba desenvolvedor deve-se seguir os seguintes passos:

    1.Clique na guia Arquivo.
    2.Em Ajuda, clique em Opções.
    3.Clique em Personalizar a Faixa de Opções.
    4.Em Personalizar a Faixa de Opções, marque a caixa de seleção Desenvolvedor.

    Cumprimentos

  3. […] Para incluir este código VBA você pode utilizar o exemplo do artigo Habilitando a Guia Desenvolvedor e Copiando Procedimentos VBA da internet. […]

  4. MAURICIO disse:

    EU CRIEI UMA MACRO PARA SAIR SEM SALVAR, MAS VIVE DANDO PROBLEMAS, ALGUEM SABE COMO RESOLVER ??
    UTILIZEI:

    THISWORKBOOK.CLOSE (FALSE) (NÃO DEU CERTO)

    PLAN1.RANGE(“A1”).SELECT
    ACTIVEWORKBOOK.CLOSE(FALSE) (NÃO DEU CERTO)

    e mais varias tentativas frustradas de sair sem salvar.

  5. […] Abaixo a Sub que você pode instalar no seu Excel, para fazer com que ela seja global, podendo ser usada a qualquer momento no Excel, você deve salvá-la na pasta pessoal de macros conforme o artigo http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter…. […]

  6. Diego disse:

    Segui exatamente como dito mas não deu certo.

    Tenho um módulo que tem a função =extenso(Número)

    Coloquei este módulo no personal mas não funciona =((

    Como resolvo meu problema?

    Obrigado!

  7. […] isso determine uma planilha em que queira ressaltar os dados e siga o procedimento do artigo HABILITANDO A GUIA DESENVOLVEDOR E COPIANDO PROCEDIMENTOS VBA ntos VBA (SUB) DA INTERNET, inserindo o código […]

  8. […] colocar o procedimento como global você deve seguir os procedimentos em http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter…, depois é só associar a um atalho este comando e você terá a criação automática de […]

  9. […] Os procedimentos abaixo devem ser colocados no arquivo PERSONAL, importante que seja no início do arquivo por causa das variáveis globais que existem. conforme explicado no artigo http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter…. […]

  10. […] que incluam esta macro na  sua pasta pessoal de macros para que possa ser usada quando necessária, pode ser de grande […]

  11. […] 1. Para utilizar os controles de formulário diretamente sobre um documento Excel, em um primeiro momento você deverá habilitar a Guia Desenvolvedor do Excel como explicado no artigo: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter…. […]

  12. […] Agora vamos colocar a barra de rolagem. Para isso clique na guia Desenvolvedor, caso não seja habilitada siga este artigo http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter…. […]

  13. […] primeiro deve incluí-la na sua lista de funções próprias globais, veja como neste artigo: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter… desta forma a função estará sempre disponível no seu […]

  14. […] Com a nossa lista criada, crie as células Colunas e Períodos conforme a formatação. E clique na guia Desenvolvedor, caso não esteja ativa esta guia siga este artigo para habilitá-la antes: Habilitar guia desenvolvedor. […]

  15. […] clique na guia Desenvolvedor, veja aqui como habilitar: Habilitar guia desenvolvedor no Excel, clique no botão Modo Design e insira um Textbox, conforme a imagem e posicione á esquerda das […]

  16. […] click the Developer tab, here’s how to enable: Habilitar guia desenvolvedor no Excel (Portuguese), click the Design Mode button and enter a Textbox as the image and position of the […]

  17. […] primeiro deve incluí-la na sua lista de funções próprias globais, veja como neste artigo: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter… desta forma a função estará sempre disponível no seu […]

  18. […] 2. Habilite a guia Desenvolvedor seguindo estes passos: Habilitar guia desenvolvedor no Excel; […]

  19. […] Veja neste artigo como copiar os procedimentos acima e incluir na sua pasta pessoal de Macros neste artigo: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter… […]

  20. […] Veja neste outro artigo como aplicar este e outros códigos VBA que você buscar na internet: o: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter… […]

  21. […] Veja neste artigo como copiar os procedimentos acima e incluir na sua pasta pessoal de Macros neste artigo: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-inter… […]

  22. […] 5. Abra o Visual Basic, clicando na guia Desenvolvedor->Visual Basic, se não estiver habilitada a aba, veja aqui como habilitar: Habilitar guia desenvolvedor. […]

  23. Luciana disse:

    Boa noite,

    Alguem pode me ajudar o porque minha macro para aqui?

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:=Sheets(NomeST).Cells(5, 2), TableName:=”PivotTable1″, DefaultVersion _
    :=xlPivotTableVersion14

  24. Nuno disse:

    Boa tarde;
    tentei reproduzir o código acima, mas não obtenho retorno de informação, mas deparo com os seguintes problemas:
    1-O resultado que pretende está dentro de uma
    linha de HTML do site A matrícula ‘AA-AA-AA’ foi cancelada.
    Apenas pretendo o resultado que se enconta entre bold foi
    2- a pagina de inserção de formulário é a mesma que retorna os valores, logo o campo do formulário não limpa gerando um loop

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.