Página 1 de 1

Código para ordenamento de colunas

Enviado: 16 Nov 2015 às 13:55
por EversonTiso
Olá a todos!
Encontrei esse código na net para ordenamento de colunas. Se uso a tecla "play" no modulo VBA funciona sempre. Porém, gostaria que ele funcionasse "automaticamente" sem ter que entrar no modo desenvolvedor. Tem como fazer isso?
Desde já agradeço a ajuda.
Abraços a todos.
.....................................................................................................................................

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Worksheets(2).Range("a1:iv86"), Target) Is Nothing) Then
DoSort
End If
End Sub

Private Sub DoSort()
Worksheets(2).Range("a2:iv86").Sort Key1:=Worksheets(2).Range("b2"), Order1:=xlDescending, _
Key2:=Worksheets(2).Range("a2"), Order1:=x1Ascending

End Sub

Re: Código para ordenamento de colunas

Enviado: 16 Nov 2015 às 14:47
por alexandrevba
Boa tarde!!

Esse evento
Código: Selecionar todos
Worksheet_Change(ByVal Target As Range)
Executa automaticamente, neste caso toda vez que as células
Código: Selecionar todos
Range("a1:iv86")
, sofrer alteração (mas não de formulas).


Att

Código para ordenamento de colunas

Enviado: 18 Nov 2015 às 15:19
por EversonTiso
Alexandre,

Estava usando em um arquivo com Plan1 e Plan2. Onde a VBA atuava na Plan2 sendo que os valores estavam sendo copiados conforme o exemplo =Plan1E2 . Como faço para usar VBA em células com fórmulas? Segue em anexo o arquivo.
Grato pela atenção e ajuda.

Re: Código para ordenamento de colunas

Enviado: 19 Nov 2015 às 12:19
por alexandrevba
Boa tarde!!

Use.
Código: Selecionar todos
Private Sub Worksheet_Calculate()
Att