Pessoal bom dia!
Eu criei uma macro no vba para ela classificar os meu valores da planilha em ordem decrescente, no computador onde eu criei esta funcionando normalmente porem quando coloco em outro pc esta dando o senguinte erro.
Mensagem de erro do VBA
“Erro em tempo de execução ‘438’:
O objeto não aceita esta propriedade ou método”
segue abaixo o código depurado (em amarelo esta o erro que eu não consegui identificar)
Sub ORDEM_DECRECENTE_A_PARTIR_DA_LINHA_5()
'
' ORDEM DECRECENTE A PARTIR DA LINHA 5
'
'
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.EntireRow.Delete
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add2 Key:=Range("A5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Plan1").Sort
.SetRange Range("A5:XFD1048576")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range(Selection, Selection.End(xlToLeft)).Select
ActiveCell.FormulaR1C1 = "Soma"
Range("A1").Select
End Sub
Desde já agradeço
