Hi there,
I have a doubt that I explain in the attach file, I think is a simple one....
If any of you guys can take a look I appreciate.
best regards,
Ismael
Hi there,
I have a doubt that I explain in the attach file, I think is a simple one....
If any of you guys can take a look I appreciate.
best regards,
Ismael
Try this.
Option Explicit Sub Sort() Range("B9:B20").Sort Key1:=Range("B9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C9:C20").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("D9:D20").Sort Key1:=Range("D9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("E9:E20").Sort Key1:=Range("E9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("F9:F20").Sort Key1:=Range("F9"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Hi DRJ,
Is everything ok with you?
when I execute the macro, a message of an error appear, you can see this error in the attach file.
thanks
I'm doing fine.
Try this.
Option Explicit Sub Sort() Range("B9:B20").Sort Key1:=Range("B9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("C9:C20").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("D9:D20").Sort Key1:=Range("D9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("E9:E20").Sort Key1:=Range("E9"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("F9:F20").Sort Key1:=Range("F9"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub
Many thanks DRG,
the macro works perfectly, I just delete one more line
I think by mistake you left there, and now everything works nice.DataOption1:=xlSortNormal
Best regards
Ismael