04/10/13 O Melhor do Excel: 10 macros muito úteis.

www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 1/5

Home Consulte Também Consulte Também Vídeos Funções Gráficos Macros VBA Quem Somos

OS MELHORES VÍDEOS

SEGUNDA-FEIRA, 18 DE FEVEREIRO DE 2013

10 macros muito úteis.

Lista com 10 macros pequenas mas muito úteis, que você pode utilizar e modificar para

automatizar pequenas ações nas suas planilhas. Os trechos em vermelho mostram o que

precisa ser modificado para adequar a macro à sua necessidade específica.

O Melhor do Excel

Curtir

7.720 pessoas curtiram O Melhor do Excel.

Plug-in social do Facebook

O Melhor do Excel

http://www.escolaexcel.co

m.br/2013/08/fechar-

planilha-de-forma-automa

tica.html

há 16 horas

O Melhor do Excel:

Fechar planilha de

forma automatica.

w w w .escolaexcel.com.br

O Melhor do Excel

http://www.escolaexcel.co

04/10/13 O Melhor do Excel: 10 macros muito úteis.

www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 2/5

Utilize na sua macro o comando MsgBox, da seguinte forma:

MsgBox "texto da mensagem"

Pode ser utilizado para av isar que a macro foi concluída, mostrar o resultado da macro,

informar se há algum erro na planilha, etc.

Para isso, basta criar uma macro chamada Auto_Open()

Exemplo:

Sub Auto_Open()

MsgBox "Para ver dicas de Excel, acesse www.planilhasexcel.com"

End Sub

Nesse exemplo, ao abrir a planilha será exibida uma mensagem. Vale lembrar que, para

executar a macro, as macros deverão estar habilitadas.

Sub adicionarLinha()

Rows(2).Insert

End Sub

O exemplo acima insere uma nova linha na segunda linha da planilha

Esse exemplo escreve a data e hora atuais na célula A1. Veja também a função AGORA

Sub escreverDataEHora()

Range("A1") = Now

End Sub

Às vezes é necessário substituir um trecho de um texto por um outro trecho. Por exemplo,

na frase "Carro Número 1", podemos querer substituir "Carro" por "Automóvel", ficando

"Automóvel Número 1". Para isso, podemos utilizar o comando Replace. Veja um exemplo

que substitui todos os underlines (_) do texto da célula A1 por um espaço em branco. O

resultado será escrito na célula A2.

Sub removerUnderline()

Range("A2") = Replace(Range("A1"), "_", " ")

End Sub

Às vezes você precisa executar uma ação em todas as células que foram selecionadas pelo

usuário. Por exemplo, você pode querer contar quantas das células começam com a letra A,

ou apagar as células com valor menor que 10, passar o texto para maiúsculas, etc. O

exemplo abaixo mostra uma mensagem com o texto de cada uma das células selecionadas:

Sub fazerAlgoACadaCelula()

For Each cell In Selection.Cells

MsgBox cell

Next

End Sub

Se você irá fazer uma mesma ação em todas as células selecionadas, e essa ação não precisa

ser feita uma de cada vez, existe uma forma mais eficiente do que a mostrada acima. Esta

forma consiste em alterar as propriedades das células selecionadas (Selection.Cells)

mesma forma que faríamos com cada célula indiv idualmente. O exemplo abaixo escreve "ok"

1) Como mostrar uma mensagem informativa

2) Executar macro ao abrir a planilha

3) Como inserir uma linha com VBA

4) Escrever data e hora atuais na planilha

5) Como substituir o texto em uma célula

6) Executar uma mesma ação em cada célula selecionada

7) Executar uma mesma ação em TODAS as células selecionadas

Aprenda a calcular datas usando fórmulas noExcel 2007 / 2010

Lição 1: o que as datas significam para oExcel Com o que uma data se parece paravocê. Com o que uma data se parece para oExcel. ...

O que é VBA?

Visual Basic for Applications. O Visual Basicfor Applications (VBA) é uma implementaçãodo Visual incorporada em todos osprogramas do Mi...

Cadastro de Clientes Plus 1.0

Cadastro de Clientes Plus1.0 é um poderoso softwaredesenvolvido em Excel e podeser adaptado a qualquernecessidade do cliente, co...

Calcular idade no Excel

Com o Excel, é possívelcalcular a idade de umapessoa considerando operíodo entre duas datas 1ºSelecione a célula B3 e digite a

se...

Gráfico de Gantt

Um pouco de História Odiagrama de Gantt (ou mapade Gantt) é um gráfico usadopara ilustrar o avanço dasdiferentes etapas de um

projeto....

Função Concatenar.

DESCRIÇÃO Agrupa duas oumais cadeias de caracteresem uma única cadeia decaracteres. Você também podeusar o operador de cálculo de

...

Excluir Linhas Em Branco

"Olá Galera! Tenho umaplanilha enorme, na qual devoexcluir todas as linhas embranco que estão alternadas!Será que existe algum co...

