Macro para consolidar tabelas

Segue em anexo uma macro que lê dados das tabelas 1 e 2, coloca uma debaixo da outra, e cola na aba de resultados. Link para download.

Esta utiliza um “toolbox” que fiz ao longo dos anos.

Tem uma função para copiar dados e jogar numa variável

copiaDados 2, 1, 10, tab1, “Tab1”

copiaDados 2, 1, 10, tab2, “Tab2”

Outra função para colocar uma tabela embaixo da outra

appendlins tab1, tab2, consolidado

e outra função para colar.

Anúncios

Templates de mapas

Templates de mapas são muito úteis, tanto no Excel quanto no Power Point.

Para colorir um país específico, basta selecionar o shape e pintar manualmente.

Cada país foi desenhado como um shape. Peguei os templates a seguir de diversas fontes. A própria Microsoft oferece diversos templates interessantes.

Mapa Múndi. Link para download.

Mapa do Brasil e outros mapas. Link para download.


Criptografia XOR

Segue neste link uma implementação de um método muito simples de criptografia, a XOR.

image002.png

É necessário ter uma chave, digamos o número 10. Este método é simétrico, o que significa que tanto a pessoa que encripta quanto a que decripta deve conhecer a mesma chave.

Clicando em encriptar, gera-se o resultado com as letras esquisitas.

Ao decriptar, volta-se à mensagem original.

Como obter o nome do usuário pelo vba

Segue aqui um exemplo de como obter o usuário de rede, e nome do computador pelo vba.

É um truque bem simples, e serve para gravar a pessoa que fez alguma ação.

 

Username.png

 

Dim GetUserN

Dim ObjNetwork

Set ObjNetwork = CreateObject(“WScript.Network”)

 

Dim UsuarioRede As String

Dim computer As String

Dim domain As String

 

 

UsuarioRede = ObjNetwork.UserName

computer = ObjNetwork.computername

domain = ObjNetwork.userdomain

 

MsgBox “Usuário: ” & UsuarioRede & Strings.Chr(10) & “Computador: ” & computer & Strings.Chr(10) & “Domínio: ” & domain

 

 

Formatação condicional

Seguem algumas dicas de formatação condicional.

 

Há uma série de formas de pintar as células segundo regras de cores, ícones, etc.

Por exemplo, realçar quem tem valor igual a 1:

 

Página Inicial -> formatação condicional -> realçar regras das células -> É igual a

 

Format01.jpg

 

Resultado:

Format02.png
Para valores duplicados, selecionar o range desejado e ir em Página Inicial -> formatação condicional -> realçar regras das células -> valores duplicados.

Format03.jpg

Resultado:

 

Format04.png

E assim sucessivamente, há uma infinidade de regras à disposição.

Format05.jpg

 

A parte mais avançada e difícil é criar fórmulas personalizadas.
Primeiro, escolher o range onde a regra será aplicada.
=$C$6:$D$15

 

Coloquei a fórmula a seguir.
=SE($C6=”b”;1;0)
O que confunde muito é a forma de travar a célula:
C6: sem travamento
$C6 : trava a coluna C
C$6: trava a linha 6
$C$6: trava a linha e coluna
Para escolher a opção desejada, é só imaginar que é uma fórmula da planilha, que vai ser arrastada no range selecionado.
Format06.jpg

 

Segue exemplo aqui.

Segmentação de dados

Segmentação de dados é um truque interessante, para quem monta dashboards.

Seg01.png

O primeiro passo é criar uma tabela dinâmica, ou gráfico dinâmico.

 

Seg02.jpg

 

Seg03.png
Depois, Inserir -> segmentação de dados.

 

Seg04.jpg

 

E escolher o que vai aparecer no menu.

 

Seg05.png
O resultado é um gráfico com um menu visual.
Vale somente do Excel 2007 em diante.

 

Seg06.png

Download de exemplo aqui.

Multiplicador de shapes

Segue aqui uma rotina que copia e cola um shape segundo um padrão retangular.

O shape deve estar selecionado, ao rodar a macro.
Define-se o número de linhas e colunas, e o espaçamento entre shapes.

shapes01.png

Deve-se agrupar shapes (selecionar shapes, botão direito, agrupar), quando há uma composição de shapes formando um desenho.

O VBA é basicamente uma automação do ctrl+c + ctrl +v:
.Copy
ActiveSheet.Paste
E depois um redirecionamento da posição do shape.
.Left = x0 + (i – 1) * space
.Top = y0 + (j – 1) * space
Uma aplicação possível?
Brincar de Escher, como no post a seguir.

https://ideiasesquecidas.com/2015/11/23/escher-e-aspirantes-a-escher/

 

shapes02.png
Att