aun no ordeno automatico

[jorgeg_14]

juan pablo, aun sigo sin poder ordenar automactiamente como ya te lo habia explicado, me pues porfavor decir un poco mas detalladamente que es lo que debo hacer para que esto suceda?

Gracias

 

[Juan Pablo González]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

Set Rng = Range("A1:A10")

If Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort Key1:=Rng.Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub


Este macro ordena automáticamente el Rango A1:A10 en orden ASCENDENTE (xlAscending) y asume que hay un título.

 

[jorgeg_14]

Juan Pablo, muchas gracias por tu ayuda, de verdad me ha servido de mucho, solo te quisiera preguntar por ultimo, cual es el formato que tengo que poner si quiero ordenar algo

por ejemplo


Nombre Edad Sueldo
Jorge 25 $458
Pedro 65 $125
Juan 12 $478
Pablo 78 $100

si tengo esa tabla y quiero ordenar la tabla ya sea ascendente o descendente pero basandome como primer criterio en la columna C y despues en la columna B

como cabiaria esto el formato que me diste

Gracias de antemano
This message was edited by jorgeg_14 on 2002-04-13 00:04

 

[Juan Pablo González]

http://www.mrexcel.com/board/viewtopic.php?topic=5248&forum=8&1