Boletim Escolar.

Neste exemplo vamos criar 4 macrose consequentemente quatro botões para

TOP POST

04/10/13 O Melhor do Excel: 10 macros muito úteis.

www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 3/5

em todas as células, e em seguida muda a cor das células para um tom de verde.

Sub fazerAlgoATodasAsCelulas()

Selection.Cells.Value = "ok"

Selection.Cells.Font.Color = RGB(10, 200, 10)

End Sub

É recomendável verificar se uma célula possui uma fórmula, antes de fazer alguma

modificação na célula. Para isso você pode utilizar o comando HasFormula. Veja um

exemplo:

Sub verificarSeTemFormula()

If Range("A1").HasFormula = True Then

MsgBox "sim"

Else

MsgBox "não"

End If

End Sub

Você sempre tem que copiar um pedaço de uma planilha para outra planilha. Copie a macro

abaixo.

Sub copiar()

Sheets("Plan1").Range("A1:A3").Copy

Destination:=Sheets("Plan2").Range("A1")

End Sub

Esse exemplo copia as células A1, A2 e A3 (A1:A3) da planilha Plan1 para a célula A1 da

planilha Plan2.

Substitua "Plan1" pelo nome da planilha que contém as células que você quer copiar.

Substitua "A1:A3" pelas células que você quer copiar. Por exemplo, "B5" copia apenas a

célula B5, "A1:E1" copia as células de A1 até E1.

Substitua "Plan2" pelo nome da planilha que irá receber as células copiadas

Substitua "A1" pela célula na qual as células serão copiadas.

Cada comando executado na sua macro é exibido na tela do computador. Como a macro é

executada muito rapidamente, não dá pra gente realmente ver o que está acontecendo, mas

eventualmente a tela fica piscando de forma estranha. Isso acontece, por exemplo, quando

trocamos de uma planilha pra outra. Para ev itar isso, e de quebrar deixar suas macros um

pouco mais rápidas, você pode ev itar a atualização da tela no começo da tela usando a

propriedade Application.ScreenUpdating. No entanto, é preciso ter o cuido de reativar

a atualização da tela ao final da macro.

Veja um exemplo que faz a tela piscar:

Sub trocarPlanilha()

Sheets(2).Select

Sheets(1).Select

Sheets(2).Select

Sheets(1).Select

End Sub

Agora, utilizando o comando Application.ScreenUpdating.

Sub trocarPlanilhaSemPiscar()

Application.ScreenUpdating = False

Sheets(2).Select

Sheets(1).Select

Sheets(2).Select

Sheets(1).Select

8) Como saber se uma célula possui uma fórmula

9) Como copiar células de uma planilha para outra

10) Como evitar que a tela pisque durante a execução da macro

associar as macros gravadasna planilha para mostrar osalunos que...

Como Criar um Gráfico noExcel 2007.

Os gráficos tornam os dadosvisuais . Em vez de analisarcolunas de números em umaplanilha, é possível ver

instantaneamente o que os dado...

Congelar ou descongelar linhas e colunas.

Às vezes, navegar por uma planilha grande ecomplexa, com milhares de células, pode serum desafio. O problema é que, conforme vocêrola pa...

04/10/13 O Melhor do Excel: 10 macros muito úteis.

www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 4/5

Postagem mais recente Postagem mais antigaInício

Assinar: Postar comentários (Atom)

Leituras: Postado por Rodrigo Aiosa às 04:13

Reações: engraçado (0) interessante (0) legal (0)

Botão Minimizar,

Maximizar e Rest.

Tamanho no

Formulário.

Excel - Ponteiros

do Mouse no Excel

2010

Descrição de

matrizes em

procedimentos

Sub no VBA.

Declaração de

Variável.

Microsoft Excel –

Criando um gráfico

condicional

Application.ScreenUpdating = True

End Sub

Resumindo, utilize Application.ScreenUpdating = False no começo da macro,

e Application.ScreenUpdating = True no final da macro.

Curtir 8 pessoas curtiram isso. Seja o primeiro entre seus amigos.

Poderá também gostar de:

+1 Recomende isto no Google

Digite seu comentário...

Comentar como: Conta do Google

Publicar

Visualizar

Criar um link

Nenhum comentário:

Postar um comentário

Links para esta postagem

Passagem AéreaBaratavoeazul.com.br/Pas…

Compre Agora APartir de R$99,00! Em10x Sem Juros.Promoção da Azul.

Planilhas Excel Prontaswww.luz.vc/modelo-planilhas

Planilhas de Excel Prontas com Vídeo Tutoriais. Cadastre-se Agora!

Developed by Rodrigo Aiosa

04/10/13 O Melhor do Excel: 10 macros muito úteis.

www.escolaexcel.com.br/2013/02/10-macros-muito-uteis.html 5/5

Copyright © 2010-2013. All rights reserved.