1 – Criar uma nova planilha.

Sub CriarNovaPlanilha()

'Criar uma nova planilha

Dim novaPlanilha As Worksheet

Set novaPlanilha =
[Link](After:=[Link](ThisWorkbook.
[Link]))

[Link] = "Nova Planilha"

End Sub

2 – Excluir uma planilha existente.

Sub ExcluirPlanilhaExistente()

'Excluir uma planilha existente

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja excluir

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

[Link] = False ' Ignora o alerta de confirmação

de exclusão

[Link]

[Link] = True ' Retoma o alerta de

confirmação de exclusão

Else
 MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma
mensagem de erro caso a planilha não exista

End If

End Sub

3 – Copiar uma planilha existente.

Sub CopiarPlanilhaExistente()

'Copiar uma planilha existente

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja copiar

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

[Link]
After:=[Link]([Link]) ' Copia a
planilha para o final da pasta de trabalho

' É possível definir outro local utilizando a propriedade "Before"

ou "After"

' Exemplo: [Link] Before:=[Link]("Nome

da Outra Planilha")

Dim novaPlanilha As Worksheet

Set novaPlanilha = ActiveSheet

[Link] = "Cópia de " & nomePlanilha ' Define o

nome da nova planilha como "Cópia de {nome da planilha original}"
 Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

4 – Mover uma planilha para uma nova posição.

Sub MoverPlanilha()

'Mover uma planilha para uma nova posição

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja mover

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

Dim posicao As Long

posicao = 1 ' Substitua "1" pela posição desejada (exemplo: 2

para mover para a segunda posição)

If posicao > [Link] Then

posicao = [Link] ' Caso a posição

desejada seja maior que a quantidade de planilhas, move para o final

End If

[Link] After:=[Link](posicao - 1) ' Move a

planilha para a posição desejada
 ' É possível definir outra planilha de referência utilizando a
propriedade "Before" ou "After"

' Exemplo: [Link] Before:=[Link]("Nome

da Outra Planilha")

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

5 – Renomear uma planilha existente.

Sub RenomearPlanilha()

'Renomear uma planilha existente

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja renomear

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

Dim novoNome As String

novoNome = "Novo Nome da Planilha" ' Substitua "Novo Nome

da Planilha" pelo nome desejado

[Link] = novoNome ' Renomeia a planilha

 ' Também é possível utilizar a variável "InputBox" para permitir
que o usuário digite o novo nome

' Exemplo: novoNome = InputBox("Digite o novo nome da

planilha", "Renomear planilha")

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

6 – Adicionar ou remover colunas.

Sub AdicionarOuRemoverColunas()

'Adicionar ou remover colunas em uma planilha existente

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja adicionar ou remover colunas

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

Dim colunaInicial As Long

colunaInicial = 1 ' Substitua "1" pela coluna inicial desejada

Dim qtdeColunas As Long

qtdeColunas = 2 ' Substitua "2" pela quantidade de colunas que

deseja adicionar (negativo para remover)
 If colunaInicial + qtdeColunas < 1 Then

MsgBox "Não é possível remover todas as colunas da

planilha.", vbCritical ' Exibe uma mensagem de erro caso tente
remover todas as colunas

Exit Sub

End If

[Link](colunaInicial).Resize(, qtdeColunas).Insert
Shift:=xlToRight ' Adiciona ou remove colunas

' O parâmetro "Shift" pode ser utilizado para controlar como as

outras colunas serão deslocadas

' Exemplo: [Link](colunaInicial).Resize(,

qtdeColunas).Insert Shift:=xlToLeft

' Caso não queira remover colunas, basta alterar o valor de

"qtdeColunas" para zero ou um número positivo

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

7 – Adicionar ou remover linhas.

Sub AdicionarOuRemoverLinhas()

'Adicionar ou remover linhas em uma planilha existente

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja adicionar ou remover linhas

Dim planilha As Worksheet

Set planilha = Nothing

 On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

Dim linhaInicial As Long

linhaInicial = 1 ' Substitua "1" pela linha inicial desejada

Dim qtdeLinhas As Long

qtdeLinhas = 2 ' Substitua "2" pela quantidade de linhas que

deseja adicionar (negativo para remover)

If linhaInicial + qtdeLinhas < 1 Then

MsgBox "Não é possível remover todas as linhas da planilha.",

vbCritical ' Exibe uma mensagem de erro caso tente remover todas as
linhas

Exit Sub

End If

[Link](linhaInicial).Resize(qtdeLinhas).Insert
Shift:=xlDown ' Adiciona ou remove linhas

' O parâmetro "Shift" pode ser utilizado para controlar como as

outras linhas serão deslocadas

' Exemplo: [Link](linhaInicial).Resize(qtdeLinhas).Insert

Shift:=xlUp

' Caso não queira remover linhas, basta alterar o valor de

"qtdeLinhas" para zero ou um número positivo

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista
 End If

End Sub

8 – Ajustar o tamanho das colunas automaticamente.

Sub AjustarTamanhoColunas()

'Ajustar automaticamente o tamanho das colunas em uma planilha

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja ajustar o tamanho das colunas

Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

[Link] ' Ajusta automaticamente o tamanho

das colunas da planilha

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

9 – Ajustar o tamanho das linhas automaticamente.

Sub AjustarTamanhoLinhas()

'Ajustar automaticamente o tamanho das linhas em uma planilha

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha que deseja ajustar o tamanho das linhas
 Dim planilha As Worksheet

Set planilha = Nothing

On Error Resume Next ' Ignora erros caso a planilha não exista

Set planilha = [Link](nomePlanilha)

On Error GoTo 0 ' Retoma a captura de erros

If Not planilha Is Nothing Then

[Link] ' Ajusta automaticamente o tamanho das

linhas da planilha

Else

MsgBox "Planilha não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a planilha não exista

End If

End Sub

10 – Inserir um comentário em uma célula.

Sub InserirComentario()

'Inserir um comentário em uma célula

Dim nomePlanilha As String

nomePlanilha = "Nome da Planilha" ' Substitua "Nome da Planilha"

pelo nome da planilha onde está a célula

Dim celula As Range

Set celula = Nothing

On Error Resume Next ' Ignora erros caso a célula não exista

Set celula = [Link](nomePlanilha).Range("A1")

' Substitua "A1" pela referência da célula onde deseja inserir o
comentário

On Error GoTo 0 ' Retoma a captura de erros

 If Not celula Is Nothing Then

[Link] ' Limpa qualquer comentário existente na

célula

[Link] "Este é um comentário de exemplo." ' Insere

um novo comentário na célula

Else

MsgBox "Célula não encontrada.", vbCritical ' Exibe uma

mensagem de erro caso a célula não exista

End If

End Sub

11 – Remover um comentário em uma célula.

Sub RemoverComentario()

If Not [Link] Is Nothing Then

[Link]

End If

End Sub

12 – Proteger uma planilha com senha.

Sub ProtegerPlanilha()

Dim senha As String

senha = InputBox("Digite a senha para proteger a planilha:")

If senha <> "" Then

[Link] Password:=senha

End If

End Sub

13 – Desproteger uma planilha com senha.

Sub DesprotegerPlanilha()

Dim senha As String

senha = InputBox("Digite a senha para desproteger a planilha:")

If senha <> "" Then

 [Link] Password:=senha

End If

End Sub

14 – Copiar células de uma planilha para outra.

Sub CopiarCelulas()

' Define as células que serão copiadas

Dim planilhaOrigem As Worksheet

Dim celulaOrigem As Range

Set planilhaOrigem = Worksheets("Planilha1") ' nome da planilha

de origem

Set celulaOrigem = [Link]("A1:C5") ' intervalo de

células que serão copiadas

' Define a planilha de destino e a célula de destino

Dim planilhaDestino As Worksheet

Dim celulaDestino As Range

Set planilhaDestino = Worksheets("Planilha2") ' nome da planilha

de destino

Set celulaDestino = [Link]("A1") ' célula de destino

' Copia as células para a planilha de destino

[Link] celulaDestino

End Sub

15 – Mover células de uma planilha para outra.

Sub MoverCelulas()

' Define as células que serão movidas

Dim planilhaOrigem As Worksheet

Dim celulaOrigem As Range

Set planilhaOrigem = Worksheets("Planilha1") ' nome da planilha

de origem
 Set celulaOrigem = [Link]("A1:C5") ' intervalo de
células que serão movidas

' Define a planilha de destino e a célula de destino

Dim planilhaDestino As Worksheet

Dim celulaDestino As Range

Set planilhaDestino = Worksheets("Planilha2") ' nome da planilha

de destino

Set celulaDestino = [Link]("A1") ' célula de destino

' Move as células para a planilha de destino

[Link] celulaDestino

End Sub

16 – Copiar uma fórmula para uma célula em branco abaixo.

Sub CopiarFormula()

' Seleciona a célula com a fórmula a ser copiada

Dim celulaOrigem As Range

Set celulaOrigem = ActiveCell ' célula selecionada

' Copia a fórmula para a célula abaixo

[Link] [Link](1, 0)

End Sub

17 – Copiar uma fórmula para uma célula em branco ao lado.

Sub CopiarFormula()

' Seleciona a célula com a fórmula a ser copiada

Dim celulaOrigem As Range

Set celulaOrigem = ActiveCell ' célula selecionada

' Copia a fórmula para a célula à direita

[Link] [Link](0, 1)
End Sub

18 – Copiar uma fórmula para uma célula em branco acima.

Sub CopiarFormula()

' Seleciona a célula com a fórmula a ser copiada

Dim celulaOrigem As Range

Set celulaOrigem = ActiveCell ' célula selecionada

' Copia a fórmula para a célula acima

[Link] [Link](-1, 0)

End Sub

19 – Copiar uma fórmula para uma célula em branco à direita.

Sub CopiarFormula()

' Seleciona a célula com a fórmula a ser copiada

Dim celulaOrigem As Range

Set celulaOrigem = ActiveCell ' célula selecionada

' Copia a fórmula para a célula à direita

[Link] [Link](0, 1)

End Sub

20 – Adicionar um gráfico à planilha.

Sub AdicionarGrafico()

' Define as variáveis

Dim tabela As Range

Dim grafico As Chart

' Seleciona a tabela de dados

Set tabela = Range("A1:C10") ' altere para a sua tabela de dados

' Cria um novo gráfico

 Set grafico = [Link].AddChart2(251,
xlColumnClustered).Chart

' Define as propriedades do gráfico

With grafico

.SetSourceData tabela

.HasTitle = True

.[Link] = "Título do gráfico"

.Axes(xlCategory).HasTitle = True

.Axes(xlCategory).[Link] = "Título do eixo X"

.Axes(xlValue).HasTitle = True

.Axes(xlValue).[Link] = "Título do eixo Y"

End With

End Sub
21 – Atualizar um gráfico existente na planilha
Sub AtualizarGrafico()

Dim Grafico As ChartObject

'Defina o gráfico a ser atualizado

Set Grafico = [Link]("Nome do Gráfico")

'Atualize o gráfico

[Link]

End Sub

22 – Remover um gráfico da planilha

Sub RemoverGrafico()

Dim Grafico As ChartObject

'Defina o gráfico a ser removido

Set Grafico = [Link]("Nome do Gráfico")

'Remova o gráfico

[Link]

End Sub

23 – Definir uma área de impressão

Sub DefinirAreaDeImpressao()

'Defina a planilha que contém a área de impressão

Dim planilha As Worksheet

Set planilha = [Link]("Nome da Planilha")

 'Defina a área de impressão

Dim areaDeImpressao As Range

Set areaDeImpressao = [Link]("A1:F20") 'Substitua pelos

endereços da célula desejados

'Defina a área de impressão na planilha

[Link] = [Link]

End Sub

24 – Imprimir a planilha

Sub ImprimirPlanilha()

'Defina a planilha a ser impressa

Dim planilha As Worksheet

Set planilha = [Link]("Nome da Planilha")

'Defina a área de impressão

Dim areaDeImpressao As Range

Set areaDeImpressao = [Link] 'Usa toda a planilha

'Defina as configurações de impressão

With [Link]

.Orientation = xlPortrait 'Retrato

.FitToPagesWide = 1 'Uma página de largura

.FitToPagesTall = False 'Número de páginas de altura

End With

'Imprima a planilha
 [Link]

End Sub

25 – Adicionar ou remover bordas em torno das células

Sub AdicionarBordas()

'Defina a seleção de células que você deseja adicionar bordas

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Adicione as bordas

[Link] xlContinuous, xlThin, RGB(0, 0, 0) 'Borda

contínua e fina em preto

End Sub

Sub RemoverBordas()

'Defina a seleção de células que você deseja remover as bordas

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Remova as bordas

[Link] = xlNone 'Sem bordas

End Sub

26 – Alterar a cor das células

Sub AlterarCorDasCelulas()

'Defina a seleção de células que você deseja alterar a cor

 Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Altere a cor das células para vermelho

