Inscreva-se: http://viverdexcel.com.br/ #viverdexcelProfessor Ivair Claudio Ferrari: http://www.youtube.com/subscription_center?add_user=ivairferrariProfessor Jhonny Lopes: https://www.youtube.com/user/LopesJhonny?sub_confirmation=1Abraco a Todos !!! Classificar numeros e uma linha com algumas colunas com a funcao MENORCom a utilizacao da funcao MENOR, classifique numeros em uma linha para facilitar seu trabalho.Depois que voce classificar, se necessario, voce pode juntar, ou concatenar (com a funcao CONCAT) estes valores numa so coluna.Veja o video a seguir e aprenda a fazer isso:Aproveite e inscreva-se em meu canal no Youtube para receber informacoes de novas aulas:Meu_Canal_no_YouTube: IVAIRFERRARIObrigado por voce estar aqui!Professor e ConsultorIvair Claudio Ferrari Numeracao Automatica no Excel com VBA (Macro)Quando desenvolvemos aplicativos (softwares ou alguma outra solucao) em Excel precisamos criar uma coluna com Numeracao Automatica (conhecida por ID (sequencia logica de numeros)).Existem varias maneiras de fazer isso. Esta postagem estara abordando duas maneiras de fazer isto atraves das macros (VBA).1. Numeracao Automatica sem Interrupcao O script (macro) a seguir pode ser utilizado para inclusao de numeracao automatica sem interrupcao ou seja, toda vez que um novo item for adicionado na base, toda a numeracao e refeita e, se algum item tiver sido excluido, a numeracao e ajustada.A figura ao lado demonstra o exemplo citado. Na planilha mais a esquerda vemos uma numeracao com a falta de tres numeros: 3, 4 e 7.Depois que rodamos a Macro, a numeracao e refeita e ajustada conforme planilha mais a direita e o numero sequencial adicionado e o 7.Macro: Numeracao automatica sem interrupcao: Sub numeracao_sem_interrupcao() i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 For j = 2 To i If IsNumeric(Plan1.Cells(j - 1, 1)) Then Plan1.Cells(j, 1) = Plan1.Cells(j - 1, 1) + 1 Else Plan1.Cells(j, 1) = 1 End If Next End SubExplicacoes sobre a macro: i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 Encontra a ultima linha com informacoes e avanca mais uma linha. For j = 2 To i ... Next Faz um loop (ciclo), ou percorre ate que a variavel "j" seja igual a variavel "i". If ... Else ... End If Condicoes "Se ..." e "Senao ...". Se a primeira condicao for atendida, sendo um valor numerico (If IsNumeric(Plan1.Cells(j - 1, 1)) Then) executa a linha depois do "If": (Plan1.Cells(j, 1) = Plan1.Cells(j - 1, 1) + 1); senao, executa a linha depois do "Else": (Plan1.Cells(j, 1) = 1).2. Numeracao Automatica com InterrupcaoO script (macro) a seguir, assim como o anterior, pode ser utilizado para inclusao de numeracao automatica. A diferenca e que toda vez que um novo item for adicionado na base, a numeracao nao e refeita. Apenas um numero sequencial e adicionado na primeira linha em branco que for encontrada adicionando o valor 1 ao valor da celula anterior (acima).A figura ao lado demonstra o exemplo citado. Na planilha mais a esquerda vemos uma numeracao com a falta de tres numeros: 3, 4 e 7.Depois que rodamos a Macro, a numeracao NAO e refeita conforme planilha mais a direita e o numero sequencial adicionado e o 10 (somasse o valor da celula anterior 9, + 1).Macro: Numeracao automatica com interrupcao: Sub numeracao_com_interrupcao() j = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 'For j = 2 To i If IsNumeric(Plan1.Cells(j