Este fórum está sendo desativado

[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

[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

[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.

[alexandrevba]

Boa tarde!!

Use.

Código: Selecionar todos

Private Sub Worksheet_Calculate()

Att