[Link] = RGB(255, 0, 0) 'Vermelho

End Sub

27 – Alterar a fonte das células

Sub AlterarFonteDasCelulas()

'Defina a seleção de células que você deseja alterar a fonte

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Altere a fonte das células para Arial e tamanho 12

[Link] = "Arial"

[Link] = 12

End Sub

28 – Alterar o tamanho da fonte das células

Sub AlterarTamanhoDaFonteDasCelulas()

'Defina a seleção de células que você deseja alterar o tamanho da

fonte

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Altere o tamanho da fonte das células para 14

[Link] = 14
End Sub

29 – Adicionar ou remover negrito nas células

Sub AdicionarNegrito()

'Defina a seleção de células que você deseja adicionar negrito

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Adicione o negrito nas células

[Link] = True

End Sub

Sub RemoverNegrito()

'Defina a seleção de células que você deseja remover o negrito

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Remova o negrito das células

[Link] = False

End Sub

30 – Adicionar ou remover itálico nas células

Sub AdicionarItalico()

'Defina a seleção de células que você deseja adicionar itálico

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

 'Adicione o estilo itálico nas células

[Link] = True

End Sub

Sub RemoverItalico()

'Defina a seleção de células que você deseja remover o itálico

Dim selecao As Range

Set selecao = Selection 'Seleção atual no Excel

'Remova o estilo itálico das células

[Link] = False

End Sub

31 – Adicionar ou remover sublinhado nas células

Sub AdicionarSublinhado()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = xlUnderlineStyleSingle

'Adiciona sublinhado simples; use xlUnderlineStyleDouble para

sublinhado duplo

End Sub

Sub RemoverSublinhado()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = False 'Remove o sublinhado

End Sub

32 – Adicionar ou remover texto tachado nas células

Sub AdicionarTextoTachado()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = True

End Sub

Sub RemoverTextoTachado()
'Seleciona a célula ativa ou o intervalo selecionado
[Link] = False
End Sub

33 – Adicionar ou remover fonte em caixa alta nas células

Sub RemoverCaixaAlta()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = LCase([Link])

End Sub

34 – Adicionar ou remover fonte em caixa baixa nas células

Sub AdicionarCaixaBaixa()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = LCase([Link])

End Sub

Sub RemoverCaixaBaixa()

'Seleciona a célula ativa ou o intervalo selecionado

[Link] = UCase([Link])

End Sub

35 – Adicionar uma data atual em uma célula

Sub AdicionarDataAtual()

'Seleciona a célula ativa

[Link] = Date 'Insere a data atual na célula ativa

End Sub

36 – Adicionar uma hora atual em uma célula

Sub AdicionarHoraAtual()

'Seleciona a célula ativa

 [Link] = Time 'Insere a hora atual na célula ativa

End Sub

37 – Somar uma coluna ou linha de números

Sub SomarColuna()

Dim Soma As Double 'Declara uma variável para armazenar a soma

Soma = [Link](Columns("A"))
'Substitua "A" pela letra da coluna que deseja somar

MsgBox "A soma da coluna é: " & Soma 'Exibe a soma em uma
mensagem de caixa de diálogo

End Sub

Sub SomarLinha()
Dim Soma As Double 'Declara uma variável para armazenar a soma
Soma = [Link](Rows("1")) 'Substitua "1"
pelo número da linha que deseja somar
MsgBox "A soma da linha é: " & Soma 'Exibe a soma em uma
mensagem de caixa de diálogo
End Sub

38 – Subtrair uma coluna ou linha de números

Sub SubtrairColuna()

Dim Resultado As Double 'Declara uma variável para armazenar o

resultado

Resultado = [Link](Columns("A")) -
[Link](Columns("B")) 'Substitua "A" e
"B" pelas letras das colunas que deseja subtrair

MsgBox "O resultado da subtração é: " & Resultado 'Exibe o

resultado em uma mensagem de caixa de diálogo

End Sub

39 – Multiplicar uma coluna ou linha de números

Sub MultiplicarColuna()

Dim Resultado As Double 'Declara uma variável para armazenar o

resultado

Resultado = [Link](Columns("A"))
'Substitua "A" pela letra da coluna que deseja multiplicar
 MsgBox "O resultado da multiplicação é: " & Resultado 'Exibe o
resultado em uma mensagem de caixa de diálogo

End Sub
40 – Dividir uma coluna ou linha de números
Sub DividirColuna()
Dim Resultado As Double 'Declara uma variável para armazenar o
resultado
Resultado = [Link](Columns("A"),
Columns("B")) 'Substitua "A" e "B" pelas letras das colunas que deseja
dividir
MsgBox "O resultado da divisão é: " & Resultado 'Exibe o resultado
em uma mensagem de caixa de diálogo
End Sub

41 – Arredondar um número para cima

Sub ArredondarParaCima()

Dim Numero As Double 'Declara uma variável para armazenar o

número

Dim Resultado As Double 'Declara uma variável para armazenar o

resultado

Numero = 12.345 'Substitua pelo número que deseja arredondar

Resultado = [Link](Numero, 2)
'Substitua "2" pelo número de casas decimais que deseja arredondar

MsgBox "O número arredondado para cima é: "

42 – Arredondar um número para baixo

Sub ArredondarParaBaixo()

Dim Numero As Double 'Declara uma variável para armazenar o

número

Dim Resultado As Double 'Declara uma variável para armazenar o

resultado

Numero = 12.345 'Substitua pelo número que deseja arredondar

Resultado = [Link](Numero,
2) 'Substitua "2" pelo número de casas decimais que deseja
arredondar

MsgBox "O número arredondado para baixo é: " & Resultado 'Exibe
o resultado em uma mensagem de caixa de diálogo

End Sub

43 – Arredondar um número para o número inteiro mais próximo:

' Define uma variável do tipo Double

Dim x As Double

' Define um valor para a variável

x = 1,5

' Arredonda o valor da variável e exibe em uma caixa de mensagem

MsgBox Round(x)

44 – Encontrar o valor máximo em uma coluna ou linha:

' Define uma variável do tipo Range

Dim rng As Range

' Define um intervalo de células para a variável

Set rng = Range("A1:A10")

' Usa a função Max para encontrar o valor máximo no intervalo e

exibe em uma caixa de mensagem

MsgBox [Link](rng)

45 – Encontrar o valor mínimo em uma coluna ou linha:

' Define uma variável do tipo Range

Dim rng As Range

' Define um intervalo de células para a variável

Set rng = Range("A1:A10")

' Usa a função Min para encontrar o valor mínimo no intervalo e exibe
em uma caixa de mensagem

MsgBox [Link](rng)

46 – Calcular a média de uma coluna ou linha de números:

' Define uma variável do tipo Range

Dim rng As Range

' Define um intervalo de células para a variável

Set rng = Range("A1:A10")

' Usa a função Average para calcular a média dos valores no intervalo
e exibe em uma caixa de mensagem

MsgBox [Link](rng)

47 – Calcular a mediana de uma coluna ou linha de números:

' Define uma variável do tipo Range

Dim rng As Range

' Define um intervalo de células para a variável

Set rng = Range("A1:A10")

' Usa a função Median para calcular a mediana dos valores no

intervalo e exibe em uma caixa de mensagem

MsgBox [Link](rng)

48 – Calcular o desvio padrão de uma coluna ou linha de números:

' Define uma variável do tipo Range

Dim rng As Range

' Define um intervalo de células para a variável

Set rng = Range("A1:A10")

' Usa a função StDev para calcular o desvio padrão dos valores no
intervalo e exibe em uma caixa de mensagem

MsgBox [Link](rng)

49 – Ordenar uma coluna de dados em ordem crescente:

' Ordena as células na coluna A em ordem crescente e exibe os

resultados na planilha
Range("A1:A10").Sort Key1:=Range("A1"), _

Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom

50 – Ordenar uma coluna de dados em ordem decrescente

' Ordena as células na coluna A em ordem decrescente e exibe os

resultados na planilha

Range("A1:A10").Sort Key1:=Range("A1"), _

Order1:=xlDescending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom

51 – Concatenar duas ou mais células

' Define uma variável do tipo String e concatena os valores das

células A1, B1 e C1 na variável str

Dim str As String

str = Range("A1").Value & Range("B1").Value & Range("C1").Value

' Insere o valor da variável str na célula D1 da planilha ativa

Range("D1").Value = str

52 – Separar o conteúdo de uma célula em várias células

Sub SepararConteudo()
'Seleciona a célula com o conteúdo que deseja separar
Range("A1").Select

'Usa a função Texto para Colunas para separar o conteúdo em células

diferentes

[Link] Destination:=Range("A1"),
DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _

Comma:=True, Space:=False, Other:=False, _

OtherChar:=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), _

Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True

End Sub

53 – Adicionar um cabeçalho à planilha

[Link] = "Meu Cabeçalho"

54 – Adicionar um rodapé à planilha

Sub AdicionarRodape()

'Definir o conteúdo do rodapé

Dim conteudoRodape As String

conteudoRodape = "Texto do rodapé"

'Definir a posição do rodapé (pode ser xlFooterMarginLeft,

xlFooterMarginCenter ou xlFooterMarginRight)

Dim posicaoRodape As XlHAlign

posicaoRodape = xlFooterMarginCenter

'Adicionar o rodapé à planilha

[Link] = conteudoRodape

[Link] = posicaoRodape

End Sub

55 – Copiar uma célula para várias células adjacentes

Sub CopiarCelulaParaCelsAdjacentes()

'Seleciona a célula que contém o conteúdo a ser copiado

Range("A1").Select

'Define o número de células adjacentes que deseja preencher com

o conteúdo copiado

Dim numCelulas As Integer

numCelulas = 5

'Usa a função AutoFill para copiar o conteúdo para as células

adjacentes
 [Link] Destination:=Range("A1:A" & numCelulas),
Type:=xlFillDefault

End Sub

56 – Alterar o tipo de letra em uma célula

Sub AlterarTipoDeLetra()

'Seleciona a célula onde deseja alterar o tipo de letra

Range("A1").Select

'Define o novo tipo de letra que deseja usar (por exemplo, Arial)

Dim novoTipoDeLetra As String

novoTipoDeLetra = "Arial"

'Altera o tipo de letra da célula selecionada para o novo tipo de

letra definido

[Link] = novoTipoDeLetra

End Sub

57 – Ordenar dados em uma tabela por uma ou várias colunas, em

ordem crescente ou decrescente

Sub OrdenarTabela()

'Seleciona a tabela que deseja ordenar

Dim minhaTabela As ListObject

Set minhaTabela = [Link]("MinhaTabela")

'Seleciona a coluna que deseja usar para ordenar os dados

Dim colunaParaOrdenar As Range

Set colunaParaOrdenar = [Link]("Nome").Range

'Ordena os dados na tabela pela coluna selecionada em ordem

crescente

[Link]
 [Link] Key:=colunaParaOrdenar, _

SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal

With [Link]

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

Para ordenar os dados em ordem decrescente, basta alterar o

parâmetro “Order” de “xlAscending” para “xlDescending”:

[Link] Key:=colunaParaOrdenar, _

SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal

58 – Adicionar um hyperlink a uma célula

Sub AdicionarHyperlink()

'Seleciona a célula onde deseja adicionar o hyperlink

Dim minhaCelula As Range

Set minhaCelula = [Link]("A1")

'Adiciona o hyperlink à célula selecionada

[Link] Anchor:=minhaCelula, _

Address:="[Link] TextToDisplay:="Texto
do Link"

End Sub

59 – Remover um hyperlink de uma célula

Sub RemoverHyperlink()

'Seleciona a célula onde deseja remover o hyperlink

 Dim minhaCelula As Range

Set minhaCelula = [Link]("A1")

'Remove o hyperlink da célula selecionada

[Link]

End Sub
60 – Proteger células específicas da edição
Sub ProtegerCelulas()

'Seleciona as células que deseja proteger

Dim celulaProtegida As Range

Set celulaProtegida = [Link]("A1")

'Protege a planilha, com exceção da célula A2

[Link] DrawingObjects:=True, Contents:=True,

Scenarios:=True, _

AllowFormattingCells:=True, AllowFormattingColumns:=True, _

AllowFormattingRows:=True, AllowInsertingColumns:=True, _

AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _

AllowDeletingColumns:=True, AllowDeletingRows:=True, _

AllowSorting:=True, AllowFiltering:=True, _

UserInterfaceOnly:=True

[Link] = True

'Desprotege a célula A2

[Link]("A2").Locked = False

End Sub

61 – Desproteger células específicas da edição

Sub DesprotegerCelula()

'Seleciona a célula que deseja desproteger

Dim celulaDesprotegida As Range

Set celulaDesprotegida = [Link]("A1")

'Desprotege a célula selecionada

[Link] = False

End Sub

62 – Adicionar uma mensagem de alerta em uma célula

Sub AdicionarMensagemDeAlerta()

'Seleciona a célula que deseja adicionar a mensagem de alerta

Dim celulaComMensagem As Range

