Vba NO EXCEL

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.

'<alteracao>

Sub LerArquivoTexto() On Error GoTo TratarErro 'Declaração das variáveis Dim lsCaminho As String Dim llArquivo As Long Dim llLinha As String Dim lQtde As Long Dim lContador As Long Dim llPlanilhas As Long 'Camihho do arquivo lsCaminho = InputBox("Digite o caminho do arquivo:", "Caminho do aruivo...", ActName) 'Quantidade de linhas lQtde = InputBox("Digite a cada quantas linhas separar:", "Qtde de linhas...", ActName) 'Identifica se o arquivo existe If Dir(lsCaminho) <> "" Then llArquivo = FreeFile Open lsCaminho For Input As #llArquivo lContador = 1 llPlanilhas = 1 'Lê o arquivo e separa em planilhas 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 '</alteracao>

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

Related Posts

Copiar e colar somente texto e formatação

Macro para copiar e colar somente texto e formatado

DESBLOQUEAR PLANILHA EXCEL COM VBA

DESBLOQUEAR PLANILHA EXCEL COM VBA

Atualizar todas as tabelas dinâmicas no Excel com VBA

Atualizar todas as tabelas dinâmicas no Excel com VBA

Importar NFE 2.0

Planilha para importar NFE - Excel VBA

Excel Specialist MOS 77-882

Certificação Microsoft Specialist Excel 2010 – MOS 77-882

Preencher formulário da web via código VBA Excel

Preencher formulário da web via código VBA Excel

Desproteger Todas as Planilhas de um Documento Excel

Desproteger Todas as Planilhas de um Documento Excel

Splash Screen com Gif Animado no Excel (Tela de Abertura)

Splash Screen com Gif Animado no Excel (Tela de Abertura)

Formatar tabela dinâmica Excel automaticamente

Formatar tabela dinâmica Excel automaticamente

Desproteger vários documentos Excel

Abrir vários arquivos com a mesma senha Excel

Planilha Controle de frotas de veículos 2.0 1

Planilha Excel de controle de manutenção de veículos 2.0

Formulário

LOCALIZAR AVANÇADO

Load more posts

Compartilhe isso:

Facebook2GoogleLinkedInTwitterRedditStumbleUponImprimirEmail

Curtir isso:

Quer aprender Excel Avançado ou Excel VBA? Conheça os nossos cursos, os melhores do mercado a preços baixíssimos e garantia de aprendizado. Cursos Guia do Excel.

excel vba forumlogo

SISTEMA DE GESTÃO CONTA AZUL

O