Reorganizar listas de linhas em um ponto com base na ordem cronológica de datas nessas linhas

0

Eu tenho quatro cursos que quero planejar este termo. Eu listei os dados de testes e atribuições de cada curso em tabelas separadas no Excel da seguinte forma:

Euqueroresolveroproblemadecompilarereordenaraslinhasdessastabelascombasenaordemcronológicadesuasdatasnolocaldiferenteeúnicodaseguinteforma:

Seja usando fórmulas, formatação condicional ou algo mais, qual é o método mais eficiente para fazer isso?

    
por Juwaiber 12.01.2018 / 10:32

1 resposta

0

Depois de considerar os intervalos de dados para diferentes cursos e o resultado final, posso sugerir que você faça o seguinte.

  1. Colete todas as 4 partes em um intervalo de dados por Copiar & Colar ou código VBA.
  2. Classifique todo o intervalo na data em ordem crescente.
  3. Finalmente, aplique a formatação condicional.

Você pode usar este código VBA simples para Copy & Colar dados junto com os formatos de células economizará seu tempo e você poderá pular o formato.

Sub CommandButton1_Click()

Dim CopyRng As Range, PasteRng As Range

Title = "Copy & Paste"

Set CopyRng = Application.Selection

  Set CopyRng = Application.InputBox("Ranges to Copy :", Title, CopyRng.Address, Type:=8)
    Set PasteRng = Application.InputBox("Range to Paste, select Single cell):", Title, Type:=8)

       CopyRng.Copy

         PasteRng.Parent.Activate

           PasteRng.PasteSpecial xlPasteValuesAndNumberFormats

            PasteRng.PasteSpecial xlPasteFormats

         Application.CutCopyMode = False

End Sub

Este código VBA que você pode usar para classificar na coluna Data.

Sub CommandButton2_Click()

Dim SortRange As Range, keyRange As Range

  Set SortRange = Application.InputBox("Sort Range", SortRange.Address,Type:=8)

  Set keyRange = Application.InputBox("Key Range", keyRange.Address,Type:=8) 

SortRange.Sort Key1:=keyRange, Order1:=xlAscending

End Sub

NB: Espero que isso ajude você. Se a minha solução for diferente da sua ideia, basta comentar.

    
por 12.01.2018 / 13:41