Set celulaComMensagem = [Link]("A1")

'Define a mensagem de alerta

Dim mensagem As String

mensagem = "Digite um valor válido."

'Adiciona a mensagem de alerta à célula selecionada

With [Link]

.Delete 'Remove qualquer validação existente na célula

.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:="0", Formula2:="9999"

'Define a nova validação

.InputMessage = mensagem 'Define a mensagem de alerta

End With

End Sub

63 – Adicionar uma mensagem de erro em uma célula

Sub AdicionarMensagemDeErro()

'Seleciona a célula que deseja adicionar a mensagem de erro

Dim celulaComMensagem As Range

Set celulaComMensagem = [Link]("A1")

'Define a mensagem de erro

Dim mensagem As String

mensagem = "Digite um valor válido."

'Adiciona a mensagem de erro à célula selecionada

 With [Link]

.Delete 'Remove qualquer validação existente na célula

.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:="0", Formula2:="9999"

'Define a nova validação

.ErrorMessage = mensagem 'Define a mensagem de erro

End With

End Sub

64 – Adicionar uma mensagem de ajuda em uma célula

Sub AdicionarMensagemDeAjuda()

'Seleciona a célula que deseja adicionar a mensagem de ajuda

Dim celulaComMensagem As Range

Set celulaComMensagem = [Link]("A1")

'Define a mensagem de ajuda

Dim mensagem As String

mensagem = "Digite um número inteiro entre 1 e 100."

'Adiciona a mensagem de ajuda à célula selecionada

[Link] 'Remove qualquer

comentário existente na célula

[Link] mensagem 'Adiciona a

mensagem de ajuda como um comentário

End Sub

65 – Adicionar uma lista suspensa em uma célula

Sub AdicionarListaSuspensa()

'Seleciona a célula que deseja adicionar a lista suspensa

Dim celulaComLista As Range

Set celulaComLista = [Link]("A1")

 'Define as opções da lista suspensa

Dim opcoes(1 To 3) As String

opcoes(1) = "Opção 1"

opcoes(2) = "Opção 2"

opcoes(3) = "Opção 3"

'Adiciona a lista suspensa à célula selecionada

[Link] 'Remove qualquer validação

existente na célula

[Link] Type:=xlValidateList,
AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:=Join(opcoes, ",") 'Adiciona a

lista suspensa

End Sub

66 – Adicionar um botão à planilha

Sub AdicionarBotao()

'Seleciona a célula onde deseja adicionar o botão

Dim celulaBotao As Range

Set celulaBotao = [Link]("A1")

'Adiciona o botão à célula selecionada

Dim botao As Shape

Set botao =
[Link](msoShapeRoundedRectangle,
[Link], _

[Link], 100, 30)

[Link] = "BotaoTeste"

[Link] = "Clique aqui"

'Define a macro a ser executada quando o botão é clicado

[Link] = "MacroBotao"
End Sub

Sub MacroBotao()

'Coloque aqui o código que deseja executar quando o botão é

clicado

MsgBox "Você clicou no botão!"

End Sub

67 – Adicionar uma caixa de seleção à planilha

Sub AdicionarCaixaDeSelecao()

'Seleciona a célula onde deseja adicionar a caixa de seleção

Dim celulaCaixaDeSelecao As Range

Set celulaCaixaDeSelecao = [Link]("A1")

'Adiciona a caixa de seleção à célula selecionada

Dim caixaDeSelecao As CheckBox

Set caixaDeSelecao =
[Link]([Link], _

[Link], 100, 20)

[Link] = "CaixaDeSelecaoTeste"

'Define a célula vinculada à caixa de seleção

[Link] = "B1"

End Sub

68 – Adicionar um controle de spin à planilha.

Sub AdicionarControleDeSpin()

'Seleciona a célula onde deseja adicionar o controle de spin

Dim celulaControleDeSpin As Range

Set celulaControleDeSpin = [Link]("A1")

'Adiciona o controle de spin à célula selecionada

 Dim controleDeSpin As SpinButton

Set controleDeSpin =
[Link]([Link], _

[Link], 100, 20)

[Link] = "ControleDeSpinTeste"

'Define a célula vinculada e os valores mínimo, máximo e inicial

[Link] = "B1"

[Link] = 0

[Link] = 100

[Link] = 50

End Sub

69 – Adicionar um controle de barra de rolagem à planilha

Private Sub Worksheet_Activate()

' Cria uma nova barra de rolagem na planilha com as seguintes

propriedades

With [Link](Left:=10, Top:=10, Width:=150,

Height:=20)

' Define o valor máximo da barra de rolagem como 100

.Max = 100

' Vincula a célula A1 à barra de rolagem, fazendo com que o

valor da célula A1

' seja atualizado automaticamente com o valor da barra de

rolagem

.LinkedCell = Range("A1")

End With

End Sub

70 – Adicionar uma imagem à planilha

Sub AddImage()

Dim pic As Picture

 Set pic = [Link]("C:\path\to\[Link]") '
substitua o caminho e o nome do arquivo de imagem pela localização
do arquivo de imagem que deseja inserir na planilha

[Link] = Range("A1").Left ' posição horizontal da imagem na

planilha

[Link] = Range("A1").Top ' posição vertical da imagem na planilha

End Sub

71 – Adicionar um vídeo à planilha.

Sub AddVideoLink()

Range("A1").[Link] Anchor:=Range("A1"),
Address:="[Link] ' substitua o
link pelo link do vídeo que deseja adicionar

End Sub

72 – Adicionar um áudio à planilha

Sub AddAudio()

Dim snd As Object

Set snd = [Link]("[Link]", False,

False, 0, 0, 200, 200)

[Link] = "C:\path\to\audiofile.mp3" ' Substitua o caminho

e o nome do arquivo de áudio pelo arquivo de áudio que deseja
adicionar

End Sub

73 – Adicionar um texto explicativo à planilha.

Sub AddText()

[Link](msoTextOrientationHorizontal,
100, 100, 200, 50).[Link] = "Texto explicativo" '
Substitua "Texto explicativo" pelo texto que deseja adicionar

End Sub

74 – Adicionar um comentário de revisão à planilha

Sub AddReviewComment()

Range("A1").AddComment "Comentário de revisão" ' Substitua "A1"

pelo endereço da célula que deseja adicionar o comentário e
"Comentário de revisão" pelo texto que deseja adicionar
 Range("A1").[Link] = "Nome do revisor" ' Substitua
"Nome do revisor" pelo nome do revisor que adicionou o comentário

End Sub

75 – Adicionar uma senha para proteger uma macro.

Sub ProtegerMacroComSenha()

Dim senha As String

' Solicita a senha para o usuário

senha = InputBox("Insira a senha para proteger a macro:",

"Proteger Macro com Senha")

' Verifica se a senha foi digitada

If senha <> "" Then

' Protege o projeto com a senha digitada

[Link] senha

' Protege a macro especificada com a senha digitada

[Link]("NomeDoModulo").CodeModu
[Link] senha

MsgBox "A macro foi protegida com sucesso com a senha: " &
senha

Else

MsgBox "A senha não pode ficar em branco. Tente novamente."

End If

End Sub

76 – Atribuir uma macro a um botão

Sub AtribuirMacroAoBotao()

'Declaração de variáveis

Dim Planilha As Worksheet

Dim Botao As Button

 'Definição da planilha e da posição do botão

Set Planilha = [Link]("Planilha1")

Set Botao = [Link](10, 10, 50, 20)

'Definição da macro a ser atribuída ao botão

[Link] = "NomeDaMacro"

'Definição do texto do botão

[Link] = "Executar Macro"

End Sub

77 – Atribuir uma macro a uma tecla de atalho

Sub AtribuirAtalho()

'Atribui a tecla de atalho CTRL+SHIFT+T para a macro

"MinhaMacro"

[Link] "^+T", "MinhaMacro"

End Sub

78 – Atribuir uma macro a uma lista suspensa.

Private Sub Worksheet_Change(ByVal Target As Range)

'Verifica se a mudança ocorreu na célula onde está a lista suspensa

If Not Intersect(Target, Range("A1")) Is Nothing Then

'Verifica se o valor selecionado na lista é igual a "Opção 1"

If [Link] = "Opção 1" Then

 'Chama a macro "MinhaMacro"

MinhaMacro

End If

End If

End Sub

79 – Atribuir uma macro a uma caixa de seleção.

Private Sub CheckBox1_Click()

'Verifica se a caixa de seleção foi marcada

If [Link] = True Then

'Chama a macro "MinhaMacro"

MinhaMacro

End If

End Sub
80 – Atribuir uma macro a um controle de spin.
Private Sub SpinButton1_Change()

'Chama a macro "MinhaMacro" com o valor do controle de spin

como argumento

MinhaMacro [Link]

End Sub

81 – Atribuir uma macro a um controle de barra de rolagem

Private Sub ScrollBar1_Change()

'Chama a macro "MinhaMacro" com o valor do controle de barra de

rolagem como argumento

MinhaMacro [Link]

End Sub

82 – Atribuir uma macro a um evento de planilha

Private Sub Worksheet_Change(ByVal Target As Range)

'Verifica se a mudança ocorreu na célula desejada

If Not Intersect(Target, Range("A1")) Is Nothing Then

'Chama a macro "MinhaMacro"

MinhaMacro

End If

End Sub

83 – Adicionar número de série

Sub AddSerialNumbers()

Dim i As Integer
 ' Em caso de erro, ir para o rótulo "Último"

On Error GoTo Último

' Solicita ao usuário para digitar o valor inicial dos números de série

i = InputBox("Digite o valor inicial", "Digite os números de série")

' Loop para adicionar os números de série

For i = 1 To i

' Define o valor atual da célula ativa como o número de série

[Link] = i

' Move para a próxima célula abaixo

[Link](1, 0).Activate

Next i

' Rótulo "Último" para sair da sub-rotina

Último:

Exit Sub

End Sub

84 – Inserir várias colunas

Sub InsertMultipleColumns()

Dim i As Integer

Dim j As Integer

' Seleciona a coluna inteira da célula ativa

[Link]

' Em caso de erro, ir para o rótulo "Último"

 On Error GoTo Último

' Solicita ao usuário para digitar o número de colunas a serem

inseridas

i = InputBox("Digite o número de colunas a serem inseridas",

"Inserir colunas")

' Loop para inserir as colunas

For j = 1 To i

' Insere uma nova coluna à direita da seleção atual

[Link] Shift:=xlToRight,
CopyOrigin:=xlFormatFromRightOrAbove

Next j

' Rótulo "Último" para sair da sub-rotina

Último:

Exit Sub

End Sub

85 – Inserir várias linhas

Sub InsertMultipleRows()

Dim i As Integer

Dim j As Integer

' Seleciona a linha inteira da célula ativa

[Link]

' Em caso de erro, ir para o rótulo "Último"

On Error GoTo Último

 ' Solicita ao usuário para digitar o número de linhas a serem
inseridas

i = InputBox("Digite o número de linhas a serem inseridas", "Inserir

linhas")

' Loop para inserir as linhas

For j = 1 To i

' Insere uma nova linha abaixo da seleção atual

[Link] Shift:=xlToDown,
CopyOrigin:=xlFormatFromRightOrAbove

Next j

' Rótulo "Último" para sair da sub-rotina

Último:

Exit Sub

End Sub

86 – Destaque a linha e a coluna ativas

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,

Cancel As Boolean)

' Declaração da variável strRange para armazenar os endereços

das células, colunas e linhas

Dim strRange As String

' Concatena os endereços das células, colunas e linhas separados

por vírgula

strRange = [Link] & "," & _

[Link] & "," & _

[Link]

' Seleciona a faixa que inclui a célula, a coluna e a linha onde

ocorreu o duplo clique
 Range(strRange).Select

End Sub

87 – Remova os decimais dos números

Sub removeDecimals()

Dim lNumber As Double

Dim lResultado As Long

Dim rng As Range

' Percorre cada célula na seleção

For Each rng In Selection

' Armazena o valor da célula em lNumber

lNumber = [Link]

' Arredonda o valor para o número inteiro mais próximo

lResultado = Int(lNumber)

' Define o valor da célula como o número inteiro arredondado

[Link] = lResultado

' Define o formato da célula como "0" para remover as casas

decimais

[Link] = "0"

Next rng

End Sub

88 – Adicionar um botão de importação à planilha

Sub ImportarDados()

Dim planilha As Worksheet

Set planilha = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha
 Dim arquivo As Variant

Dim linha As Long

' Abrir diálogo de seleção de arquivo

