MAC OS

Dicas para Macros no Excel.

1) Como mostrar uma mensagem informativa
Utilize na sua macro o comando MsgBox, da seguinte forma:

MsgBox "texto da mensagem"

Pode ser utilizado para avisar que a macro foi concluída, mostrar o resultado da macro, informar se há algum erro na planilha, etc.

2) Executar macro ao abrir a planilha
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.

3) Como inserir uma linha com VBA
Sub adicionarLinha() Rows(2).Insert
End Sub

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

4) Escrever data e hora atuais na 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

5) Como substituir o texto em uma célula
À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

6) Executar uma mesma ação em cada célula selecionada
À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