O Dashboard Excel

Range(“A1”) – seleciona a célula A1;

End(xlDown) – mesma função de Ctrl + seta pra baixo – chega na ulitma célula preenchida;

Row – pega a linha da célula selecionada.

& - concatenar

Range("C2:C" & linha_fim).Copy – esta selecionando a célula c2 até a linha_fim e copiando;

Range("J1").PasteSpecial - Pega a célula J1 e cola especial;

Application.CutCopyMode = False – é o ESC. Pra tirar a base de cópia;

ActiveSheet.Range("$J$1:$J$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _

    xlNo – Remove duplicatas das células j1 até linha_fim

linha_fim = Range("J1").End(xlDown).Row – seleciona célula j1 joga na ultima célula preenchida e pega a linha dessa célula;

While linha <= linha_fim -  enquanto linha for menor ou igual a linha_fim;

  Sheets.Add After:=ActiveSheet – cada vez que passar por esse código adiciona uma nova aba;

    ActiveSheet.Name = Sheets("Base de Dados").Cells(linha, 10)-  seleciona a aba nova, no nome recebe da aba base de dados a célula na linha linha(variável) e coluna 10(J);

        Sheets("Base de Dados").Range("A1:C1").Copy – indo na aba base de dados selecionando de a1 a c1 e copiando.

    ActiveSheet.Range("A1").PasteSpecial – indo na aba ativa na célula a1 e colando especial    

    linha = linha + 1 – quebra de repetição ele adiciona +1 ao valor de linha, e como está em while, na condição linha<= linha_fim, quando linha chegar em um valor maior que linha_fim ele segue pra frente no código;

sheets("Base de Dados").Range("J:J").Clear – vai na aba base de dados, seleciona a coluna j e limpa ou deleta;

linha = 2 – linha agora é igual a 2;

While Sheets("Base de Dados").Cells(linha, 1) <> "" – enquanto a célula linha (linha =2) coluna 1, for diferente de vazio(“”) ele executa o while;

    Sheets("Base de Dados").Range("A" & linha & ":C" & linha).Copy -  vai na base de dados e seleciona a linha(linha 2) A2 até c linha (linha =2) C2 e copia;    

    bairro = Sheets("Base de Dados").Cells(linha, 3)-  variável bairro recebe a célula linha e coluna 3 nesse caso no primeiro while é C3;

    Sheets(bairro).Select – seleciona a aba do nome do bairro da linha que está;

    Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial-  seleciona a célula a10000 da Ctrl+ seta pra cima, onde vai na ultima célula preenchida, o offset (1,0) significa que ele anda uma linha pra baixo e zero colunas pro lado e depois cola especial;

    Application.CutCopyMode = False - ESC

   

    Sheets("Base de Dados").Select – Seleciona a aba base de dados;

    linha = linha + 1 – vai adicionando +1 a variável linha até ficar no vazio.

Wend

For Each aba In ThisWorkbook.Sheets – para cada aba dentro da planilha

    aba.Columns("A:C").AutoFit- seleciona as  colunas A até C e da um auto ajuste

Next

End Sub