Title:
Excel 2007 - Função Classificar Automatica {www.zipteck.com.br}
Video:
Description:Explicando como deixar a função classificar do excel automatica! codigo Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Worksheets(1).Range("a1:d500"), Target) Is Nothing) Then DoSort End If End Sub Private Sub DoSort() Worksheets(1).Range("a2:d500").Sort Key1:=Worksheets(1).Range("d2"), Order1:=xlDescending, _ Key2:=Worksheets(1).Range("a2"), Order1:=x1Ascending End Sub
Published:
27/Jun/2010
Excel 2007 - Função Classificar Automatica {www.zipteck.com.br}
Video:
Description:Explicando como deixar a função classificar do excel automatica! codigo Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Worksheets(1).Range("a1:d500"), Target) Is Nothing) Then DoSort End If End Sub Private Sub DoSort() Worksheets(1).Range("a2:d500").Sort Key1:=Worksheets(1).Range("d2"), Order1:=xlDescending, _ Key2:=Worksheets(1).Range("a2"), Order1:=x1Ascending End Sub
Published:
27/Jun/2010
No comments:
Post a Comment