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

30
Gravar Macro
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.

Marcos Rieper
Casado, 35 anos, analista de sistemas e administrador de empresas. Criou o Guia do Excel em 2010 com o objetivo de auxiliar as pessoas no uso da ferramenta indispensável em qualquer escritório do mundo.

30 COMENTÁRIOS

  1. 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

  2. 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.

  3. 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!

  4. 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

  5. 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

Please enter your comment!
Please enter your name here