Código para ordenamento de colunas
Enviado: 16 Nov 2015 às 13:55
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
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