arquivo = [Link]("Arquivos CSV (*.csv),

*.csv")

' Verificar se um arquivo foi selecionado

If arquivo <> "Falso" Then

' Determinar a próxima linha vazia na planilha

linha = [Link]([Link], 1).End(xlUp).Row + 1

' Importar os dados do arquivo para a planilha

With [Link](Connection:="TEXT;" & arquivo,

Destination:=[Link](linha, 1))

.TextFileParseType = xlDelimited

.TextFileCommaDelimiter = True ' Defina o delimitador

apropriado

.TextFileColumnDataTypes = Array(xlGeneralFormat) ' Defina

os tipos de dados das colunas

.Refresh BackgroundQuery:=False

End With

End If

End Sub

89 – Adicionar um botão de enviar e-mail à planilha

Sub AdicionarBotaoEnviarEmail()

Dim ws As Worksheet

Dim btn As Button

Dim rng As Range

 ' Defina a planilha onde deseja adicionar o botão

Set ws = [Link]("Planilha1") ' Substitua "Planilha1"

pelo nome da sua planilha

' Defina o range onde deseja posicionar o botão

Set rng = [Link]("A1") ' Substitua "A1" pela célula onde deseja
posicionar o botão

' Insira um botão ActiveX na planilha

Set btn =
[Link](ClassType:="[Link].1",
Link:=False, DisplayAsIcon:=False, Left:=[Link], Top:=[Link],
Width:=100, Height:=30).Object

' Configurar propriedades do botão

With btn

.Caption = "Enviar E-mail" ' Texto exibido no botão

.OnAction = "EnviarEmail" ' Nome da macro que será executada

ao clicar no botão

End With

' Adicione a macro para enviar e-mail (você precisa criar esta
macro separadamente)

Call AdicionarMacroEnviarEmail

' Limpe a memória

Set ws = Nothing

Set btn = Nothing

Set rng = Nothing

End Sub
Sub AdicionarMacroEnviarEmail()

' Esta subrotina adiciona a macro para enviar e-mail

Dim vbModule As Object

Dim vbCode As String

' Verifique se o módulo já existe, caso contrário, crie um novo

On Error Resume Next

Set vbModule =
[Link]("Módulo1") ' Substitua
"Módulo1" pelo nome desejado

On Error GoTo 0

If vbModule Is Nothing Then

Set vbModule = [Link](1) '

1 indica um módulo de código

End If

' Adicione o código VBA para enviar e-mail

vbCode = "Sub EnviarEmail()" & vbCrLf & _

" Dim OutApp As Object" & vbCrLf & _

" Dim OutMail As Object" & vbCrLf & _

" Set OutApp = CreateObject(""[Link]"")" &

vbCrLf & _

" Set OutMail = [Link](0)" & vbCrLf & _

" With OutMail" & vbCrLf & _

" .To = ""destinatario@[Link]""" & vbCrLf & _

" .Subject = ""Assunto do E-mail""" & vbCrLf & _

" .Body = ""Corpo do E-mail""" & vbCrLf & _

" .Send" & vbCrLf & _

 " End With" & vbCrLf & _

" Set OutMail = Nothing" & vbCrLf & _

" Set OutApp = Nothing" & vbCrLf & _

"End Sub"

' Insira o código no módulo

[Link] vbCode

' Limpe a memória

Set vbModule = Nothing

End Sub

90 – Adicionar um botão de preenchimento automático à planilha

Sub AdicionarBotaoPreenchimentoAutomatico()

Dim botao As Object

' Verifique se o botão já existe e, se existir, exclua-o

On Error Resume Next

[Link]("Planilha1").Shapes("BotaoPreenchimento").Del
ete

On Error GoTo 0

' Crie um botão de forma retangular na planilha

Set botao =
[Link]("Planilha1").[Link](msoShapeRecta
ngle, 50, 50, 80, 30)

' Nomeie o botão

[Link] = "BotaoPreenchimento"
 ' Defina o rótulo do botão

[Link] = "Preencher"

' Adicione um código de macro para o botão

[Link] = "PreenchimentoAutomatico"

' Exiba o botão

[Link] = True

End Sub

Sub PreenchimentoAutomatico()

' Coloque aqui o código para preenchimento automático

' Por exemplo, preencher uma célula com um valor

[Link]("Planilha1").Range("A1").Value = "Texto
Preenchido"

End Sub

91 – Adicionar um botão de limpar formulário à planilha

Sub AdicionarBotaoLimparFormulario()

Dim ws As Worksheet

Dim btn As Button

Dim rng As Range

' Defina a planilha onde você deseja adicionar o botão

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a faixa onde você deseja adicionar o botão

Set rng = [Link]("A1") ' Substitua "A1" pela célula onde deseja
posicionar o botão
 ' Crie o botão

Set btn = [Link]([Link], [Link], 100, 30) ' Ajuste as

dimensões e a posição conforme necessário

' Configure o texto do botão

[Link] = "Limpar Formulário"

' Associe o botão a uma macro que irá limpar o formulário

[Link] = "LimparFormulario"

End Sub

Sub LimparFormulario()

Dim ws As Worksheet

Dim ctrl As OLEObject

' Defina a planilha onde estão os controles de formulário

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Percorra todos os controles de formulário na planilha

For Each ctrl In [Link]

If TypeName([Link]) = "OptionButton" Or
TypeName([Link]) = "CheckBox" Then

' Limpe opções de caixa de seleção ou botões de opção

[Link] = False

ElseIf TypeName([Link]) = "TextBox" Or

TypeName([Link]) = "ComboBox" Then

' Limpe caixas de texto ou listas suspensas

[Link] = ""

End If
 Next ctrl

End Sub

92 – Adicionar um botão de copiar formulário à planilha

Sub AdicionarBotaoCopiarFormulario()

Dim ws As Worksheet

Dim btn As Button

Dim rng As Range

' Defina a planilha onde você deseja adicionar o botão

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a faixa onde você deseja adicionar o botão

Set rng = [Link]("A1") ' Substitua "A1" pela célula onde deseja
posicionar o botão

' Crie o botão

Set btn = [Link]([Link], [Link], 100, 30) ' Ajuste as

dimensões e a posição conforme necessário

' Configure o texto do botão

[Link] = "Copiar Formulário"

' Associe o botão a uma macro que irá copiar o formulário

[Link] = "CopiarFormulario"

End Sub

Sub CopiarFormulario()

Dim ws As Worksheet

Dim ctrl As OLEObject

 Dim destino As Range

Dim linhaDestino As Long

' Defina a planilha onde estão os controles de formulário

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a linha de destino onde os valores serão copiados

linhaDestino = 2 ' Substitua pelo número da linha desejada

' Defina a faixa de destino

Set destino = [Link]("A" & linhaDestino) ' Ajuste a coluna

conforme necessário

' Percorra todos os controles de formulário na planilha

For Each ctrl In [Link]

If TypeName([Link]) = "OptionButton" Or
TypeName([Link]) = "CheckBox" Then

' Copie opções de caixa de seleção ou botões de opção

[Link] = [Link]

ElseIf TypeName([Link]) = "TextBox" Or

TypeName([Link]) = "ComboBox" Then

' Copie caixas de texto ou listas suspensas

[Link] = [Link]

End If

' Avance para a próxima coluna na mesma linha

Set destino = [Link](0, 1)

Next ctrl

End Sub

93 – Adicionar um botão de colar formulário à planilha

Sub AdicionarBotaoColarFormulario()

Dim ws As Worksheet

Dim btn As Button

Dim rng As Range

' Defina a planilha onde você deseja adicionar o botão

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a faixa onde você deseja adicionar o botão

Set rng = [Link]("A1") ' Substitua "A1" pela célula onde deseja
posicionar o botão

' Crie o botão

Set btn = [Link]([Link], [Link], 100, 30) ' Ajuste as

dimensões e a posição conforme necessário

' Configure o texto do botão

[Link] = "Colar Formulário"

' Associe o botão a uma macro que irá colar o formulário

[Link] = "ColarFormulario"

End Sub

Sub ColarFormulario()

Dim ws As Worksheet

Dim linhaDestino As Long

' Defina a planilha onde você deseja colar o formulário

 Set ws = [Link]("Planilha1") ' Substitua
"Planilha1" pelo nome da sua planilha

' Encontre a próxima linha vazia na coluna A (ou em outra coluna

se preferir)

linhaDestino = [Link]([Link], "A").End(xlUp).Row + 1

' Cole os valores da área de transferência na nova linha

[Link](linhaDestino, 1).PasteSpecial Paste:=xlPasteValues

End Sub

94 – Adicionar um botão de recortar formulário à planilha

Sub AdicionarBotaoRecortarFormulario()

Dim ws As Worksheet

Dim btn As Button

Dim rng As Range

' Defina a planilha onde você deseja adicionar o botão

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a faixa onde você deseja adicionar o botão

Set rng = [Link]("A1") ' Substitua "A1" pela célula onde deseja
posicionar o botão

' Crie o botão

Set btn = [Link]([Link], [Link], 100, 30) ' Ajuste as

dimensões e a posição conforme necessário

' Configure o texto do botão

[Link] = "Recortar Formulário"

 ' Associe o botão a uma macro que irá recortar o formulário

[Link] = "RecortarFormulario"

End Sub

Sub RecortarFormulario()

Dim ws As Worksheet

Dim rngOrigem As Range

Dim rngDestino As Range

' Defina a planilha onde estão os controles de formulário

Set ws = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Defina a faixa de origem a ser recortada (por exemplo, A1:C3)

Set rngOrigem = [Link]("A1:C3") ' Substitua pela faixa que

deseja recortar

' Defina a faixa de destino onde os valores serão colados

Set rngDestino = [Link]("E1") ' Substitua pela célula de destino

' Recorte os valores da faixa de origem

[Link]

' Cole os valores recortados na faixa de destino

[Link] Paste:=xlPasteValues

End Sub

95 – Adicionar um botão de desfazer formulário à planilha

Sub DesfazerFormulario()

' Defina a planilha onde o formulário está localizado

Dim planilha As Worksheet

 Set planilha = [Link]("Planilha1") ' Substitua
"Planilha1" pelo nome da sua planilha

' Defina os intervalos de células do formulário que você deseja

desfazer

' Substitua os intervalos pelos seus intervalos de formulário

Dim intervalo1 As Range

Set intervalo1 = [Link]("A1:A10")

Dim intervalo2 As Range

Set intervalo2 = [Link]("B1:B10")

' Desfazer o formulário, limpando os valores dos intervalos

[Link]

[Link]

' Continue limpando outros intervalos conforme necessário

End Sub

96 – Adicionar um botão de refazer formulário à planilha

Sub RefazerFormulario()

Dim planilha As Worksheet

Set planilha = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Substitua os intervalos pelos seus intervalos de formulário

[Link]("A1:A10").ClearContents

[Link]("B1:B10").ClearContents

' Continue limpando outros intervalos conforme necessário

End Sub

97 – Adicionar um botão de classificar dados à planilha

Adicionar um botão para classificar dados em uma planilha pode ser
feito por meio da barra de ferramentas de controle do Excel. Aqui
estão os passos para adicionar um botão de classificação à planilha:

1. Abra a planilha onde você deseja adicionar o botão.

2. Acesse a guia “Desenvolvedor”. Se você não vê essa guia na faixa

de opções, talvez precise ativá-la nas opções do Excel.

3. Na guia “Desenvolvedor”, clique em “Inserir” no grupo de

controles. Escolha o controle de botão (Formulários) ou o controle de
botão (Controles Ativos, se desejar mais opções de personalização).

4. Desenhe um botão na planilha (clique e arraste para criar o botão)

e, em seguida, aparecerá a caixa de diálogo “Atribuir macro”.

5. Clique em “Nova Macro” para criar uma nova macro. Isso abrirá o
Editor VBA.

6. Dentro do Editor VBA, você pode inserir o código de classificação.

Aqui está um exemplo básico de código de classificação:

Sub ClassificarDados()

Dim planilha As Worksheet

Set planilha = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Substitua "A1:D100" pelo intervalo que você deseja classificar

[Link]("A1:D100").Sort Key1:=[Link]("A1"),
Order1:=xlAscending, Header:=xlYes

End Sub

Lembre-se de substituir “Planilha1” pelo nome da sua planilha e

ajustar o intervalo conforme necessário.

7. Depois de inserir o código, feche o Editor VBA.

8. Na caixa de diálogo “Atribuir macro”, selecione a macro que você

criou (por exemplo, “ClassificarDados”) e clique em “OK”.

9. Agora, sempre que você clicar no botão, a macro será executada e

os dados no intervalo especificado serão classificados.
98 – Filtrar dados de uma planilha

Sub FiltrarDados()

Dim planilha As Worksheet

Dim intervaloFiltro As Range

Dim intervaloCritério As Range

Dim critério As Range

' Defina a planilha e o intervalo de dados que você deseja filtrar

Set planilha = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

Set intervaloFiltro = [Link]("A1:D100") ' Substitua pelo

intervalo de dados que você deseja filtrar

' Defina o intervalo de critério (coluna de critérios)

Set intervaloCritério = [Link]("F1:F2") ' Substitua pelo

intervalo de critérios

' Aplicar filtro para cada critério no intervalo de critérios

For Each critério In intervaloCritério

' Verificar se o critério não está vazio

If crité[Link] <> "" Then

