Neste artigo, criaremos uma macro para organizar os dados do dia a dia em várias planilhas.
Os dados brutos para este artigo consistem em dados de vendas diários da equipe, que incluem Data, Nome do Agente e Número de itens vendidos.
Queremos distribuir os dados do dia a dia em várias planilhas. Clicar no botão “Distribuir dados do dia a dia” fará o mesmo.
Explicação do código
Do Até IsEmpty (planilhas (1). Células (intRowS, 1))
Ciclo
No código acima, o loop Do Until fará um loop até que uma célula em branco seja encontrada.
strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")
O código acima é usado para extrair o nome da folha a partir da data.
intRowT = Worksheets (strTab) .Cells (Rows.Count, 1) .End (xlUp) .Row + 1
O código acima é usado para obter o número da linha da última célula.
Siga abaixo para o código
Sub Divide () 'Declarando variáveis Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Inicializando com o número da linha inicial intRowS = 10 'Verificando se a célula na primeira coluna está vazia Faça Até IsEmpty (Worksheets (1) .Cells (intRowS, 1)) 'Obtendo o nome da planilha com base no valor da data na primeira coluna strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")' Obtendo o número da linha da última célula intRowT = Worksheets (strTab). Células (Rows.Count, 1) .End (xlUp) .Row + 1 'Copiar dados para as respectivas planilhas Rows (intRowS) .Copy Worksheets (strTab) .Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail