polboy_mx
New Member
- Joined
- Oct 7, 2004
- Messages
- 33
hoal use este codigo y me funciono bien pero quisiera que los resultados del rango B4 y C4 no se repitieran y los del rango D4 se ordenaran (ascendente o descendente)
Range("A4:I5000").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Key3:=Range("H4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B3").Select
gracias
Range("A4:I5000").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Key3:=Range("H4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B3").Select
gracias