Faro Barros Dicas RETORNO
Macro p/Excel Informática
Macro de Ordenação Macro#1
Actualizada em 20031019 Macro#2

  

 

 

 

 

Listo abaixo uma Macro para uma Folha de Cálculo Excel.

Coloco linhas de informação antes de cada operação.

Alteração das variáveis A1 A11 B11 C11 K11 M50 
Permitem ajustar esta Macro a outras necessidades do operador.

Coloque Descending em vez de Ascending para alterar, em qualquer Chave, o sentido da Ordenação.

Basta copiar o texto abaixo e transferi-lo para a área das Macros em qualquer Folha de Cálculo Excel para funcionar.

 

 

'  da Macro de Ordenação com o título OrdKCA  ==============

Sub OrdKCA()

' OrdKCA Macro

' Macro recorded 2003-10-19 by Eng. Faro Barros

' Seleciona-se a Área a Ordenar

Range("A11:M50").Select

' Indica-se que a ordem de ordenação vai ser pelas colunas K B C
'e que o Ordenação é ascendente, etc.

' Nota - Se as 5 linhas a seguir ficarem separadas após a cópia junte-as até ficarem a preto

Selection.Sort Key1:=Range("K11"), Order1:=xlAscending, _
Key2:=Range("B11"), Order2:=xlAscending, _
Key3:=Range("C11"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

 

' No final vamos colocar uma mensagem na Célula A1

Range("A1").Select

' com o Texto a seguir

ActiveCell.Value = "Ordenada por KCA"

 

' Colocamo-nos no final na célula A11

Range("A11").Select

End Sub

' Fim    da Macro de Ordenação com o título OrdKCA =================


Precisando de Informação adicional contacte
Faro Barros

 

Faro Barros

 

RETORNO  
à Página anterior Acessos  Alertas Apoios Crónicas Desenhos Dicas Esculturas
Fotografia  Fotos  Informática Pintura Poesia Português Quem Somos Sugestões Textos