Macro excel

[Diego Nicola]

Boa Noite Pessoal!

Estou precisando ajuda para montar uma macro, pois ainda sou iniciante no assunto..

Tenho uma planilha no excel que fazemos o controle da entregas de EPI's na empresa, essa planilha é alimentada por um leitor de código de barras (Colaborador e EPI), porém quando o leitor de códigos de barras faz a leitura ele gera um código de barra abaixo do outro (Imagem 1),primeiramente é feito a leitura do colaborador e depois dos EPIS que foram entregues, nesse anexo já usei o procv para aparecer os nomes dos colaboradores e EPIS, preciso de uma macro que ordene os valores conforme (Imagem 2).

Desde já, Obrigado!!

[diego_janjao]

Supondo que os dados estejam na coluna A:

 

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("A1:B6")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

 

[DJunqueira]

você tb pode fazer o q você deseja com Nova Consulta sem precisar habilitar macros.

Veja exemplo na planilha anexa.

Remodelar tabela.xlsx

[Diego Nicola]

17 horas atrás, DJunqueira disse:

você tb pode fazer o q você deseja com Nova Consulta sem precisar habilitar macros.

Veja exemplo na planilha anexa.

Remodelar tabela.xlsx

Bom dia DJunqueira, 

Obrigado pela ajuda, está dando uma mensagem de erro quando eu clico em atualizar, imagem em anexo.

Poderia me explicar o caminho para montar uma tabela dessas?

Essa tabela tem como fazer ela atualizar automaticamente a cada vez que abre a planilha no excel?

Obrigado!!

adicionado 2 minutos depois

Em 20/12/2016 às 22:21, diego_janjao disse:

Supondo que os dados estejam na coluna A:

 

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("A1:B6")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

 

Bom dia Diego,

Testei a macro, mas ela não está ordenando conforme imagem 2..

Obrigado.

[DJunqueira]

Em 22/12/2016 às 07:20, Diego Nicola disse:

Bom dia DJunqueira, 

Obrigado pela ajuda, está dando uma mensagem de erro quando eu clico em atualizar, imagem em anexo.

Poderia me explicar o caminho para montar uma tabela dessas?

Essa tabela tem como fazer ela atualizar automaticamente a cada vez que abre a planilha no excel?

Obrigado!!

adicionado 2 minutos depois

 

@Diego Nicola, p/ a solução com Nova Consulta funcionar você deve ter a versão do Excel 2010 ou mais recente com o suplemento p/ Power Query instalado nas versões 2010 e 2013, na última já vem nativo.

 

P/ instalar o suplemento:

https://www.microsoft.com/pt-BR/download/details.aspx?id=39379