Posteado por: edeortuzar | 02/05/2013

VBA – Excel – Error al ordenar un rango


Si tienen un código como el siguiente:

ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("C11"), _
   SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Y tienen el siguiente mensaje error al ejecutar repetidamente este código:

Se ha producido el error ‘1004’ en tiempo de ejecución:

Error definido por la aplicación o el objeto

Prueben solucionarlo poniendo previamente la siguiente línea:

ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

De manera tal que el código les quedar:

ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("C11"), _
   SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Saludos.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

A %d blogueros les gusta esto: