OUTROS

27. Aplicar cores alternadas em uma seleção

As cores intercaladas facilitam a leitura de dados, a única maneira de fazer
isso no Excel sem macro, é aplicando a formatação de tabela, função nem
sempre desejada. Esta macro faz esta função de forma simples e direta, com a
cor desejada.

Obs: para trocar as cores basta trocar o código da cor destacado em negrito.

Sub CoresIntercaladas()
Dim Selecao As Range
Dim Linha As Range
Set Selecao = Selection
For Each Linha In Selecao.Rows
If Linha.Row Mod 2 = 1 Then
Linha.Interior.ColorIndex = 15
End If
Next Linha
End Sub

28. Consolidar todos as abas na primeira

Um processo manual muito comum é a consolidação de dados, onde muitas
vezes um arquivo bruto extraído do banco de dados, vem fragmentado em
diversas abas. Esta rotina permite copiar dados de diversas abas e consolidar
em uma primeira.

Obs1: A macro está configurada para agrupar os dados que começam a partir
da célula A1.