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".
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