Preciso de ajuda... Classificação Automatica

[Dhanylo]

Fala galera... Preciso de uma ajuda.

Construi uma tabela de classificação automatica de times no excel e criei uma macro para atualizar automatico... mas só consigo atualizar por botao... queria que ela atualiza-se automaticamente quando eu colocar os pontos sem usar o botao... como faz?

abraços

aki esta a tebela

http://www.4shared.com/file/75679376/b41259e7/TABELA.html

Editado Dezembro 12, 2008 por Dhanylo

[Paulo Semblano]

No módulo 1, já existente, copie este código:

Sub classificação()

Range("B3:J7").Select

Selection.Sort Key1:=Range("J3"), Order1:=xlDescending, Key2:=Range("I3") _

, Order2:=xlDescending, Key3:=Range("D3"), Order3:=xlAscending, Header _

:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _

, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _

xlSortNormal

Range("A1").Select

End Sub

Pelo VBA, clicando 2 vezes em Plan1, abrirá a caixa branca. Copie e cole este código:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Application.EnableEvents = False

Call classificação

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub