por ALBERTOMPA » 13 Abr 2011 05:37
A ver si soy capaz de explicartelo de forma fácil.
La macro está hecha exactamente para el ejemplo que enviaste. Para ampliar las filas y columnas deberás por tanto modificar la macro. Para acceder a ella (Tanto para modificarla como para si quieres copiarla para llevartela a tu aplicación real) tienes 2 opciones:
1ª Pulsa la tecla ALT + F11 con ello accedes al editor de Visual Basic, una vez allí en la parte izquierda busca el Módulo1, que está dentro de la carpeta de Módulos, que a su vez está dentro del proyecto VBAProject (PRUEBA CON MACRO.xlsm). En la parte derecha de la pantalla podrás ver entonces la macro en cuestión que se llama Sub VOLCADOYORDEN().
2ª opción: Ponte sobre la imagen que lanza la macro (despues de haber habilitado el contenido) pulsa el botón derercho del ratón elige Asignar macro, pulsa en modificar, con ello se abrirá el editor y tendrás en la parte derecha de la pantalla la macro Sub VOLCADOYORDEN().
Está dividida en 3 partes (1 para cada una de las 3 pestañas de tu ejemplo). Cada parte empieza seleccionando una de las 3 pestañas :
Sheets("PRECIO").Select
Sheets("STOCK").Select
Sheets("TIEMPO SERVICIO").Select
Dentro de cada una de las 3 partes tendrás que modificar 2 cosas:
1º Donde veas Range("B1:C10) cambialo por la 1ª y la última celda de la nueva tabla que quieres ordenar.
2º Donde veas Range("C2:C10) cambialo por la 1ª y la última celda de la columna que quieres que sirva de llave para ordenar (ordenar por).
En principio deberás poner lo mismo para las 3 pestañas (hojas)(Sheets).
Si en tu hoja definitiva cambias los nombres de las pestañas deberás asegurarte de que en la macro están también los nuevos nombres para que la macro funcione correctamente.
Espero que te sirva
Un saludo
Alberto
Con eso tendrías la macro adaptada.
Un saludo
Alberto