' Aplicar filtro

[Link] Field:=1, Criteria1:=crité[Link] '

Substitua 1 pelo número da coluna que você deseja filtrar

End If

Next critério

' Desativar o filtro

[Link] = False

End Sub
99 – Pesquisar e colar em outra planilha palavras repetidas

Sub EncontrarPalavrasRepetidas()

Dim planilhaOrigem As Worksheet

Dim planilhaDestino As Worksheet

Dim celulaOrigem As Range

Dim celulaDestino As Range

Dim palavra As String

Dim encontrada As Boolean

' Definir planilhas de origem e destino

Set planilhaOrigem = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha de origem

Set planilhaDestino = [Link]("Planilha2") ' Substitua

"Planilha2" pelo nome da sua planilha de destino

' Limpar conteúdo da planilha de destino antes de colar

[Link]

' Percorrer todas as células na planilha de origem

For Each celulaOrigem In [Link]

palavra = [Link]

encontrada = False

' Verificar se a palavra já foi encontrada na planilha de destino

For Each celulaDestino In [Link]

If [Link] = palavra Then

encontrada = True

Exit For

End If

Next celulaDestino
 ' Se a palavra não foi encontrada, adicioná-la na próxima linha
da planilha de destino

If Not encontrada And palavra <> "" Then

[Link]([Link],
1).End(xlUp).Offset(1, 0).Value = palavra

End If

Next celulaOrigem

End Sub

100 – Mesclar células de uma planilha

Sub MesclarCelulasComComentarios()

' Definir a planilha de destino

Dim planilha As Worksheet

Set planilha = [Link]("Planilha1") ' Substitua

"Planilha1" pelo nome da sua planilha

' Mesclar células e adicionar comentários

With planilha

' Mesclar células

.Range("A1:B2").Merge ' Substitua "A1:B2" pelo intervalo que

você deseja mesclar

' Adicionar conteúdo à célula mesclada

.Range("A1").Value = "Células Mescladas"

' Adicionar comentário à célula mesclada

.Range("A1").AddComment "Essas células foram mescladas para

destacar informações importantes."

End With

End Sub
Passo a passo: Como usar o Procv do Excel para buscar o
preço das suas frutas

Para exemplificar, imagine que você tem uma tabela de frutas com
informações de preços, como no exemplo abaixo:

Fruta Preço

Maçã 2,50

Banana 1,50

Uva 3,00

Abacaxi 5,00

E você quer descobrir o preço de uma fruta específica, como a maçã,

por exemplo. Para isso, siga os seguintes passos:

1. Selecione uma célula onde você quer que o resultado apareça.

2. Na barra de fórmulas, digite “=PROCV(“.

3. Agora é hora de preencher os argumentos da fórmula.

O primeiro argumento é o valor que você está procurando,
neste caso, a fruta. Então, digite o nome da fruta dentro de
aspas duplas. Por exemplo, se você quiser descobrir o preço da
maçã, digite “Maçã”.

4. O segundo argumento é a matriz onde você está procurando.

Neste caso, é a tabela de frutas. Selecione toda a tabela,
incluindo os títulos das colunas.

5. O terceiro argumento é o número da coluna que contém o

resultado que você deseja. No caso da tabela de frutas, é a
segunda coluna, onde estão os preços. Então, digite “2“.

6. O quarto argumento é opcional. Ele é usado quando a busca

exata não é encontrada na tabela. Neste caso, você pode
escolher se deseja que o Excel retorne o valor mais próximo ou
o valor imediatamente inferior. Para este exemplo, deixe em
branco.

7. Feche a fórmula com “)” e aperte Enter.

Pronto! O Excel deve ter retornado o preço da fruta que você procurou
em segundos.

Por exemplo, se você procurou o preço da maçã, a fórmula completa

ficaria assim:
=PROCV(“Maçã”;A1:B5;2;0)

E o resultado seria “2,50“.

Conclusão

Com o Procv do Excel, você pode buscar informações em tabelas de

maneira rápida e eficiente. Utilizando este recurso, você pode
economizar tempo e esforço na hora de buscar informações
específicas em suas tabelas.

Com este exemplo prático, você pode entender como utilizar o Procv
do Excel para buscar o preço das suas frutas em uma tabela.
Experimente utilizar essa ferramenta em outras situações que
precisar buscar informações em tabelas no Excel.

Veja também sobre: Como usar Referências Relativas e Absolutas no

Excel, Dicas para usar PROCV no Excel sem erros, Como usar a função
PROCV no Excel: 5 exemplos práticos.

Como calcular porcentagem no Excel

A fórmula para calcular porcentagem no Excel é a seguinte: (valor /

total) * 100. Para calcular a porcentagem de um valor em relação a
um total, você precisa dividir o valor pelo total e, em seguida,
formatar o resultado como uma porcentagem.

Por exemplo, se você quiser calcular a porcentagem de um total de

vendas atribuído a um único vendedor, você pode usar a fórmula da
seguinte maneira:

1. Digite o valor total de vendas na célula A2.

2. Digite o valor das vendas do vendedor na célula B2.

3. Digite a fórmula = B2 / A2 na célula C2.

4. Formate a célula C2 como uma porcentagem.

O resultado será a porcentagem das vendas do vendedor em relação
ao total de vendas.

Exemplos do dia a dia

Agora que sabemos como calcular porcentagens no Excel, vamos ver

alguns exemplos do dia a dia em que isso pode ser útil.

1 – Desconto em uma compra

Digamos que você esteja fazendo compras online e queira saber o

valor do desconto em um item com um preço original de R$ 500,00 e
um desconto de 20%.

Para calcular o valor do desconto, você pode usar a fórmula no Excel

da seguinte forma:

= 500 * 20%

O resultado será R$ 100,00, que é o valor do desconto.

2 – Aumento salarial

Suponha que você seja um gerente de RH em uma empresa e precise

calcular o aumento salarial de um funcionário com base em uma taxa
de aumento de 5%.

Se o salário atual do funcionário for de R$ 3.000,00, você pode

calcular o novo salário usando a fórmula da seguinte forma:

= 3000 * 5%

O resultado será R$ 3.150,00, que é o novo salário com o aumento de

5%.

3 – Orçamento pessoal

Se você está tentando economizar dinheiro e precisa controlar seus

gastos, o Excel pode ser uma ferramenta útil para ajudá-lo a calcular
porcentagens.

Por exemplo, se você quiser saber qual porcentagem de sua renda

mensal está sendo gasta em alimentação, você pode fazer o
seguinte:
 1. Digite sua renda mensal na célula A2.

2. Digite sua despesa com alimentação na célula B2.

3. Digite a fórmula = B2 / A2 célula C2.

4. Formate a célula C2 como uma porcentagem.

O resultado será a porcentagem de sua renda mensal que está sendo

gasta em alimentação.

4 – Análise de vendas

Se você estiver trabalhando em vendas e quiser saber qual produto

está gerando mais receita para uma loja você pode usar o Excel para
calcular a porcentagem de vendas em relação ao total de vendas.

Para fazer isso, primeiramente copie a tabela abaixo para sua

planilha, colando a partir da célula A1.

Eletrodoméstico Valor (em reais) % Vend

Geladeira 4.000,00

Fogão 1.600,00

Micro-ondas 800,00

Máquina de lavar roupa 3.000,00

Secadora de roupa 2.400,00

Ar-condicionado 5.000,00

Aspirador de pó 700,00

Ferro de passar roupa 160,00

Liquidificador 200,00

Cafeteira 300,00

Total de Vendas 18.160,00

 1. Digite a fórmula = B2 / $B$12 na célula C2.

2. Formate a célula C2 como uma porcentagem.

3. Arraste ou copie a fórmula para os demais eletrodomésticos.

O resultado será a porcentagem de vendas dos produtos em relação

ao total de vendas.

No exemplo acima usamos o símbolo de cifrão ou dólar na fórmula. Se

você não souber do que se trata, leia este artigo: Como usar
Referências Relativas e Absolutas no Excel .

5 – Comparação de dados

Se você quiser comparar dados de duas ou mais categorias, pode

usar o Excel para calcular a porcentagem de cada categoria em
relação ao total.

Por exemplo, se você quiser comparar a porcentagem de homens e

mulheres em uma determinada empresa, pode seguir estas etapas:

1. Digite o número total de funcionários na célula A2.

2. Digite o número de funcionários do sexo masculino na célula

B2.

3. Digite o número de funcionários do sexo feminino na célula C2.

4. Digite a fórmula = B2 / A2 na célula D2 para calcular a

porcentagem de homens.
 5. Digite a fórmula = C2 / A2 na célula E2 para calcular a
porcentagem de mulheres.

6. Formate as células D2 e E2 como porcentagens.

O resultado será a porcentagem de homens e mulheres em relação ao

número total de funcionários.

Conclusão

Calcular porcentagem no Excel pode ser uma tarefa útil para muitos
cenários, desde finanças pessoais até análise de dados em grandes
empresas.

Com as fórmulas e funções certas, é possível calcular porcentagens

de forma fácil e precisa.

Esperamos que este artigo tenha sido útil para ajudá-lo a entender
como calcular porcentagem no Excel com exemplos práticos do dia a
dia.

Lembre-se de que, ao trabalhar com porcentagens, é importante

entender como as fórmulas funcionam para obter resultados precisos.

Além disso, o Excel oferece uma variedade de outras funções

matemáticas que podem ser úteis para trabalhar com dados
numéricos.

Como calcular porcentagem no Excel

A fórmula para calcular porcentagem no Excel é a seguinte: (valor /

total) * 100. Para calcular a porcentagem de um valor em relação a
um total, você precisa dividir o valor pelo total e, em seguida,
formatar o resultado como uma porcentagem.

Por exemplo, se você quiser calcular a porcentagem de um total de

vendas atribuído a um único vendedor, você pode usar a fórmula da
seguinte maneira:

1. Digite o valor total de vendas na célula A2.

2. Digite o valor das vendas do vendedor na célula B2.

3. Digite a fórmula = B2 / A2 na célula C2.

 4. Formate a célula C2 como uma porcentagem.

O resultado será a porcentagem das vendas do vendedor em relação

ao total de vendas.

Exemplos do dia a dia

Agora que sabemos como calcular porcentagens no Excel, vamos ver

alguns exemplos do dia a dia em que isso pode ser útil.

1 – Desconto em uma compra

Digamos que você esteja fazendo compras online e queira saber o

valor do desconto em um item com um preço original de R$ 500,00 e
um desconto de 20%.

Para calcular o valor do desconto, você pode usar a fórmula no Excel

da seguinte forma:

= 500 * 20%

O resultado será R$ 100,00, que é o valor do desconto.

2 – Aumento salarial

Suponha que você seja um gerente de RH em uma empresa e precise

calcular o aumento salarial de um funcionário com base em uma taxa
de aumento de 5%.

Se o salário atual do funcionário for de R$ 3.000,00, você pode

calcular o novo salário usando a fórmula da seguinte forma:

= 3000 * 5%

O resultado será R$ 3.150,00, que é o novo salário com o aumento de

5%.

3 – Orçamento pessoal

Se você está tentando economizar dinheiro e precisa controlar seus

gastos, o Excel pode ser uma ferramenta útil para ajudá-lo a calcular
porcentagens.
Por exemplo, se você quiser saber qual porcentagem de sua renda
mensal está sendo gasta em alimentação, você pode fazer o
seguinte:

1. Digite sua renda mensal na célula A2.

2. Digite sua despesa com alimentação na célula B2.

3. Digite a fórmula = B2 / A2 célula C2.

4. Formate a célula C2 como uma porcentagem.

O resultado será a porcentagem de sua renda mensal que está sendo

gasta em alimentação.

4 – Análise de vendas

Se você estiver trabalhando em vendas e quiser saber qual produto

está gerando mais receita para uma loja você pode usar o Excel para
calcular a porcentagem de vendas em relação ao total de vendas.

Para fazer isso, primeiramente copie a tabela abaixo para sua

planilha, colando a partir da célula A1.

Eletrodoméstico Valor (em reais) % Vend

Geladeira 4.000,00

Fogão 1.600,00

Micro-ondas 800,00

Máquina de lavar roupa 3.000,00

Secadora de roupa 2.400,00

Ar-condicionado 5.000,00

Aspirador de pó 700,00

Ferro de passar roupa 160,00

Liquidificador 200,00
Eletrodoméstico Valor (em reais) % Vend

Cafeteira 300,00

Total de Vendas 18.160,00

1. Digite a fórmula = B2 / $B$12 na célula C2.

2. Formate a célula C2 como uma porcentagem.

3. Arraste ou copie a fórmula para os demais eletrodomésticos.

O resultado será a porcentagem de vendas dos produtos em relação

ao total de vendas.

No exemplo acima usamos o símbolo de cifrão ou dólar na fórmula. Se

você não souber do que se trata, leia este artigo: Como usar
Referências Relativas e Absolutas no Excel .

5 – Comparação de dados

