quarta-feira, 24 de fevereiro de 2010

Ordenando por linhas no Excel.

Quem já não se deparou com o seguinte problema: possui uma planilha de dados contendo várias linhas e precisa ordenar os valores, mas por linha(a ordenação por coluna o Excel já tem um comando pronto)? A solução? Use VBA!!!! O VBA (Visual Basic for Application) é uma linguagem de programação interna da Microsoft para todos os aplicativos do Office: Access, Word, Excel e Power Point, além de ter sido incorporada pelo menos parcialmente em outros programas de terceiros como o AutoCAD, Mathcad e WordPerfect.

Segue abaixo o código para ordenar linhas no Excel:

Sub SortRow()

'Developed by Wruck
'Copyright 2010

Dim R, RowNum As Long
RowNum = ActiveSheet.UsedRange.Rows.Count

For R = 1 To RowNum + 1
Range("C" & R & ":H" & R).Sort key1:=Range("A" & R), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlLeftToRight
Next R

End Sub

Para utilizar essa macro: substitua as letras "C" e "H" pelas colunas iniciais e finais do range aonde estão as linhas que deseja ordenar. Caso na primeira linha contenha algum título, substitua o valor de "R" por 2.

Para mais informações e dicas a respeito do VBA, acesse Aplicações Office baseadas em VBA

Nenhum comentário:

Postar um comentário

Aviso: Todo e qualquer texto publicado na internet através deste sistema não reflete, necessariamente, a opinião deste blog ou do(s) seu(s) autor(es). Os comentários publicados através deste sistema são de exclusiva e integral responsabilidade e autoria dos leitores que dele fizerem uso. O autor deste blog reserva-se, desde já, o direito de excluir comentários e textos que julgar ofensivos, difamatórios, caluniosos, preconceituosos ou de alguma forma prejudiciais a terceiros. Textos de caráter promocional ou inseridos no sistema sem a devida identificação de seu autor (nome completo e endereço válido de email) também poderão ser excluídos.