Achei um código que funciona:
Public Sub Worksheet_Change(ByVal Target As Range)
Sheets("Plan1").Columns("B:G").Sort _
key1:=Sheets("Plan1").Range("B3"), _
order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
mas tem dois problemas:
1. sempre que a macro é executada, o histórico de Desfazer/Refazer do Excel é zerado, de modo que no caso de algum erro, ou reabro a planilha e perco todas minhas alterações, ou tenho de refazer quaisquer mudanças à mão. Tive esse mesmo problema ao executar a macro de auto ajustar largura das colunas e não consegui arrumar. Alguma solução pra manter as macros mas resolver esse problema como Desfazer/Refazer?
2. onde eu posso ver uma lista desses parâmetros e o que eles fazem? key1, order1, OrderCustom, etc.
Postado : 19/12/2013 4:01 pm