Se você quiser comparar dados de duas ou mais categorias, pode

usar o Excel para calcular a porcentagem de cada categoria em
relação ao total.

Por exemplo, se você quiser comparar a porcentagem de homens e

mulheres em uma determinada empresa, pode seguir estas etapas:

1. Digite o número total de funcionários na célula A2.

 2. Digite o número de funcionários do sexo masculino na célula
B2.

3. Digite o número de funcionários do sexo feminino na célula C2.

4. Digite a fórmula = B2 / A2 na célula D2 para calcular a

porcentagem de homens.

5. Digite a fórmula = C2 / A2 na célula E2 para calcular a

porcentagem de mulheres.

6. Formate as células D2 e E2 como porcentagens.

O resultado será a porcentagem de homens e mulheres em relação ao

número total de funcionários.

Conclusão

Calcular porcentagem no Excel pode ser uma tarefa útil para muitos
cenários, desde finanças pessoais até análise de dados em grandes
empresas.

Com as fórmulas e funções certas, é possível calcular porcentagens

de forma fácil e precisa.

Esperamos que este artigo tenha sido útil para ajudá-lo a entender
como calcular porcentagem no Excel com exemplos práticos do dia a
dia.

Lembre-se de que, ao trabalhar com porcentagens, é importante

entender como as fórmulas funcionam para obter resultados precisos.

Além disso, o Excel oferece uma variedade de outras funções

matemáticas que podem ser úteis para trabalhar com dados
numéricos.

Como Colorir Células no Excel e Destacar Valores Rápido


 

Se você quer aprender a colorir células no Excel de acordo com seus

valores, então chegou ao post certo!

Neste tutorial, vamos te mostrar, passo a passo, como utilizar a

poderosa funcionalidade de formatação condicional no Excel para
destacar dados importantes de maneira simples e rápida. Além disso,
você verá como aplicar essa técnica de forma eficaz em suas
planilhas.

Portanto, acompanhe os passos abaixo e comece a aplicar essa

técnica agora mesmo para melhorar a visualização dos seus dados!

O que é Formatação Condicional?

A formatação condicional no Excel é, na verdade, uma ferramenta

que permite colorir células automaticamente com base em critérios
específicos. Dessa forma, você pode destacar rapidamente padrões,
identificar dados críticos ou, simplesmente, tornar suas planilhas mais
visuais e fáceis de interpretar.

Passo a Passo para Colorir Células no Excel

Passo 1: Selecione a célula ou células que deseja colorir

Primeiro, selecione a célula, intervalo ou até mesmo a planilha inteira.

Por exemplo, se você tiver uma lista de valores numéricos, selecione
a coluna ou linha onde deseja aplicar a formatação.
Passo 2: Acesse a Formatação Condicional

Agora, vá até a guia “Página Inicial” na faixa de opções e clique em

“Formatação Condicional“. Em seguida, no menu suspenso,
escolha a opção “Nova Regra“. Isso, por sua vez, abrirá uma janela
onde você poderá configurar as regras para colorir suas células.
Passo 3: Defina a Regra de Formatação

Existem várias regras predefinidas para escolher, mas vamos focar

nas mais comuns:

 Está entre: Ideal para colorir células que estão dentro de um

intervalo de valores.

 Maior que: Escolha esta opção para colorir células que tenham
valores maiores que um número específico.

 Menor que: Use esta opção para colorir células com valores
abaixo de um número determinado.

 Igual a: Se você deseja destacar células com um valor exato.

Aqui estão alguns exemplos de regras comuns:

Selecione primeiramente a opção Formatar apenas células que

contenham.

Um pouco mais abaixo você verá a caixa Edite a Descrição da

Regra, onde terá algumas opções como:
é maior do que: essa regra permite colorir as células que possuem
valores maiores que um determinado número. Por exemplo, se você
deseja colorir células com valores maiores que 50, escolha a
opção “é maior do que” e insira o valor 50.

Clique em Formatar… e escolha uma cor de sua preferência na

guia Preenchimento.

Escolhendo a cor do preenchimento da célula

Dê OK para fechar as janelas e pronto! O Resultado sairá como

apresentado abaixo.

Exemplo prático:
Vamos supor que você tenha uma planilha com uma coluna de
valores numéricos de vendas mensais.

Deseja-se colorir as células com vendas acima de 10.000 em verde e

as células com vendas abaixo de 5.000 em vermelho. Para fazer isso,
siga os passos abaixo:

1 – Selecione as células da coluna de vendas que deseja formatar.

2 – Vá para a guia “Página Inicial” e clique no ícone “Formatação
Condicional”.

3 – Escolha a opção “Nova Regra…”, “Formatar apenas células

que contenham” e selecione “é maior do que” na lista suspensa.
Insira o valor 10.000 no campo de entrada.
4 – Clique em “Formatar…” e na guia “Preenchimento” escolha a
cor verde de preenchimento
5 – Repita os passos 3 e 4, selecionando a opção “é menor do
que” e inserindo o valor 5.000 para formatar as células em vermelho.

6 – Clique em “OK” para aplicar a formatação condicional.

Conclusão:

A formatação condicional no Excel é uma ferramenta poderosa para

visualizar rapidamente informações importantes em seus dados.

Ao colorir célula no Excel de acordo com o valor, você pode identificar

facilmente padrões, tendências e discrepâncias.

Experimente essas técnicas em suas planilhas e aproveite os

benefícios de uma visualização mais clara e intuitiva dos dados.

Talvez você goste também:

Como destacar datas entre um período no Excel

Colorir células por valor no Excel

Sintaxe no Excel: o que é e como usar

Olá, seja muito bem vindo(a) a mais uma super dica de Excel. Hoje
vamos falar de algo extremamente essencial: Sintaxe no Excel: o que
é e como usar.

A sintaxe é um conceito fundamental para trabalhar com o Excel e

permite que os usuários criem fórmulas precisas e eficientes para
realizar cálculos e análises de dados.

O que é sintaxe no Excel?

A sintaxe do Excel nada mais é do que o “jeitinho” que a gente

precisa usar para escrever fórmulas e funções corretamente na
ferramenta.

É como se fosse a gramática do Excel, sabe? Cada função possui um

formato específico, e você deve segui-lo corretamente, utilizando
parênteses, vírgulas (ou ponto e vírgula, dependendo do idioma do
Excel) e posicionando os argumentos no lugar certo.

Se você não seguir essa estrutura, o Excel não entende o que você
quer fazer e pode dar erro. Por isso, aprender a sintaxe é essencial
para dominar o Excel e fazer ele trabalhar por você. É tipo aprender
as regras de um jogo antes de sair jogando!

Funções no Excel
As funções representam um dos principais elementos da sintaxe do
Excel. Elas realizam cálculos em dados e geram resultados com base
nos valores das células na planilha.

O Excel oferece uma ampla variedade de funções para realizar

cálculos matemáticos, estatísticos, financeiros, lógicos e muito mais.

Para usar uma função no Excel, é necessário seguir uma sintaxe

específica que inclui o nome da função, seguido pelos argumentos
entre parênteses. Por exemplo, a função SOMA soma os valores das
células em uma planilha.. Sua sintaxe é a seguinte:

=SOMA(argumento1; argumento2; …)

Os argumentos podem ser referências de células, valores constantes

ou outras funções. Por exemplo, a fórmula =SOMA(A1:A5) somará
os valores nas células A1 a A5.

Você sabe a diferença entre função e fórmula?

No Excel, uma função é como uma fórmula pronta que realiza um

cálculo específico. Por exemplo, a função SOMA adiciona valores.

Uma fórmula, por outro lado, é uma sequência de instruções que você
cria para fazer cálculos personalizados. Você pode usar funções,
operadores (+, -, *, /) e referências de células nas fórmulas.

Resumindo, uma função é uma fórmula já existente no Excel,

enquanto uma fórmula é algo que você cria usando funções,
operadores e referências para fazer cálculos personalizados. Ambas
servem para fazer cálculos no Excel.

Argumentos no Excel

Os argumentos fornecem valores às funções para realizar cálculos.

Eles podem ser referências de células, valores constantes ou outras
funções. A maioria das funções no Excel requer pelo menos um
argumento e muitas funções podem aceitar vários argumentos.

Ao fornecer argumentos para uma função no Excel, é importante

seguir a ordem correta dos argumentos, conforme especificado na
sintaxe da função. Por exemplo, a função MÉDIA calcula a média dos
valores nas células em uma planilha e exige pelo menos um
argumento. Sua sintaxe é a seguinte:

=MÉDIA(argumento1; [argumento2]; …)

O argumento1 é obrigatório e representa as células ou o intervalo de

células das quais você calcula a média. O argumento2 é opcional e
representa as células ou o intervalo de células adicionais, cujas
médias também são calculadas.

Operadores no Excel

Os operadores realizam cálculos nos dados das células do Excel,

incluindo operadores aritméticos (adição, subtração, multiplicação,
divisão), de comparação (igualdade, maior que, menor que, etc.) e
lógicos (E, OU, NÃO).

Operadores Aritméticos

Os operadores aritméticos são os mais comuns no Excel e incluem os

seguintes:

Adição (+): soma valores em células diferentes. Por exemplo, a

fórmula =A1+B1 adicionará os valores nas células A1 e B1.

Subtração (-): subtrai valores em células diferentes. Por exemplo, a

fórmula =A1-B1 subtrairá o valor na célula B1 do valor na célula A1.

Multiplicação (*): multiplica valores em células diferentes. Por

exemplo, a fórmula =A1*B1 multiplicará os valores nas células A1 e
B1.

Divisão (/): divide valores em células diferentes. Por exemplo, a

fórmula =A1/B1 dividirá o valor na célula A1 pelo valor na célula B1.

Operadores de Comparação

Os operadores de comparação comparam valores em células

diferentes e retornam um valor lógico (VERDADEIRO ou FALSO). Eles
incluem os seguintes:

Igualdade (=): verifica se dois valores são iguais. Por exemplo, a

fórmula =A1=B1 retornará VERDADEIRO se os valores nas células A1
e B1 forem iguais.

Maior que (>): é usado para verifica se o valor em uma célula é

maior que o valor em outra célula. Por exemplo, a fórmula =A1>B1
retornará VERDADEIRO se o valor na célula A1 for maior que o valor
na célula B1.

Menor que (<): é usado para verificar se o valor em uma célula é

menor que o valor em outra célula. Por exemplo, a fórmula =A1<B1
retornará VERDADEIRO se o valor na célula A1 for menor que o valor
na célula B1.

Maior ou igual a (>=): é usado para verificar se o valor em uma

célula é maior ou igual ao valor em outra célula. Por exemplo, a
fórmula =A1>=B1 retornará VERDADEIRO se o valor na célula A1 for
maior ou igual ao valor na célula B1.

Menor ou igual a (<=): é usado para verificar se o valor em uma

célula é menor ou igual ao valor em outra célula. Por exemplo, a
fórmula =A1<=B1 retornará VERDADEIRO se o valor na célula A1 for
menor ou igual ao valor na célula B1.

Operadores Lógicos

Os operadores lógicos são usados para combinar valores lógicos

(VERDADEIRO ou FALSO) em fórmulas mais complexas. Eles incluem
os seguintes:

E (&&): é usado para combinar duas ou mais condições e retornar

VERDADEIRO apenas se todas as condições forem verdadeiras. Por
exemplo, a fórmula =E(A1>B1; A2<B2) retornará VERDADEIRO
apenas se o valor na célula A1 for maior que o valor na célula B1 e o
valor na célula A2 for menor que o valor na célula B2.

OU (||): é usado para combinar duas ou mais condições e retornar

VERDADEIRO se pelo menos uma das condições for verdadeira. Por
exemplo, a fórmula =OU(A1>B1; A2<B2) retornará VERDADEIRO se
o valor na célula A1 for maior que o valor na célula B1 ou o valor na
célula A2 for menor que o valor na célula B2.

NÃO (!): é usado para inverter o valor lógico de uma condição. Por
exemplo, a fórmula =NÃO(A1=B1) retornará VERDADEIRO se o valor
na célula A1 não for igual ao valor na célula B1.

Abaixo uma tabela com o resumo dos operadores do Excel:

Sintax
Operador Descrição e Exemplo Exemplo Prático Re

+ (adição) Soma dois valores A1 + B1 =A1 + B1 =2 + 3 5

– (subtração) Subtrai um valor de outro A1 – B1 =A1 – B1 =7 – 4 3

* Multiplica dois valores A1 * B1 =A1 * B1 =5 * 6 30

(multiplicação
)

/ (divisão) Divide um valor pelo A1 / B1 =A1 / B1 =10 / 2 5

outro

= (igualdade) Verifica se dois valores A1 = B1 =A1 = B1 =2 = 2 VE

são iguais RO
 Sintax
Operador Descrição e Exemplo Exemplo Prático Re

> (maior que) Verifica se um valor é A1 > B1 =A1 > B1 =5 > 3 VE

maior que outro RO

< (menor Verifica se um valor é A1 < B1 =A1 < B1 =4 < 2 FA

que) menor que outro

>= (maior ou Verifica se um valor é A1 >= =A1 >= B1 =6 >= 6 VE

igual) maior ou igual a outro B1 RO

<= (menor ou Verifica se um valor é A1 <= =A1 <= B1 =3 <= 2 FA

igual) menor ou igual a outro B1

E (AND lógico) Retorna VERDADEIRO se E(A1; =E(A1; B1) =E(VERDADEIRO, FA

todas as condições forem B1) FALSO)
verdadeiras

OU (OR Retorna VERDADEIRO se OU(A1; =OU(A1; =OU(VERDADEIRO, VE

lógico) pelo menos uma das B1) B1) FALSO) RO
condições for verdadeira

NÃO (NOT Inverte o valor lógico de NÃO(A1 =NÃO(A1) =NÃO(VERDADEIR FA

lógico) uma expressão ) O)

& Combina duas ou mais A1 & ” ” =A1 & ” ” & =”Olá” & ” ” & “O
(concatenaçã cadeias de texto & B1 B1 “Mundo” Mu
o)

: (intervalo) Cria um intervalo entre A1:B1 =SOMA(A1: =SOMA(A1:B3) 24

duas referências B1)

Conclusão

A sintaxe do Excel define as regras para criar e interpretar fórmulas.

Cada função tem sua própria estrutura, como a SOMA:
=SOMA(A1:A10).

A ordem das operações é essencial: o Excel calcula primeiro os

parênteses, depois multiplicação e divisão, e por último, adição e
subtração. Você pode usar parênteses para ajustar a sequência dos
cálculos.
Dominar a sintaxe permite criar fórmulas avançadas, automatizar
tarefas e aumentar sua produtividade. Para mais sobre referências,
veja: Como usar Referências Relativas e Absolutas no Excel.

Sintaxe no Excel: o que é e como usar

Função DATA

A função DATA (DATE) permite criar uma data a partir de

componentes individuais, como ano, mês e dia.

Por exemplo, se você quiser criar a data 10/06/2023, pode

utilizar a seguinte fórmula: =DATA(2023; 6; 10).

Exemplo: =DATA(2023;6;10) retorna a data 10/06/2023.

Função [Link]

A função [Link] converte uma data em formato de texto

para um valor numérico no Excel.

Suponha que você tenha a data 10/06/2023 em formato de

texto na célula A1.

Para converter essa data em um valor numérico, você pode

usar a fórmula: =[Link](A1).

Exemplo: Se a célula A1 contiver “10/06/2023”, a

fórmula =[Link](A1) retorna o valor 45087.
Função DIA

A função DIA retorna o dia do mês a partir de uma data

fornecida. Por exemplo, se você tiver a data 10/06/2023 na
célula A1, a fórmula =DIA(A1) retornará o valor 10.

Exemplo: Se a célula A1 contiver a data 10/06/2023, a

fórmula =DIA(A1) retornará o valor 10.

Função DIAS

A função DIAS calcula o número de dias entre duas datas

fornecidas. Suponha que você tenha as datas 01/06/2023 na
célula A1 e 10/06/2023 na célula B1.

Para calcular o número de dias entre essas duas datas, você

pode utilizar a fórmula: =DIAS(B1;A1).

Exemplo: Se a célula A1 contiver a data 01/06/2023 e a célula

B1 contiver a data 10/06/2023, a fórmula =DIAS(B1;A1)
retornará o valor 9.
Função MÊS

A função MÊS retorna o número do mês a partir de uma data

fornecida. Se você tiver a data 10/06/2023 na célula A1, a
fórmula =MÊS(A1) retornará o valor 6.

Exemplo: Se a célula A1 contiver a data 10/06/2023, a fórmula

=MÊS(A1) retornará o valor 6.

Função DATAM

A função DATAM permite adicionar ou subtrair um número

específico de meses a partir de uma data fornecida.

Por exemplo, se você tiver a data 10/06/2023 na célula A1 e

quiser adicionar 6 meses a essa data, pode utilizar a
fórmula: =DATAM(A1;6).

Exemplo: Se a célula A1 contiver a data 10/06/2023, a

fórmula =DATAM(A1;6) retornará a data 10/12/2023.
Função FIMMÊS

A função FIMMÊS retorna a última data do mês a partir de uma

data fornecida. Se você tiver a data 10/06/2023 na célula A1, a
fórmula =FIMMÊS(A1;0) retornará o valor 30/06/2023.

Exemplo: Se a célula A1 contiver a data 10/06/2023, a fórmula

=FIMMÊS(A1;0) retornará a data 30/06/2023.

Função DIATRABALHOTOTAL

A função DIATRABALHOTOTAL calcula o número de dias úteis

(excluindo fins de semana e feriados) entre duas datas
fornecidas.

Exemplo: Se a célula A2 contiver a data de início e a célula B2

contiver a data de término de um projeto, a
fórmula =DIATRABALHOTOTAL(A2;B2;C2) retornará o valor
correspondente ao número de dias úteis entre essas duas
datas.
Função HOJE

A função HOJE retorna a data atual do sistema. Se você quiser

exibir a data atual em uma célula, basta utilizar a
fórmula =HOJE().

Exemplo: A fórmula =HOJE() retornará a data atual.

Função [Link]

A função [Link] retorna o número do dia da semana a

partir de uma data fornecida.

Por exemplo, se você tiver a data 30/06/2023 na célula A1, a

fórmula =[Link](A1) retornará o valor 6.

Exemplo: Se a célula A1 contiver a data 30/06/2023, a

fórmula =[Link](A1) retornará o valor 6.
Função NÚMSEMANA

A função NÚMSEMANA retorna o número da semana a partir de

uma data fornecida. Se você tiver a data 10/06/2023 na célula
A1, a fórmula =NÚMSEMANA(A1) retornará o valor 23.

Exemplo: Se a célula A1 contiver a data 10/06/2023, a

fórmula =NÚMSEMANA(A1) retornará o valor 23.

Função ANO

A função ANO retorna o ano a partir de uma data fornecida. Se

você tiver a data 10/06/2023 na célula A1, a
fórmula =ANO(A1) retornará o valor 2023.

Exemplo: Se a célula A1 contiver a data 10/06/2023, a

fórmula =ANO(A1) retornará o valor 2023.
Esses são apenas alguns exemplos de como as funções de data
do Excel podem ser utilizadas.

Com essas ferramentas, você pode manipular e analisar datas

com facilidade, melhorando sua produtividade e eficiência ao
trabalhar com planilhas. Experimente essas funções e descubra
como elas podem otimizar seu trabalho diário com o Excel.

Esperamos que este artigo tenha sido útil para você! Aqui você
conheceu As 12 principais funções de data do Excel. Se tiver
alguma dúvida ou sugestão, deixe um comentário abaixo.

Função NÚ[Link]

A função NÚ[Link] retorna o número de caracteres em uma

string de texto. Por exemplo, se você tiver a palavra “Excel” na
célula A1, pode usar a fórmula =NÚ[Link](A1) para obter o
valor 5, que é o número de caracteres na palavra “Excel”.

Função LOCALIZAR

A função LOCALIZAR encontra a posição de uma substring

dentro de uma string. Por exemplo, se você tiver a palavra
“Excel” na célula A1 e quiser encontrar a posição da letra “x”,
pode usar a fórmula =LOCALIZAR("x";A1) para obter o valor 2,
que é a posição da letra “x” na palavra “Excel”.
Função SUBSTITUIR

A função SUBSTITUIR altera um caractere de um texto por outro

informado pelo usuário. Por exemplo, se você tiver a palavra
“Excel” na célula A1 e quiser substituir a letra “x” por “sss”,
pode usar a fórmula =SUBSTITUIR(A1;"x";"sss") para obter o
texto “Essscel”.

Função ESQUERDA

A função ESQUERDA extrai uma quantidade específica de

caracteres à esquerda de uma string. Por exemplo, se você tiver
a palavra “Excel” na célula A1 e quiser extrair os dois primeiros
caracteres, pode usar a fórmula =ESQUERDA(A1;2) para obter o
valor “Ex”.

Função DIREITA

A função DIREITA extrai uma quantidade específica de

caracteres à direita de uma string. Por exemplo, se você tiver a
palavra “Excel” na célula A1 e quiser extrair os dois últimos
caracteres, pode usar a fórmula =DIREITA(A1;2) para obter o
valor “el”.
Função [Link]

A função [Link] extrai uma substring de uma string, com

base em uma posição inicial e um comprimento específico. Por
exemplo, se você tiver a palavra “Excel” na célula A1 e quiser
extrair os caracteres do meio, pode usar a fórmula
=[Link](A1;2;3) para obter o valor “xce”.

Função MINÚSCULA

A função MINÚSCULA converte todos os caracteres de um texto

em letras minúsculas. Por exemplo, se você tiver a palavra
“Excel” na célula A1 e quiser convertê-la para letras
minúsculas, pode usar a fórmula =MINÚSCULA(A1) para obter o
valor “excel”.

Função [Link]ÚSCULA

A função [Link]ÚSCULA converte a primeira letra de cada

palavra em uma string em letra maiúscula e as demais letras
em minúsculas. Por exemplo, se você tiver a palavra “excel” na
célula A1 e quiser colocar a primeira letra em maiúsculo, pode
usar a fórmula =[Link]ÚSCULA(A1) para obter o valor “Excel”.

Função MAIÚSCULA

A função MAIÚSCULA converte todos os caracteres de uma

string em letras maiúsculas. Por exemplo, se você tiver a
palavra “excel” na célula A1 e quiser convertê-la para letras
maiúsculas, pode usar a fórmula =MAIÚSCULA(A1) para obter o
valor “EXCEL”.

Função REPT

A função REPT repete uma string um determinado número de

vezes. Por exemplo, se você tiver a palavra “Excel” na célula A1
e quiser repeti-la três vezes, pode usar a fórmula =REPT(A1;3)
para obter o valor “ExcelExcelExcel”.

Essas são apenas algumas das muitas funções de texto

disponíveis no Excel. Conhecemos as 10 Funções de Texto do
Excel mais usadas.
 Neste artigo falo também sobre algumas formas de se formatar
um CNPJ e uma delas é a função TEXTO do Excel. Você já
conhece?

Elas podem ser extremamente úteis para realizar tarefas como

formatação de texto, extração de informações específicas e
muito mais.

Experimente essas funções e descubra como elas podem

facilitar seu trabalho com dados de texto no Excel.

Esperamos que este artigo tenha sido útil para você! Se tiver
alguma dúvida ou sugestão, deixe um comentário abaixo.

Neste artigo Como adicionar zeros à esquerda de um número,

também ensino mais uma forma de usar a função TEXTO do
Excel.

Unindo Mais de 100 Arquivos XLSX em um Único Excel

com VBA

Aprenda como unir mais de 100 Arquivos XLSX em um Único

Excel com VBA

Olá, seja muito bem vindo (a) a mais uma aula! Hoje, vamos
abordar o seguinte tema: Unindo Mais de 100 Arquivos XLSX em
um Único Excel com VBA. Vamos aprender como criar uma
função personalizada em VBA que permitirá automatizar esse
processo complexo e economizar tempo valioso em nosso
trabalho diário.
Introdução

Quando trabalhamos com grande quantidade de dados em

planilhas do Excel, é comum dividir as informações em vários
arquivos para facilitar o gerenciamento e a organização.
Entretanto, quando chega o momento de analisar todos esses
dados juntos, unir manualmente cada arquivo pode ser uma
tarefa demorada e propensa a erros.

Neste tutorial, vamos ensinar como criar uma função

personalizada em VBA para combinar mais de 100 arquivos
XLSX em uma única planilha, proporcionando uma solução
rápida e confiável para consolidar seus dados.

Passo a Passo

1. Acesso ao Editor VBA

Antes de começarmos, acesse o Editor VBA do Excel

pressionando “Alt + F11” ou, no menu “Desenvolvedor”, clique
em “Visual Basic”.

2. Criação da Função

Dentro do Editor VBA, clique com o botão direito sobre

“VBAProject ([Link])” no painel esquerdo e selecione
“Inserir” -> “Módulo” para criar um novo módulo.

3. Desenvolvimento da Função

Vamos criar a função personalizada “UnirArquivosXLSX” para

combinar mais de 100 arquivos em uma única planilha.

Imagem do código no editor

Código para copiar

Sub UnirArquivosXLSX()

Dim pasta As String, arquivo As String

Dim planilhaDestino As Worksheet

Dim contadorLinhas As Long, i As Long

Dim wbDestino As Workbook, wbOrigem As Workbook

' Define a pasta onde estão os arquivos a serem unidos

pasta = "C:\Caminho\para\os\arquivos\"

' Cria um novo arquivo para receber os dados consolidados

Set wbDestino = [Link](xlWBATWorksheet)

Set planilhaDestino = [Link](1)

