Saltar al contenido

Macro para ordenar datos de una columna

publicado

Buenos días, ante todo muchas gracias por todo el apoyo que se recibe de este foro. Muchas veces he encontrado la respuesta de algún problema aquí. Acabo de inscribirme al foro porque tengo un problema con una Macro que genera el error "Se ha producido un error '438' en tiempo de ejecución: El objeto no admite esta propiedad o método".

Yo utlizo Office 2010 y funciona bien, pero el error me sucede cuando el archivo lo abren compañeros que tienen una versión anterior (2002 creo).

Esta es la macro, la hice a través de la herramienta de grabar macros. Quizás de ahí venga el error.

La idea principal es que haga dos ordenamientos, primero por la columna "c" y luego por la columna "b".

Muchísimas gracias!

Sub ORDENARTARJETAS()

'

' ORDENARTARJETAS Macro

'

'

Sheets("DATOS 2").Select

ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort.SortFields.Add Key:= _

Range("C1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort.SortFields.Add Key:= _

Range("B1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("DATOS 2").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Sheets("RESUMEN").Select

End Sub

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.