Ir ao conteúdo
  • Cadastre-se

Excel Ordenar Crescente no excel 2010 64bits


Posts recomendados

Preciso de Ajuda, por favor amigos....

Tenho uma planilha que foi criada no EXCEL 2016 Sistema 32Bits (Notebook), só que no meu trabalho utilizo EXCEL 2010 Sistema 64Bits.

Preciso Ordenar a coluna B em crescente sempre que um novo ID Criado pelo usuário exemplo (CT-0001.P ou CT-0001.A1...) para gerar o próximo ID para o Usuário. no meu Notebook  onde foi criado funciona perfeitamente só que no trabalho não. no mais tudo funciona.

Código no 32bits 2016

 

'Excel 2016

'  ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Clear
'    ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Add2 Key:= _
'        Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
'        :=xlSortNormal
'    With ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort
'        .Header = xlYes
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
'        .Apply
'    End With
'___________________________________________________________________________________________________

'Excel 2010 64bits

  ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Add Key:= _
        Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Clientes").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub


Obs: Quando substitui o código da erro de formatação na minha planilha...

Será que tem algum código que sirva para os dois. Obrigado

Link para o comentário
Compartilhar em outros sites

1 hora atrás, CasaDoHardware disse:

Experimente este codigo

 

Sub Classificar()

Dim Sh As Worksheet


Set Sh = Sheets("Clientes")


With Sh.Sort

.SortFields.Clear
.SortFields.Add Key:=Range("B1:B2000"), Order:=xlAscending
.Header = xlYes
.Apply

End With

End Sub
 

 

adicionado 1 minuto depois

Obrigado por responder, mas não funcionou não acontece nada, não entendo. Desespero continua...

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...