Este fórum está sendo desativado

[DaltonSilva]

Senhores, bom dia, mestres.
Estou querendo "transformar" uma tabela em "outra".
A tabela gerada pelo google forms tem o seguinte formato:


Quero que ela fique no seguinte formato:


Desde já agradeço a quem puder auxilar.
Segue em anexo o arquivo.

[babdallas]

Veja se ajuda.

[DaltonSilva]

Perfeito, meu amigo. Muito obrigado. Ajudou-me bastante.
Resolvido. Tudo de bom.

[DaltonSilva]

@babdallas

Meu amigo, bom dia.
Veja se consegue me ajudar mais uma vez.
Peguei essa sua solução e incrementei mais algumas colunas.
Em princípio, achei que havia dado certo, porém, não foi o resultado esperado.
A fim de complementar, novamente, vou colocar o formato da tabela de origem.

Agora, segue a tabela do resultado esperado.

Segue o arquivo GURU_Nova_Volunt que corresponde a nova formatação dos dados que estou trabalhando.
Logo abaixo, a imagem da tabela com o resultado que cheguei utilizando as suas etapas.

Perceba que nem os horários, nem os comandos seguiram as datas selecionados pelos voluntários.
Desde já agradeço a quem puder ajudar.

[babdallas]

Veja se é isso.

Código: Selecionar todos

let
    Fonte = Excel.CurrentWorkbook(){[Name="Tabela1"]}[Content],
    SelecionaCol = Table.SelectColumns(Fonte,{"Carimbo de data/hora", "Nome Funcional", "Tem interesse e/ou disponibilidade para participar em quais dias?"}),
    AlteraTipoInicio = Table.TransformColumnTypes(SelecionaCol,{{"Carimbo de data/hora", type date}, {"Nome Funcional", type text}, {"Tem interesse e/ou disponibilidade para participar em quais dias?", type text}}),
    ExtraiPeriodo = Table.TransformColumns(AlteraTipoInicio, {{"Tem interesse e/ou disponibilidade para participar em quais dias?", each Text.BetweenDelimiters(_, " ", " ", 6, 2)}}),
    AlteraTipoPeriodo = Table.TransformColumnTypes(ExtraiPeriodo,{{"Tem interesse e/ou disponibilidade para participar em quais dias?", type text}}),
    RenomeiaColunas = Table.RenameColumns(AlteraTipoPeriodo,{{"Carimbo de data/hora", "Data"}, {"Nome Funcional", "Nome"}, {"Tem interesse e/ou disponibilidade para participar em quais dias?", "Período"}}),
    AgrupaDataPeriodo = Table.Group(RenomeiaColunas, {"Data", "Período"}, {{"NomeCol", each List.Transform({1..Table.RowCount(_)}, each "Nome " & Text.From(_))}}),
    #"Contagem Expandido" = Table.ExpandListColumn(AgrupaDataPeriodo, "NomeCol"),
    AlteraTipoDados = Table.TransformColumnTypes(#"Contagem Expandido",{{"NomeCol", type text}}),
    AdicionaColIndice = Table.AddColumn(AlteraTipoDados, "Indice", each Number.From(Text.AfterDelimiter([NomeCol], "Nome ")), Int64.Type),
    AdicionaColNome = 
            Table.AddColumn(AdicionaColIndice, "Nome", each let
                        pData = [Data], 
                        pPeriodo = [Período],
                        pIndice = [Indice]
                    in 
                        Table.SelectRows(
                            RenomeiaColunas, 
                            each [Data]=pData and [Período]=pPeriodo)[Nome]{pIndice-1}, type text),
    SelecionaColunas = Table.SelectColumns(AdicionaColNome,{"Data", "Período", "NomeCol", "Nome"}),
    Pivoteia = Table.Pivot(SelecionaColunas, List.Distinct(SelecionaColunas[NomeCol]), "NomeCol", "Nome")
in
    Pivoteia

[DaltonSilva]

Meu amigo babdallas. Solução perfeita, muito top.
Ajudou-me bastante. Fiz algumas modificações nas etapas a fim de considerar a data descrita na coluna "Tem interesse e/ou disponibilidade para participar em quais dias?" ao invés da data da coluna "Carimbo data/hora".
No final, tudo certo, obrigado mesmo. Abraços!

[babdallas]

@DaltonSilva ,

que bom que deu certo! Encerra o tópico como concluído, por favor.

[DaltonSilva]

@DaltonSilva ,

que bom que deu certo! Encerra o tópico como concluído, por favor.

Tranquilo. Só não aparece esse opção. Se tiver como concluir, agradeço. Faz algum tempo que tento localizar essa opção, porém, não tem disponível.