Title:
Excel 2007 - Macro para função Classificar{www.zipteck.br.ms}
Video:
Description:Video explicando como deixar a função SORT ou CLASSIFICAR automatica. Codigo da macro: Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Worksheets(1).Range("b2:d500"), Target) Is Nothing) Then DoSort End If End Sub Private Sub DoSort() Worksheets(1).Range("f2:g4").Sort Key1:=Worksheets(1).Range("g2"), Order1:=xlDescending End Sub
Published:
22/Jun/2010
Excel 2007 - Macro para função Classificar{www.zipteck.br.ms}
Video:
Description:Video explicando como deixar a função SORT ou CLASSIFICAR automatica. Codigo da macro: Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Worksheets(1).Range("b2:d500"), Target) Is Nothing) Then DoSort End If End Sub Private Sub DoSort() Worksheets(1).Range("f2:g4").Sort Key1:=Worksheets(1).Range("g2"), Order1:=xlDescending End Sub
Published:
22/Jun/2010
No comments:
Post a Comment