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
Private Sub Crescente()
' 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
Private Sub Crescente()
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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ordenar Coluna Excel 2016 VBA 32bits X Excel 201064Bits
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Qui Abr 12, 2018 9:44 pm