' Inicializa o contador de linhas

 contadorLinhas = 1

' Loop para percorrer todos os arquivos na pasta

arquivo = Dir(pasta & "*.xlsx")

Do While arquivo <> ""

' Abre o arquivo atual

Set wbOrigem = [Link](pasta & arquivo)

' Copia os dados da planilha ativa do arquivo atual para a

planilha de destino

[Link]
[Link](contadorLinhas, 1)

' Fecha o arquivo atual sem salvar alterações

[Link] False

' Atualiza o contador de linhas para a próxima inserção

contadorLinhas = contadorLinhas +
[Link]

' Obtém o próximo arquivo da pasta

arquivo = Dir

Loop

' Formatação da planilha de destino (opcional)

[Link]

[Link]

' Exibe uma mensagem de conclusão

 MsgBox "União de arquivos concluída com sucesso!",
vbInformation

' Salva o arquivo consolidado

[Link] "C:\Caminho\para\o\arquivo\[Link]"

[Link]

' Limpa a memória

Set wbDestino = Nothing

Set wbOrigem = Nothing

End Sub

4. Explicação da Função

 Utilizamos as variáveis “pasta” e “arquivo” para representar o

caminho da pasta onde estão os arquivos a serem unidos e o
nome do arquivo atual, respectivamente.

 A variável “planilhaDestino” representa a planilha onde os

dados consolidados serão armazenados.

 As variáveis “contadorLinhas” e “i” são utilizadas para controlar

a posição de inserção dos dados na planilha de destino.

 Criamos um novo arquivo para receber os dados consolidados

utilizando a função “[Link](xlWBATWorksheet)” e
definimos “planilhaDestino” como a primeira planilha do
arquivo.

 O loop “Do While” percorre todos os arquivos na pasta usando a

função “Dir” e abre cada arquivo com a função
“[Link]”.

 Os dados da planilha ativa do arquivo atual são copiados para a

planilha de destino utilizando a função “Copy”.

 O contador de linhas é atualizado para a próxima inserção.

 O loop continua até que todos os arquivos tenham sido

processados.

 Ao final, a função exibe uma mensagem de conclusão e salva o

arquivo consolidado.
 5. Utilização da Função

Com a função personalizada criada, agora podemos unir mais

de 100 arquivos XLSX em um único Excel.

Para fazer isso, siga os passos abaixo:

1. Certifique-se de que os arquivos que deseja unir estejam todos

na pasta especificada na variável “pasta” (ajuste o caminho
conforme necessário).

2. Pressione “Alt + F8” para abrir a caixa de diálogo “Macro”.

3. Selecione “UnirArquivosXLSX” na lista de macros e clique em

“Executar”.

A função “UnirArquivosXLSX” irá unir todos os arquivos

presentes na pasta especificada em uma única planilha no
Excel. O arquivo consolidado será salvo com o nome
“[Link]” no caminho especificado na função
“[Link]”.

Conclusão

E chegamos ao final do nosso artigo: Unindo Mais de 100

Arquivos XLSX em um Único Excel com VBA

Com a função personalizada “UnirArquivosXLSX”, agora você

pode unir mais de 100 arquivos XLSX em um único Excel,
facilitando a análise e a manipulação de grandes volumes de
dados.

A criação de funções personalizadas em VBA no Excel é uma

excelente maneira de automatizar tarefas complexas, aumentar
a produtividade e melhorar a eficiência em nossos projetos.

Espero que esse tutorial tenha sido útil e que você aproveite ao
máximo essa função em suas atividades no Excel. Compartilhe
essa dica com seus colegas e torne o trabalho com o Excel mais
prático e eficaz!

Até a próxima, e lembre-se: com conhecimento e criatividade,

você pode dominar o Excel e alcançar resultados incríveis!

Separando Números de Textos no Excel


Olá, bem vindo (a) a mais um artigo. Hoje, trago uma dica
essencial para quem trabalha com o Excel. O tema
é: Separando Números de Textos no Excel. Vamos aprender
a criar uma função personalizada em VBA que permitirá realizar
essa tarefa de forma automática, poupando tempo e esforço em
seu dia a dia.

Introdução

Muitas vezes, ao lidar com dados em uma planilha do Excel, nos

deparamos com situações em que é necessário separar os
números dos textos contidos em uma célula. Imagine ter uma
coluna repleta de códigos, como “T4SXZ2”, “335TAX”, entre
outros. Em algumas situações, precisamos analisar os números
isoladamente ou os textos individualmente.

No Excel, existem diversas maneiras de realizar essa separação,

como fórmulas e recursos internos, mas criar uma função
personalizada pode tornar essa tarefa ainda mais simples e
produtiva.

Passo a Passo

1. Acesso ao Editor VBA

Antes de começarmos, é necessário acessar o Editor VBA do

Excel. Pressione “Alt + F11” ou, no menu “Desenvolvedor”,
clique em “Visual Basic”.

2. Criação da Função

Dentro do Editor VBA, clique com o botão direito sobre

“VBAProject ([Link])” no painel esquerdo e selecione
“Inserir” -> “Módulo” para criar um novo módulo.

3. Desenvolvimento da Função

Vamos criar a função personalizada “SepararNumerosTextos”

para realizar a separação dos números e textos em uma célula.

Imagem no Editor
Código para copiar

' Função personalizada para separar números e textos em uma

célula

Function SepararNumerosTextos(texto As String) As Variant

' Declaração de variáveis

Dim i As Integer

Dim numero As String, textoSeparado As String

' Inicialização das variáveis

numero = "" ' Armazenará os números encontrados

textoSeparado = "" ' Armazenará os textos encontrados

' Loop para percorrer cada caractere do texto

For i = 1 To Len(texto)

' Verifica se o caractere é numérico utilizando a função

"IsNumeric"

If IsNumeric(Mid(texto, i, 1)) Then

' Caso o caractere seja numérico, adiciona-o à variável

"numero"

numero = numero & Mid(texto, i, 1)

 Else

' Caso o caractere não seja numérico, adiciona-o à

variável "textoSeparado"

textoSeparado = textoSeparado & Mid(texto, i, 1)

End If

Next i

' Retorna um "Array" contendo o número extraído e o texto

separado

SepararNumerosTextos = Array(Val(numero), textoSeparado)

End Function

4. Explicação da Função

 Recebemos o texto desejado como argumento da função.

 Criamos duas variáveis: “numero” para armazenar os números

encontrados e “textoSeparado” para os textos.

 Utilizamos um loop “For” para percorrer cada caractere do texto

recebido.

 Verificamos com a função “IsNumeric” se o caractere é

numérico ou não.

 Caso seja numérico, adicionamos o caractere à variável

“numero”; caso contrário, adicionamos à variável
“textoSeparado”.

 Ao final, retornamos um “Array” contendo o número extraído e o

texto separado.

5. Utilização da Função

Com a função personalizada criada, agora podemos utilizá-la

em nossa planilha.

Na célula onde deseja obter o número extraído, basta utilizar a

fórmula:

=SepararNumerosTextos(A1)(0)

E para obter o texto separado, utilize a fórmula:

=SepararNumerosTextos(A1)(1)
 Assumindo que o código original esteja na célula A1.

Conclusão

Com essa função personalizada, agora você pode separar

facilmente os números dos textos em qualquer planilha do
Excel. Esse recurso é especialmente útil para quem trabalha
com grandes volumes de dados, pois agiliza o processo de
tratamento e análise de informações.

O uso do VBA e funções personalizadas mostra o poder do Excel

em se adaptar às necessidades dos usuários, permitindo
personalizar suas tarefas e otimizar a produtividade.

Espero que essa dica tenha sido útil e que você possa aplicá-la
em seus projetos diários. Compartilhe essa função com seus
colegas e aproveite todos os benefícios que o Excel pode
oferecer!

Até a próxima, e lembre-se: o conhecimento é a chave para o

sucesso no Excel!

Como Usar a Instrução With para Tornar seu VBA

Imbatível

Instrução With (With - End With) no Excel: Simplificando seu

Código VBA

Olá! Seja muito bem vindo(a)! Neste artigo, vamos explorar

detalhadamente como usar a instrução “With” no Excel, mesmo
que você seja um leigo no assunto. Então vamos? Desvendando
o Poder da Instrução With.

Se você já se viu realizando tarefas repetitivas e demoradas no

Excel, como formatação de células, alterações de estilo ou
configurações, certamente já deve ter desejado uma maneira
mais eficiente de executar essas ações.

É aí que entra a instrução “With”, uma ferramenta poderosa

que pode economizar tempo e tornar suas tarefas de planilha
muito mais simples e organizadas.

Você pode gostar também de:

 Como Encontrar e Inserir a Guia Desenvolvedor no Excel

 O que é e como usar o editor de VBA do Excel

O que é a Instrução “With”?

A instrução “With” é uma estrutura de programação que
permite a você realizar uma série de ações em um objeto
específico sem precisar repetir o nome desse objeto
repetidamente. Essa instrução é particularmente útil quando
você está lidando com várias propriedades ou métodos de um
objeto, como células ou intervalos em uma planilha do Excel.

Passo a Passo para Utilização da Instrução “With”:

Passo 1: Identifique o Objeto

Antes de tudo, identifique o objeto no qual você deseja aplicar

as ações. Isso pode ser uma célula, um intervalo, uma planilha
ou qualquer outro objeto suportado pelo Excel.

Passo 2: Abra a Instrução “With”

Comece a estrutura da instrução “With” digitando “With”

seguido do nome do objeto que você identificou no passo
anterior. Por exemplo, se você deseja formatar uma célula, pode
escrever:

With [Link](1, 1)

Passo 3: Execute as Ações

Dentro do bloco “With”, você pode realizar uma série de ações

no objeto identificado sem repetir o nome desse objeto. Por
exemplo, se você quiser definir a cor de fundo da célula, a cor
da fonte e o tamanho da fonte, você pode fazer o seguinte:

With [Link](1, 1)

.[Link] = RGB(255, 255, 0) ' Define a cor de fundo

para amarelo

.[Link] = RGB(0, 0, 0) ' Define a cor da fonte para preto

.[Link] = 12 ' Define o tamanho da fonte para 12

End With

Passo 4: Encerre a Instrução “With”

Em suma, após concluir todas as ações dentro do bloco “With”,

não se esqueça de encerrar a instrução usando o comando “End
With”. Isso indica ao Excel que você terminou de executar ações
nesse objeto.

Exemplo Prático: Automatizando Formatação de Tabelas

com a Instrução “With” no Excel
Primeiramente, imagine que você é responsável por manter um
relatório mensal de vendas em uma planilha do Excel.

Cada mês, você precisa formatar diversas tabelas com

informações de produtos, valores e quantidades vendidas.

Em vez de realizar manualmente a formatação em cada célula

repetidamente, vamos ver como a instrução “With” pode tornar
esse processo mais eficiente.

Passo 1: Identificar a Tabela

Em princípio, suponha que você tenha uma tabela de vendas

para o mês de julho em sua planilha, que consiste em três
colunas: “Produto”, “Valor” e “Quantidade”.

Passo 2: Usar a Instrução “With”

Ao invés de formatar cada célula individualmente, você pode

usar a instrução “With” para aplicar formatação à tabela de
vendas de uma vez. Vamos assumir que você deseja formatar a
tabela com fonte negrito, cor de fundo nas células do cabeçalho
e alinhar o texto ao centro.

Sub FormatarTabelaDeVendas()

With [Link]("TabelaVendas").HeaderRowRange

.[Link] = True

.[Link] = RGB(0, 102, 204) ' Azul para o cabeçalho

.HorizontalAlignment = xlCenter ' Alinhar ao centro

End With

End Sub

Neste exemplo, a instrução “With” é usada para selecionar o

cabeçalho da tabela (“HeaderRowRange”) e aplicar as
formatações desejadas a ele.

Passo 3: Executar o Código

Após inserir o código acima em um módulo VBA na sua planilha,

você pode executar a macro “FormatarTabelaDeVendas”. Isso
automaticamente formata o cabeçalho da tabela de vendas
sem a necessidade de selecionar manualmente as células ou
repetir os comandos de formatação.

Benefícios da Instrução “With”:

 Economia de Tempo: Ao evitar repetir o nome do objeto, você
economiza tempo e reduz erros.

 Legibilidade: O uso da instrução “With” torna o seu código

mais limpo e legível, facilitando a compreensão das ações
realizadas.

 Organização: Suas ações são agrupadas dentro do bloco

“With”, o que ajuda a manter sua planilha mais organizada.

Conclusão:

A instrução “With” é uma ferramenta valiosa que pode elevar

suas habilidades no Excel para um novo patamar.

Ao seguir o passo a passo de Como Usar a Instrução With no

Excel apresentado neste artigo, você poderá realizar ações em
objetos do Excel de maneira mais eficiente, economizando
tempo e melhorando a organização de suas planilhas.

Experimente a instrução “With” e descubra como ela pode

transformar a forma como você lida com suas tarefas no Excel.